[求助]请教代码生成excel报表动态生成sheet名 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

Foxtable(狐表) → 用户栏目 → 专家坐堂 → [求助]请教代码生成excel报表动态生成sheet名

共有3313人关注过本帖树形打印复制链接主题：[求助]请教代码生成excel报表动态生成sheet名

feiyu988

小大 1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：童狐帖子：278 积分：2915 威望：0 精华：0 注册：2013/8/28 22:21:00

[求助]请教代码生成excel报表动态生成sheet名 发帖心情

Post By：2023/8/30 9:03:00 [只看该作者]

在用代码生成excel报表时，想动态修改生成的报表sheet名称，不知道咋整，下面的代码不起作用

Dim Book As New XLS.Book(ProjectPath & "Attachments\出库单.xls")

Dim fl As String = ProjectPath & "Reports\出库单.xls"

Book.Build() '生成细节区

Book.Sheets(0).Rows.RemoveAt(0) '删除第一行,Excel报表的第一行通常是标记行

Dim Sheet As XLS.Sheet = Book.Sheets(0)

Sheet.Name = "<" & Tables("出库单").Current("月份") & ">" '写入打印条件

Book.Save(fl) '保存工作簿

Dim Proc As New Process '打开工作簿

Proc.File = fl

Proc.Start()

[此贴子已经被作者于2023/8/30 9:10:16编辑过]

有点蓝

小大 2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC

等级：超级版主帖子：110738 积分：563610 威望：0 精华：9 注册：2015/6/24 9:21:00

Post By：2023/8/30 9:23:00 [只看该作者]

Sheet.Name = Tables("出库单").Current("月份")

主题：[求助]请教代码生成excel报表动态生成sheet名