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

在vb6开拓情况下，自己运用excel作过报表，在.net情况下开拓，自己运用水晶报表。但vb.net同样不妨将报表导出到excel和word举行输入，创造出专科程度的报表。简直操纵如次：(注：开始需增添援用，采用com，采用microsoft word 10.0 object 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 function2.将表中的实质导出到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 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 = true3.将表中的实质导出到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归纳：microsoft word 10.0（本子号）东西库供给了word的大局部操纵。一致的也有microsoft excel 东西库，咱们不妨用代码与word和excel举行对话并遏制它们。再有很要害的一点，即是咱们必需学会运用office软硬件的“宏”。“宏”是一系列的word（或其它office软硬件）吩咐和训令的拉拢，都是天生vb代码。咱们可用“东西/宏/录制新宏”来录制“宏”，录制实行后察看“宏”的代码就不妨领会实行此功效的一系列的vb代码，咱们把那些代码正片到vb.net编纂器中，略微变换后就不妨运用。要想做好office开拓，必需