【机房重构】导出到Excel

我们要先添加一个模块（将DataGridView中的数据导出到Excel表中这个方法，经常用到。添加到模块中，以后用的时候，直接调用模块即可。）然后添加服务引用 ，添加引用的时候如果找不到图片里的引用，还可以用代码来添加。

代码添加：

 

Imports Microsoft.Office.Interop

代码展示：

 

 

Imports Microsoft.Office.Interop  
Imports System.Windows.Forms  
  
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 - 1  
            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  
End Module