Dim xlApp As New Excel.Application Dim xlBook As Excel.Workbook Dim xlSheet As Excel.Worksheet调用Excel的打印预览 xlsheet.PrintPreview------------------------------------------------------------------ 个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/ ------------------------------------------------------------------
dim xlexcel as excel.application dim xlsheet as excel.worksheetset xlexcel=creatobject("excel.application") xlexcel.workbooks.open("c:\1.xls")'EXCEL报表的路径和文件名 set xlsheet=xlexcel.worksheets("sheet1") xlexcel.visible=true '是报表显示 ’修改EXCEL报表的数据有两种 '1 直接使用报表中的坐标进行修改 xlexcel.range("A1")="CSDN" '这里是将左上角的单元格里填写“CSDN” '2 使用报表的纵横坐标 xlsheet.cells(1,3)="WWW" '这里是将WWW填写在C1的单元格内 xlsheet.printpreview '打印预览
http://www.csdn.net/develop/read_article.asp?id=14952
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet调用Excel的打印预览
xlsheet.PrintPreview------------------------------------------------------------------
个人专栏:http://www.csdn.net/develop/author/netauthor/lihonggen0/
------------------------------------------------------------------
dim xlsheet as excel.worksheetset xlexcel=creatobject("excel.application")
xlexcel.workbooks.open("c:\1.xls")'EXCEL报表的路径和文件名
set xlsheet=xlexcel.worksheets("sheet1")
xlexcel.visible=true '是报表显示
’修改EXCEL报表的数据有两种
'1 直接使用报表中的坐标进行修改
xlexcel.range("A1")="CSDN" '这里是将左上角的单元格里填写“CSDN”
'2 使用报表的纵横坐标
xlsheet.cells(1,3)="WWW" '这里是将WWW填写在C1的单元格内
xlsheet.printpreview '打印预览
例外这样修改的话也不是直接对表进行修改,而是创建了一个临时文件,但我用Saveas保存后打开却必须想让我打开原文件
xlsheet.printpreview '打印预览