.net 实现excel 自动化操作

 

       Imports Microsoft.Office.Interop
 
        Dim dvResult As Data.DataView
        Dim staFile As String = "c:/test.xls"
        'open file
        Dim m_objExcel As Excel.ApplicationClass = New Excel.ApplicationClass
        Dim miss As System.Reflection.Missing = System.Reflection.Missing.Value
        m_objExcel.Visible = False
        m_objExcel.DisplayAlerts = False
        Dim m_objBooks As Excel.Workbooks = CType(m_objExcel.Workbooks, Excel.Workbooks)
        Dim m_objBook As Excel.Workbook = CType(m_objBooks.Add(miss), Excel.Workbook)
        m_objBook = m_objExcel.Workbooks.Open(staFile)
        Dim objData As Object(,) = New [Object](dvResult.Table.Rows.Count - 1, dvResult.Table.Columns.Count - 1) {}
        'write data to array
        For i As Integer = 0 To dvResult.Table.Rows.Count - 1
            For j As Integer = 0 To dvResult.Table.Columns.Count - 1
                objData(i, j) = dvResult.Table.Rows(i)(j).ToString
            Next
        Next
        'set range size
        Dim m_objRange As Excel.Range = m_objBook.ActiveSheet.Range(startCell, miss)
        m_objRange = m_objRange.Resize(dvResult.Table.Rows.Count, dvResult.Table.Columns.Count)
        'set range style
        m_objRange.Font.Size = m_objBook.ActiveSheet.Range(startCell).Font.Size
        'write data to excel
        m_objRange.Value = objData
        m_objRange.EntireColumn.AutoFit()