广州顺德网站设计,聊城百度做网站的,潮州seo,360指数在线查询最近研究行添加#xff0c;稍微总结一下#xff0c;以后继续补充#xff1a; 将DataGridView中的据数导出为Excel的据数表格#xff0c;方法有很多种#xff0c;面下供提一种本人认为是一个好解理#xff0c;较单简的方法。步调如下#xff1a; 1、添加引用 2、编写码代… 最近研究行添加稍微总结一下以后继续补充 将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的第一行是标题所以应从第二行开始即i2 注意DataGridView的标坐是先列行后 xlWorkSheet.Cells(i 2, j 1) x(j, i).Value.ToString() Next Next End Sub 文章结束给大家分享下程序员的一些笑话语录 面试官熟悉哪种语言 应聘者JAVA 面试官知道什么叫类么 应聘者我这人实在工作努力不知道什么叫累 面试官知道什么是包? 应聘者我这人实在 平常不带包 也不用公司准备了 面试官知道什么是接口吗? 应聘者我这个人工作认真。从来不找借口偷懒 面试官知道什么是继承么 应聘者我是孤儿没什么可以继承的 面试官:知道什么叫对象么 应聘者:知道不过我工作努力上进心强暂时还没有打算找对象。 面试官知道多态么 应聘者知道我很保守的。我认为让心爱的女人为了自已一时的快乐去堕胎是不道德的行为请问这和C#有什么关系 转载于:https://www.cnblogs.com/xinyuyuanm/archive/2013/04/22/3035814.html
