以文本方式查看主题

-  Foxtable(狐表)  (http://www.foxtable.com/bbs/index.asp)
--  专家坐堂  (http://www.foxtable.com/bbs/list.asp?boardid=2)
----  [求助]请教代码生成excel报表动态生成sheet名  (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=188056)
--  作者：feiyu988
--  发布时间：2023/8/30 9:03:00
--  [求助]请教代码生成excel报表动态生成sheet名
在用代码生成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编辑过]
--  作者：有点蓝
--  发布时间：2023/8/30 9:23:00
--  
Sheet.Name = Tables("出库单").Current("月份")