VB.net导出Excel

        现在学习面向对象，在实现导出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