VB.Net机房收费系统(三层)——将datagirdview 控件数据导入Excel

本文介绍了一种将DataGridView控件中的数据导出到Excel的方法。通过VB.NET编程实现,详细步骤包括创建Excel应用程序对象、添加工作簿、写入数据等。适用于需要将数据库数据显示在Excel中的场景。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

在从数据库检索出来数据并显示在datagridview控件上面之后,如何导入到Excel中,机房收费系统的业务功能中也是一个小小的问题。通过实例驱动,分享给大家其中的实现方法

在UI层的用户界面设置如图:导出其中的数据到excel还要借用上一篇博客(

VB.Net机房收费系统(三层)——用datagirdview 控件显示数据库数据

)当我们用datagrideview 控件显示出来数据之后,添加引用并实现:

Imports Microsoft.Office.Interop

Private Sub cmdToExcel_Click(sender As Object, e As EventArgs) Handles cmdToExcel.Click
Dim xlApp, xlBook, xlSheet As Object
xlApp = CreateObject("Excel.Application")
xlBook = xlApp.Workbooks.Add
xlSheet = xlBook.Worksheets(1)

Dim rowindex, colindex As Integer
rowindex = 1 '行
colindex = 0 '列
xlSheet = xlApp.Worksheets("sheet1") '打開sheet1那頁
Dim a As New DataSet
Dim table As New System.Data.DataTable
table = DataGridView1.DataSource
Dim row As DataRow '定義row為表格的行
Dim col As DataColumn '定義col為表格的列
'把表格的每一列寫到EXCEL去
For Each col In table.Columns
colindex = colindex + 1
xlApp.Cells(1, colindex) = col.ColumnName
Next
'把表格的每一行寫到EXCEL去
For Each row In table.Rows
rowindex = rowindex + 1
colindex = 0
For Each col In table.Columns
colindex = colindex + 1
xlApp.Cells(rowindex, colindex) = row(col.ColumnName)
Next
Next
xlApp.Visible = True
End Sub


评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值