VB.NET 导出数据到EXCEL中
2005-01-01 01:10
585 查看
----------VB.NET 导出数据到EXCEL中-------------
在引用当中引入Microsoft Excel 11.0 Object Library
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也是一样一样的哦
数组大小可以自己来定义,如果数据的数量大于数组的范围,那么以数组为准(谁叫要用数组输出呢 :-)
)
BTW:机器要安装了office才能够引用Microsoft Excel 11.0 Object Library
路径是*/Microsoft office/office11/execl.exe
第一次写blog,有什么写得不对的,高手请指点了
--------------完-------------------------------
在引用当中引入Microsoft Excel 11.0 Object Library
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也是一样一样的哦
数组大小可以自己来定义,如果数据的数量大于数组的范围,那么以数组为准(谁叫要用数组输出呢 :-)
)
BTW:机器要安装了office才能够引用Microsoft Excel 11.0 Object Library
路径是*/Microsoft office/office11/execl.exe
第一次写blog,有什么写得不对的,高手请指点了
--------------完-------------------------------
相关文章推荐
- 从DataGridView中将数据导出Excel(vb.net)
- vb.net导出数据到Excel代码
- VB.net 将dataGridView中的数据导出到excel
- ASP.NET(VB)把数据导出到EXCEL的一种方法(网上转载)
- VB.net 将dataGridView中的数据导出到excel
- VB.NET之旅-机房收费系统个人重构DatagridView导出数据到Excel
- VB.net-VS2010导出datagridview数据到EXCEL,以时间为文件名
- VB.NET 快速导出数据到Excel
- VB.net 将dataGridView中的数据导出到excel
- 在VB.NET中,将数据库里的数据导出到Excel中
- VB.Net导出SQLServer数据到Excel中代码架构段
- VB.NET 导出数据到EXCEL中
- WinForm中把DataGrid里面的数据导出成EXCEL文件(VB.net)
- 在VB.NET中,将数据库里的数据导出到Excel中
- 如何编程实现VB.NET数据集中的数据导出到EXCEL
- 将从SQL数据库中查询出来的数据导出为Excel文档ASP.NET(VB)?
- VB.NET 导出数据到EXCEL中
- 在VB.NET中,将数据库里的数据导出到Excel中
- C#.NET把数据导出EXCEL
- asp.net中导出到Excel的方法汇总及导出Excel/Csv格式数据最优方案(C#)