.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()