在.NET環境下將報表匯出EXCEL和WORD (轉)
在環境下將報表匯出和
:namespace prefix = o ns = "urn:schemas--com::office" />
在開發環境下,本人使用EXCEL作過報表,在.NET環境下開發,本人使用水晶報表。但同樣可以將報表匯出到EXCEL和WORD進行輸出,製作出專業水平的報表。
具體操作如下:(注:首先需新增引用,選擇COM-->選擇Microsoft Word 10.0 Library和Microsoft Excel 10.0 Object Library)
1.先建立一個DataTable,作為資料來源,也可以另將其它的資料來源。
Private Function CreaTable() As DataTable
Dim dt As New DataTable()
dt.Columns.Add("列1", GetType(String))
dt.Columns.Add("列2", GetType(Integer))
dt.Columns.Add("列3", GetType(String))
dt.Columns.Add("列4", GetType(String))
Dim row, row1 As DataRow
row = dt.NewRow()
row!列1 = "行1"
row!列2 = 1
row!列3 = "d"
row!列4 = "a"
dt.Rows.Add(row)
row1 = dt.NewRow()
row1!列1 = "行2"
row1!列2 = 12
row1!列3 = "b"
row1!列4 = "c"
dt.Rows.Add(row1)
Return dt
End Function
2.將表中的內容匯出到Excel
Dim xlApp As New Excel.Application()
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet
Dim rowIndex, colIndex As Integer
rowIndex = 1
colIndex = 0
xlBook = xlApp.Workbooks().Add
xlSheet = xlBook.Worksheets("sheet1")
Dim Table As New DataTable()
Table = CreaTable()
'將所得到的表的列名,賦值給單元格
Dim
Dim Row As DataRow
For Each
colIndex = colIndex + 1
xlApp.Cells(1, colIndex) = Col.ColumnName
Next
'得到的表所有行,賦值給單元格
For Each Row In Table.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each
colIndex = colIndex + 1
xlApp.Cells(rowIndex, colIndex) = Row(Col.ColumnName)
Next
Next
With xlSheet
.Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Name = "黑體"
'設標題為黑體字
.Range(.Cells(1, 1), .Cells(1, colIndex)).Font.Bold = True
'標題字型加粗
.Range(.Cells(1, 1), .Cells(rowIndex, colIndex)).Borders.LineStyle = 1
'設表格邊框樣式
End With
With xlSheet.PageSetup
.LeftHeader = "" & Chr(10) & "&""楷體_GB2312,常規""&10公司名稱:" ' & Gsmc
.CenterHeader = "&""楷體_GB2312,常規""公司人員情況表&""宋體,常規""" & Chr(10) & "&""楷體_GB2312,常規""&10日 期:"
.RightHeader = "" & Chr(10) & "&""楷體_GB2312,常規""&10單位:"
.LeftFooter = "&""楷體_GB2312,常規""&10製表人:"
.CenterFooter = "&""楷體_GB2312,常規""&10製表日期:"
.RightFooter = "&""楷體_GB2312,常規""&10第&P頁 共&N頁"
End With
xlApp.Visible = True
3.將表中的內容匯出到WORD
Dim wordApp As New Word.Application()
Dim myDoc As Word.Document
Dim oTable As Word.Table
Dim rowIndex, colIndex As Integer
rowIndex = 1
colIndex = 0
wordApp.Documents.Add()
myDoc = wordApp.ActiveDocument
Dim Table As New DataTable()
Table = CreaTable()
oTable = myDoc.Tables.Add(Range:=myDoc.Range(Start:=0, End:=0), NumRows:=Table.Rows.Count + 1, NumColumns:=Table.Columns.Count)
'將所得到的表的列名,賦值給單元格
Dim
Dim Row As DataRow
For Each
colIndex = colIndex + 1
oTable.Cell(1, colIndex).Range.InsertAfter(Col.ColumnName)
Next
'得到的表所有行,賦值給單元格
For Each Row In Table.Rows
rowIndex = rowIndex + 1
colIndex = 0
For Each
colIndex = colIndex + 1
oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName))
Next
Next
oTable.Borders.InsLineStyle = 1
oTable.Borders.OutsideLineStyle = 1
wordApp.Visible = True
總結:
E_:lihonggen0@163.com
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/10752043/viewspace-993175/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- 模板匯出word和 EXcelExcel
- NPOI匯出和匯入Excel,Word和PDFExcel
- 匯出Excel或word文件Excel
- ASP.NET Excel匯入和匯出ASP.NETExcel
- POI的使用及匯出excel報表Excel
- 在Word中嵌入已有的Excel工作表(轉)Excel
- birt報表:BIRT報表在TOMCAT下執行環境配置!Tomcat
- 報表如何批次匯出成 excel 檔案Excel
- (轉)excel和sql server的匯入匯出ExcelSQLServer
- 使用工具類 使用poi匯入匯出excel報表Excel
- 技巧:如何將Word試卷快速匯入Excel?Excel
- ASP.NET EXCEL資料的匯出和匯入ASP.NETExcel
- 在VB6中匯出EXCEL,FOXPRO,PRODOX格式的表 (轉)Excel
- Asp.net 匯出ExcelASP.NETExcel
- centos環境下如何匯出資料庫CentOS資料庫
- ASP環境下輕鬆實現報表的列印 (轉)
- php生成匯出Word、Excel、PowerPoint外掛PHPExcel
- 頁面資料匯出為word或者excelExcel
- 如何將Word文件轉成Excel表格?Excel
- 在.NET(正式版)環境下傳送郵件 (轉)
- EasyOffice-.NetCore一行程式碼匯入匯出Excel,生成WordNetCore行程Excel
- vue將表格匯出為excelVueExcel
- wpf 視窗程式下將datagrid匯出為excelExcel
- 在C++程式中匯出Word文件的方法(轉)C++
- asp.net Excel匯出方法ASP.NETExcel
- 轉java操作excel匯入匯出JavaExcel
- 將MYSQL中資料匯出到EXCEL表MySqlExcel
- 海量資料Excel報表利器——EasyExcel(一 利用反射機制匯出Excel)Excel反射
- 如何將excel表格匯入word並保持格式不變 如何把excel的表格弄到word文件Excel
- kxcel, 方便匯入和匯出 ExcelExcel
- Java之POI操作Excel表-匯入匯出JavaExcel
- 在ASP.NET中將資料直接輸出成Excel內容 (轉)ASP.NETExcel
- Gradle環境下匯出Swagger為PDFGradleSwagger
- rac環境下使用impdp匯入資料出錯
- 在linux下搭建wiki環境【轉】Linux
- 在.NET(正式版)環境下讀寫系統日誌 (轉)
- C# word或者excel儲存或匯出為PDFC#Excel
- 如何使用 JavaScript 匯入和匯出 ExcelJavaScriptExcel