Foxtable(狐表)用户栏目专家坐堂 → 在窗口显示和打印Excel报表 如何另存EXCEL报表


  共有12273人关注过本帖树形打印复制链接

主题:在窗口显示和打印Excel报表 如何另存EXCEL报表

帅哥哟,离线,有人找我吗?
blackzhu
  1楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/7/27 15:29:00 [显示全部帖子]

  Book.Save("c:\reports\test.xls")

 回到顶部
帅哥哟,离线,有人找我吗?
blackzhu
  2楼 | QQ | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信 一级勋章
等级:狐仙 帖子:9879 积分:57634 威望:0 精华:15 注册:2008/9/1 9:45:00
  发帖心情 Post By:2010/7/27 15:53:00 [显示全部帖子]

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls") '打开模板
Dim
Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(
6,6).Value = "制单人:" & User.Name '修改模板,加入制单人信息
Book.Build()
'生成细节区
Book.Save(
"c:\reports\test.xls") '保存工作簿
Dim
Proc As New Process '打开工作簿
Proc.File =
"c:\reports\test.xls"

Proc.Start()

 

基于模板,将此模板保存到你要求的路径,就是另存为了.


 回到顶部