VB.NET 导出数据到EXCEL中

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