Foxtable(狐表)用户栏目专家坐堂 → [求助]做好的excel模板是否可以在生成报表时按日期生成工作表名


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

主题:[求助]做好的excel模板是否可以在生成报表时按日期生成工作表名

帅哥,在线噢!
有点蓝
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/3 16:28:00 [显示全部帖子]

使用代码生成报表:http://www.foxtable.com/webhelp/topics/1145.htm,比如

Dim fl As String = ProjectPath & "Reports\出库单" & format(date.today,"yyyy年MM月dd日") & ".xls"

 回到顶部
帅哥,在线噢!
有点蓝
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/3 16:43:00 [显示全部帖子]

每次都只能生成新的版本文件,无法在上次的报表里生成。生成报表后可以使用代码更改sheet的名称:http://www.foxtable.com/webhelp/topics/1152.htm

如果要合并多个文件的sheet到一个文件里,可以参考:http://www.foxtable.com/webhelp/topics/1465.htm

 回到顶部
帅哥,在线噢!
有点蓝
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/4 10:11:00 [显示全部帖子]

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:运费测试.zip


 回到顶部
帅哥,在线噢!
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2023/3/4 14:09:00 [显示全部帖子]

合并多个文件的sheet到一个文件里,可以参考:http://www.foxtable.com/webhelp/topics/1465.htm

比如第一次生成报表001.xlsx,第二次生成报表002.xlsx

Dim Book1 As New XLS.Book("C:\001.xls")
Dim 
Book2 As New XLS.Book("C:\002.xls")
Dim 
Sheet = Book2.Sheets(0)
Book2.Sheets.Remove(Sheet)
Book1.Sheets.Add(Sheet)
Book1.Save(
"C:\001.xls")


 回到顶部