从 DataGridView 导出到 Excel

    Public Sub ExportToExcel(ByVal DataGridView1 As DataGridView)
        If DataGridView1.Rows.Count >= 1 Then

            Dim myExcel As New Microsoft.Office.Interop.Excel.Application   '定义Excel, 需要导入Excel引用

            myExcel.Application.Workbooks.Add(True)  '新增加一个工作簿，Workbook是直接保存，不会弹出保存对话框，加上Application会弹出保存对话框，值为false会报错 
            myExcel.Visible = True                   '让后台执行设置为不可见，为true的话会看到打开一个Excel，然后数据在往里写

            For i = 0 To DataGridView1.ColumnCount - 1    '生成Excel中列头名称
                myExcel.Cells(1, i + 1) = DataGridView1.Columns(i).HeaderText
            Next

            For i = 0 To DataGridView1.Rows.Count - 1
                For j = 0 To DataGridView1.Columns.Count - 1
                    myExcel.Cells(i + 2, j + 1).value = "'" & DataGridView1.Item(j, i).Value.ToString   '循环写入，这里要加引号
                Next
            Next

            '设置禁止弹出保存和覆盖的询问提示框  
            myExcel.DisplayAlerts = True
            myExcel.AlertBeforeOverwriting = True

        End If
    End Sub  '导出EXCEL