共10 条记录, 每页显示 10 条, 页签: [1]

标题：批量打印Excel报表的代码

1楼

贺老六 发表于：2008/9/17 19:06:00

刚刚测试通过：

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

2楼

ahljy351 发表于：2008/9/17 19:18:00

这代码往哪加啊？

3楼

ahljy351 发表于：2008/9/17 19:20:00

("c:\资料卡.xls") 能不能设成相对路径？也就是项目目录下？

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

4楼

老大不小 发表于：2008/9/17 19:43:00

同楼上，呵呵

5楼

gdtgl 发表于：2008/9/17 19:58:00

1.代码可以写在窗口的按纽的 click事件中
2.将报表保存在你想要的目录下...没有限制的吧.(EXCEL报表要先做好的吧)

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

6楼

贺老六 发表于：2008/9/17 20:30:00

ProjectPath

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

7楼

kylin 发表于：2008/9/18 7:28:00

经典之一！

8楼

kylin 发表于：2008/9/18 7:38:00

呵呵，估计只能装一个EXCEL 了，
再装一个Access还方便学习外部数据表呢。

9楼

还不错 发表于：2008/9/18 7:52:00

以下是引用hnaysx在2008-9-18 7:31:00的发言：

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

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

希望能支持Ｗｐｓ！

10楼

贺老六 发表于：2008/9/18 8:47:00

呵呵，是否支持wps，不是我决定的，由金山决定，关键他们能否提供编程工具。

共10 条记录, 每页显示 10 条, 页签: [1]