DataGridView导出Excel的数据表格

        将DataGridView中的数据导出为Excel的数据表格，方法有很多种，下面提供一种本人认为是一个好理解，较简单的方法。步骤如下：

1、添加引用

2、编写代码

Imports Microsoft.Office.Interop

’自定义过程
Public Sub ExportExcel(ByVal x As DataGridView)

'打开Excel的应用程序

Dim xlApp As New Excel.Application

'添加一个工作簿

Dim xlWorkBook As Excel.Workbook = xlApp.Workbooks.Add()

'添加一个表

Dim xlWorkSheet As Excel.Worksheet = xlWorkBook.Sheets("sheet1")

'显示Excel

xlApp.Visible = True

'用于将DataGridView中的表赋值到Excel中的表中

Dim i As Integer

Dim j As Integer

'将DataGridView中的字段名赋给Excel表中的第一行

Dim Cols As Integer

For Cols = 1 To x.Columns.Count

xlWorkSheet.Cells(1, Cols) = x.Columns(Cols - 1).HeaderText

Next

'将DataGridView表格的内容导入到Excel表中

For i = 0 To x.RowCount - 2

'DataGridView中的表头行不做为行数来计算，并且，有一空行所以减2

For j = 0 To x.ColumnCount - 1

'Excel的第一行是标题，所以应从第二行开始，即：i+2 注意DataGridView的坐标是先列后行

xlWorkSheet.Cells(i + 2, j + 1) = x(j, i).Value.ToString()

Next

Next

End Sub