以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]请教代码生成excel报表动态生成sheet名  (http://foxtable.net/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("月份")