VB.net导出Excel

        现在学习面向对象，在实现导出Excel功能的时候就有体现，把这个功能写成一个模块使用的时候去调这个模块。

        在写代码之前先要引用系统的Excel，这时候需要找到：项目—添加引用—Microsoft Excel 16.0 Object Library v1.0。完成引用之后，通过两层for循环遍历来实现数据内容导出到Excel。

Imports System.Windows.FormsImports Microsoft.Office.Interop.ExcelModule 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