知识大全在.NET环境下将报表数据导出Excel和Word[1]

Posted 2022-07-14 知

篇首语：农村四月闲人少，勤学苦攻把名扬。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全在.NET环境下将报表数据导出Excel和Word[1]相关的知识，希望对你有一定的参考价值。

在.NET环境下将报表数据导出Excel和Word[1] 以下文字资料是由(全榜网网www.cha138.com)小编为大家搜集整理后发布的内容，让我们赶快一起来看一下吧！

　　在VB 开发环境下本人使用EXCEL作过报表在 NET环境下开发本人使用水晶报表但VB NET同样可以将报表导出到EXCEL和WORD进行输出制作出专业水平的报表

　　具体操作如下 (注首先需添加引用选择选择Microsoft Word Object Library和Microsoft Excel Object Library组件)

　　先创建一个DataTable 作为数据来源也可以另将其它的数据源

　　Private Function CreaTable() As DataTable　　Dim dt As New DataTable()　　dt Columns Add( 列 GetType(String))　　dt Columns Add( 列 GetType(Integer))　　dt Columns Add( 列 GetType(String))　　dt Columns Add( 列 GetType(String))　　Dim row row As DataRow　　row = dt NewRow()　　row!列 = 行　　row!列 = 　　row!列 = d 　　row!列 = a 　　dt Rows Add(row)　　row = dt NewRow()　　row !列 = 行　　row !列 = 　　row !列 = b 　　row !列 = c 　　dt Rows Add(row )　　Return dt　　End Function

　　将表中的内容导出到Excel

　　Dim xlApp As New Excel Application()　　Dim xlBook As Excel Workbook　　Dim xlSheet As Excel Worksheet　　Dim rowIndex colIndex As Integer　　rowIndex = 　　colIndex = 　　xlBook = xlApp Workbooks() Add　　xlSheet = xlBook Worksheets( sheet )　　Dim Table As New DataTable()　　Table = CreaTable()　　将所得到的表的列名赋值给单元格　　Dim Col As DataColumn　　Dim Row As DataRow　　For Each Col In Table Columns　　colIndex = colIndex + 　　xlApp Cells( colIndex) = Col ColumnName　　Next　　得到的表所有行赋值给单元格　　For Each Row In Table Rows　　rowIndex = rowIndex + 　　colIndex = 　　For Each Col In Table Columns　　colIndex = colIndex + 　　xlApp Cells(rowIndex colIndex) = Row(Col ColumnName)　　Next　　Next　　With xlSheet　　 Range( Cells( ) Cells( colIndex)) Font Name = 黑体　　设标题为黑体字　　 Range( Cells( ) Cells( colIndex)) Font Bold = True　　标题字体加粗　　 Range( Cells( ) Cells(rowIndex colIndex)) Borders LineStyle = 　　设表格边框样式　　End With　　With xlSheet PageSetup　　 LeftHeader = & Chr( ) & & 楷体_GB 常规 & 公司名称 & Gsmc　　 CenterHeader = & 楷体_GB 常规公司人员情况表& 宋体常规 & Chr( ) & & 楷体_GB 常规 & 日期　　 RightHeader = & Chr( ) & & 楷体_GB 常规 & 单位　　 LeftFooter = & 楷体_GB 常规 & 制表人　　 CenterFooter = & 楷体_GB 常规 & 制表日期　　 RightFooter = & 楷体_GB 常规 & 第&P页共&N页　　End With　　xlApp Visible = True

　　将表中的内容导出到WORD

cha138/Article/program/net/201311/15543

知识大全 在.NET环境下将报表数据导出Excel和Word[1]

知识大全在.NET环境下将报表数据导出Excel和Word[1]