VB.NET 导出数据到EXCEL中
[日期:2007-07-29] 来源: 作者: [字体:大 中 小]
----------VB.NET 导出数据到Excel中-------------
Dim oExcel As New Excel.Application
Dim obook As Excel.Workbook
Dim oSheet As Excel.Worksheet
Dim DataArray(2000, 2000) As Integer
obook = oExcel.Workbooks.Open("c:/1.xls")
oSheet = obook.Worksheets(1)
oSheet.Name = "ok"
Dim myAdapter As New OleDb.OleDbDataAdapter("select * from list", Module1.dbConn)
Dim myDataSet As New DataSet
myAdapter.Fill(myDataSet, "list")
DataGrid1.DataSource = myDataSet.Tables("list")
Dim i As Integer
Dim iCount As Integer
iCount = myDataSet.Tables("list").Rows.Count
For i = 0 To iCount - 1
DataArray(i, 0) = DataGrid1.Item(i, 0)
Next
oSheet.Range("b1").Resize(100, 1