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