将数据从DataGridView控件中导出为Excel,其实挺简单的。在这里,就贴出来做个积累吧。
首先,添加Office Excel的引用。
因为机房收费中,很有几个地方需要导出Excel,所以就把这个功能提出来为一个公共函数吧。
Imports System.Windows.Forms
Public Class CommonFunction
Public Function Excel(ByVal dgv As DataGridView) As Boolean
'建立Excel连接
Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
'定义变量
Dim i, j, k As Integer
'添加表头
For k = 0 To dgv.ColumnCount - 1
myExcel.Cells(1, k + 1) = dgv.Columns(k).HeaderText
Next k
'通过循环来添加控件中的数据到表格中
For i = 0 To dgv.RowCount - 1
For j = 0 To dgv.ColumnCount - 1
'第一行是表头,数据从第二行开始添加
myExcel.Cells(i + 2, j + 1) = dgv(j, i).Value
Next j
Next i
Return True '添加完毕,返回true
End Function
End Class
调用的时候两行代码即可
Dim excel As New CommonFunction
excel.Excel(DataGridView1)
小结:
无论是从DataGridView中导出Excel,还是从哪儿导出,差不多步骤都一样,都要先添加引用,然后建立连接,添加表,打开表,添加表头,导出数据,完毕。从无从下手,到搞定,慢慢积累。