Try

Dim excelApp As New Object

Dim excelWorkbook As Object

Dim excelWorksheet As Object

excelApp = CreateObject("Excel.Application")

excelWorkbook = excelApp.workbooks.add()

excelWorksheet = excelWorkbook.worksheets(1)

'写入表头

For i As Integer = 0 To DataGridView1.Columns.Count - 1

If DataGridView1.Columns(i).Visible Then

excelWorksheet.cells(1, i + 1) = DataGridView1.Columns(i).HeaderText

End If

Next

'写入数据

'For i As Integer = 0 To DataGridView1.Rows.Count - 2

'Dim colIndex As Integer = 0

'For j As Integer = 0 To DataGridView1.Columns.Count - 1

'If DataGridView1.Columns(j).Visible Then

'Dim cellValue As Object = DataGridView1.Rows(i).Cells(j).Value

'excelWorksheet.cells(i + 2, colIndex + 1) = If(cellValue Is Nothing, "", cellValue.ToString())

'colIndex += 1

'End If

'Next

'Next

excelWorksheet.columns.autofit()

excelApp.visible = True

MessageBox.Show("下载成功!")

Catch ex As Exception

MessageBox.Show("下载失败:" & ex.Message)

End Try