VB.NET——导出Excel

概述        多个窗体都需要这个功能，所以在U层添加一个类模块，写入一下代码 Imports Microsoft.Office.InteropImports System.Windows.FormsImports System.Windows.Forms.KeyEventArgsModule PublicModule ''' <summary> ''' 导出Excel表格

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

imports Microsoft.Office.Interopimports System.windows.Formsimports System.windows.Forms.KeyEventArgsModule 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,k As Integer     '定义变量          For k = 0 To dgv.ColumnCount - 1             '添加表头， 因为Excel表从第一行第一列开始，而MyGrIDVIEw从第0行第0列开始，所以需要加1              myExcel.Cells(1,k + 1) = dgv.Columns(k).headerText        Next        For i = 0 To dgv.RowCount - 1                 '通过循环来添加控件中的数据到Excel表中              For j = 0 To dgv.ColumnCount - 1                '由于第一行是表头，所以添加数据从第二行开始。                  myExcel.Cells(i + 2,j + 1) = dgv(j,i).Value           '因为Excel表从第一行第一列开始，而MyGrIDVIEw从第0行第0列开始，所以需要加1              Next        Next        myExcel.Cells.EntireColumn.autoFit()        Return True    End Function

总结

以上是内存溢出为你收集整理的VB.NET——导出Excel全部内容，希望文章能够帮你解决VB.NET——导出Excel所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。