将DataGridView中的数据导出到Excel

1、右键单击项目，添加对EXCEL的引用（在COM选项卡中）。

2、 在项目中新建一个模块，在其中创建下面的带参数过程：

    Public Sub DcExcel(ByVal DGV As DataGridView)
        '把datagridview中的数据导出到excel
        Dim wapp As New Microsoft.Office.Interop.Excel.Application
        Dim wsheet As Microsoft.Office.Interop.Excel.Worksheet
        Dim wbook As Microsoft.Office.Interop.Excel.Workbook

        On Error Resume Next

        wapp.Visible = True
        wbook = wapp.Workbooks.Add()
        wsheet = wbook.ActiveSheet

        Dim iX As Integer
        Dim iY As Integer
        Dim iC As Integer

        For iC = 0 To DGV.Columns.Count - 1
            wsheet.Cells(1, iC + 1).Value = DGV.Columns(iC).HeaderText
            wsheet.Cells(1, iC + 1).Font.Bold = True
        Next

        wsheet.Rows(2).select()
        For iX = 0 To DGV.Rows.Count - 1