Foxtable(狐表)用户栏目专家坐堂 → [求助]Excel报表导出问题


  共有2115人关注过本帖平板打印复制链接

主题:[求助]Excel报表导出问题

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


加好友 发短信
等级:童狐 帖子:286 积分:2345 威望:0 精华:0 注册:2013/8/30 3:37:00
[求助]Excel报表导出问题  发帖心情 Post By:2015/6/7 7:59:00 [只看该作者]

请问各位报表导出时,是否可以自定义保存地址和文件名,帮助看了一下没有找到,请各位帮帮忙,看看?

Dim Book As New  XLS.Book(ProjectPath &  "Attachments\报表1.xls")
Dim fl As  String = ProjectPath  &  "Reports\报表1.xls"       (可以自定义保存地址和文件名吗?)
Dim Sheet As XLS.Sheet = Book.Sheets(0)
Sheet(3,9).Value = "<" & Tables("检查").Filter & ">" '写入打印条件
Book.Build() '生成细节区
Book.Save(fl) '保存工作簿
Dim Proc As New Process
Proc.File = fl
Proc.Start()

Syscmd.Table.ToggleSortAndFilter()

 回到顶部