以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  批量打印Excel报表的代码  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=572)

--  作者:贺老六
--  发布时间:2008/9/17 19:06:00
--  批量打印Excel报表的代码
刚刚测试通过:

for i as Integer =0 to CurrentTable.Rows.Count -1
    Currenttable.Position = i
    Dim Book As New XLS.Book("c:\\资料卡.xls")
    Dim Sheet As XLS.Sheet = Book.Sheets(0)
    Book.Save("c:\\reports\\test.xls") \'保存工作簿
    Dim Proc As New Process \'打开工作簿
    Proc.File = "c:\\reports\\test.xls"
    Proc.Verb = "Print"
    Proc.Start()
Next

--  作者:ahljy351
--  发布时间:2008/9/17 19:18:00
--  
这代码往哪加啊?
--  作者:ahljy351
--  发布时间:2008/9/17 19:20:00
--  
("c:\\资料卡.xls") 能不能设成相对路径?也就是项目目录下?
[此贴子已经被作者于2008-9-17 19:20:40编辑过]

--  作者:老大不小
--  发布时间:2008/9/17 19:43:00
--  
同楼上,呵呵
--  作者:gdtgl
--  发布时间:2008/9/17 19:58:00
--  
1.代码可以写在窗口的按纽的 click事件中
2.将报表保存在你想要的目录下...没有限制的吧.(EXCEL报表要先做好的吧)

[此贴子已经被作者于2008-9-17 19:58:12编辑过]

--  作者:贺老六
--  发布时间:2008/9/17 20:30:00
--  
 

ProjectPath

字符型,返回项目文件所在目录。


--  作者:kylin
--  发布时间:2008/9/18 7:28:00
--  

经典之一!


--  作者:kylin
--  发布时间:2008/9/18 7:38:00
--  
呵呵,估计只能装一个EXCEL 了,
再装一个Access还方便学习外部数据表呢。
--  作者:还不错
--  发布时间:2008/9/18 7:52:00
--  
以下是引用hnaysx在2008-9-18 7:31:00的发言:

如果我机器上没有EXCEL 如何呢?政府部门现在有WPS的比较多

[此贴子已经被作者于2008-9-18 7:31:21编辑过]

希望能支持Wps!


--  作者:贺老六
--  发布时间:2008/9/18 8:47:00
--  
呵呵,是否支持wps,不是我决定的,由金山决定,关键他们能否提供编程工具。