机房重构—导出Excel

来源：互联网发布：snh48 team sii知乎编辑：程序博客网时间：2024/06/06 00:47

DataGridView导出Excel和VB机房里差不多，很基础的东西，可以通过纯代码实现，也可以通过添加服务引用来实现，这里就介绍下如何通过添加引用来实现导出Excel，毕竟简单直接~

先在U层程序集里添加Microsoft.Office.Interop.Excel引用，然后就可以在U层中填写以下代码了：

        '建立excel连接        Dim myExcel As New 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 DataGridView1.ColumnCount - 1            myExcel.Cells(1, intTitle + 1) = DataGridView1.Columns(intTitle).HeaderText        Next intTitle        '通过循环来添加控件中的数据到表格中        For intRow = 0 To DataGridView1.Rows.Count - 1            For intColumn = 0 To DataGridView1.ColumnCount - 1                '由于第一行是表头，所以添加数据时从第二行开始                If Me.DataGridView1(intColumn, intRow).Value Is System.DBNull.Value Then                    myExcel.Cells(intRow + 2, intColumn + 1) = ""                Else                    myExcel.Cells(intRow + 2, intColumn + 1) = DataGridView1(intColumn, intRow).Value                End If            Next intColumn        Next intRow

慢慢积累，点滴进步，开学了，加油吧~

0 0