以文本方式查看主题 - 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("月份") |