VB.NET 导出数据到EXCEL中

王朝c#·作者佚名  2006-12-17
窄屏简体版  字體: |||超大  

----------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).Value = DataArray

obook.Save()

oExcel.Quit()

添加数据到EXCEL的行(列),源数据的数组要与EXCEL的行(列)对应。

上面代码使用的是DataGrid的控件,如果使用Table也是一样一样的哦

数组大小可以自己来定义,如果数据的数量大于数组的范围,那么以数组为准(谁叫要用数组输出呢 :-)

第一次写blog,有什么写得不对的,高手请指点了

--------------完-------------------------------

 
 
 
免责声明:本文为网络用户发布,其观点仅代表作者个人观点,与本站无关,本站仅提供信息存储服务。文中陈述内容未经本站证实,其真实性、完整性、及时性本站不作任何保证或承诺,请读者仅作参考,并请自行核实相关内容。
 
 
© 2005- 王朝網路 版權所有 導航