在.NET环境下将报表导出Excel和Word

转载 2004年08月20日 16:04:00

在VB.NET同样可以将报表导出到Excel和Word进行输出,制作出专业水平的报表。具体操作如下:(注:首先需添加引用,选择COM-->选择Microsoft Word Object Library和Microsoft Excel Object Library组件)

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 As Integer = 1 Dim colIndex As Integer = 0 xlBook = xlApp.Workbooks().Add xlSheet = xlBook.Worksheets("sheet1") Dim Table As New DataTable() Table = CreaTable() ’将所得到的表的列名,赋值给单元格 Dim Col As DataColumn Dim Row As DataRow For Each Col In Table.Columns colIndex = colIndex + 1 xlApp.Cells(1, colIndex) = Col.ColumnName Next ’得到的表所有行,赋值给单元格 For Each Row In Table.Rows rowIndex = rowIndex + 1 colIndex = 0 For Each Col In Table.Columns 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 Col As DataColumn Dim Row As DataRow For Each Col In Table.Columns 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 Col In Table.Columns colIndex = colIndex + 1 oTable.Cell(rowIndex, colIndex).Range.InsertAfter(Row(Col.ColumnName)) Next Next oTable.Borders.InsideLineStyle = 1 oTable.Borders.OutsideLineStyle = 1 wordApp.Visible = True

《A Discipline of Software Engineering》

朋友推荐一本书《A Discipline of Software Engineering》,对于在程序人生中迷茫已久的我来说,这本书无疑是天降甘露。 这本书不再从软件系统的角度出发,而是针对程序员个人...
  • wooh
  • wooh
  • 2004-06-15 11:51:00
  • 846

asp.net Aspose生成 导出 导入 excel word 例子+帮助文档【CSDN11个例子】

  • 2014年12月24日 19:48
  • 33.94MB
  • 下载

在.NET环境下将报表导出Excel和Word.rar

  • 2012年04月20日 11:29
  • 1016KB
  • 下载

ActiveReports 报表控件 : 导出 PDF、Word 和 Excel文件到客户端

ActiveReports Flash Viewer 提供了灵活的定制接口,我们可以向其中添加自定义按钮用于实现自定义功能。导出报表到客户端也是比较常见的使用场景,本篇文章将阐述如何实现以上功能。 ...
  • kongwei521
  • kongwei521
  • 2015-01-05 10:41:50
  • 1901

DataTable导出为word,excel,html,csv,pdf

  • 2012年11月11日 11:05
  • 8KB
  • 下载

将ListView中的内容导出到Word和Excel

//---------------------------------------------------------------------------// 将ListView中的内容导出到Word...
  • johnny_83
  • johnny_83
  • 2007-11-08 16:35:00
  • 1176

(整理) 简单、完美的导出excel/word报表解决方案

在你的jsp里加入下面粗体的代码即可:   String filename="测试导出excel报表";   //文件名   //独立打开excel软件   response.setHeader("C...
  • hzf100
  • hzf100
  • 2007-03-23 22:48:00
  • 473

在.NET环境下将报表导出EXCEL和WORD

在VB6开发环境下,本人使用EXCEL作过报表,在.NET环境下开发,本人使用水晶报表。但VB.NET同样可以将报表导出到EXCEL和WORD进行输出,制作出专业水平的报表。   具体操作...
  • u011877729
  • u011877729
  • 2013-08-29 19:37:50
  • 269

在.NET环境下将报表导出EXCEL和WORD

在.NET环境下将报表导出EXCEL和WORD 在VB6开发环境下,本人使用EXCEL作过报表,在.NET环境下开发,本人使用水晶报表。但VB.NET同样可以将报表导出到EXCEL和WORD进行输出,...
  • asthlon
  • asthlon
  • 2004-08-17 14:31:00
  • 757

jsp页面生成word或excel

  • 2009年10月14日 15:32
  • 210KB
  • 下载
收藏助手
不良信息举报
您举报文章:在.NET环境下将报表导出Excel和Word
举报原因:
原因补充:

(最多只允许输入30个字)