VB.NET——导出Excel

    

   多个窗体都需要这个功能，所以在U层添加一个类模块，写入一下代码

Imports Microsoft.Office.Interop
Imports System.Windows.Forms
Imports System.Windows.Forms.KeyEventArgs

Module PublicModule
    ''' <summary>
    ''' 导出Excel表格
    ''' </summary>
    ''' <param name="frmName"></param>
    ''' <param name="dgv"></param>
    ''' <returns></returns>
    ''' <remarks></remarks>
    Public Function ExportExcel(ByVal frmName As Form, ByVal dgv As DataGridView) As Boolean
        Dim myExcel As New Microsoft.Office.Interop.Excel.Application     '建立Excel连接  

        myExcel.Application.Workbooks.Add(True)      '新建一个Excel文件  
        myExcel.Visible = True                       '让Excel表可见  
        Dim i, j,