最近研究行添加，稍微总结一下，以后继续补充：
将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
文章结束给大家分享下程序员的一些笑话语录： 面试官：熟悉哪种语言
应聘者：JAVA
面试官：知道什么叫类么
应聘者：我这人实在，工作努力，不知道什么叫累
面试官：知道什么是包?
应聘者：我这人实在 平常不带包 也不用公司准备了
面试官：知道什么是接口吗?
应聘者：我这个人工作认真。从来不找借口偷懒
面试官：知道什么是继承么
应聘者：我是孤儿没什么可以继承的
面试官:知道什么叫对象么？
应聘者:知道，不过我工作努力，上进心强，暂时还没有打算找对象。
面试官：知道多态么？
应聘者：知道，我很保守的。我认为让心爱的女人为了自已一时的快乐去堕胎是不道德的行为！请问这和C#有什么关系？？
