行添加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

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