多个窗体都需要这个功能,所以在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,