行添加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#有什么關系??
轉載于:https://www.cnblogs.com/xinyuyuanm/archive/2013/04/22/3035814.html
總結
以上是生活随笔為你收集整理的行添加DataGridView导出Excel的数据表格的全部內容,希望文章能夠幫你解決所遇到的問題。
- 上一篇: 4.3.2 基于集合的操作
- 下一篇: wincc版本升级_wincc组态软件下