现在学习面向对象,在实现导出Excel功能的时候就有体现,把这个功能写成一个模块使用的时候去调这个模块。
在写代码之前先要引用系统的Excel,这时候需要找到:项目—添加引用—Microsoft Excel 16.0 Object Library v1.0。完成引用之后,通过两层for循环遍历来实现数据内容导出到Excel。
Imports System.Windows.Forms
Imports Microsoft.Office.Interop.Excel
Module ImportToExcel
Public Function ImportToExcel(ByVal gvw As DataGridView) As Boolean '导出到Excel函数
'建立Excel连接
Dim myExcel As New Microsoft.Office.Interop.Excel.Application()
myExcel.Application.Workbooks.Add(True)
myExcel.Visible = True
'定义循环变量,行列变量
Dim intRow As Integer
Dim intColumn As Integer
Dim intTitle As Integer
'添加表头
For intTitle = 0 To gvw.ColumnCount - 1
myExcel.Cells(1, intTitle + 1) = gvw.Columns(intTitle).HeaderText
Next intTitle
'通过循环来添加控件中的数据到表格中
For intRow = 0 To gvw.RowCount - 2
For intColumn = 0 To gvw.ColumnCount - 1
'由于第一行是表头,所以添加数据时从第二行开始
myExcel.Cells(intRow + 2, intColumn + 1) = gvw(intColumn, intRow).Value.ToString
Next intColumn
Next intRow
Return True '添加完毕,返回true
End Function
如何调用
Private Sub btnExcel_Click(sender As Object, e As EventArgs) Handles btnExcel.Click
Call ImportToExcel.ImportToExcel(DataGridView1)
End Sub