Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共2 条记录, 每页显示 10 条, 页签: [1]
[浏览完整版]

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

1楼
feiyu988 发表于: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楼
有点蓝 发表于:2023/8/30 9:23:00
Sheet.Name = Tables("出库单").Current("月份") 
共2 条记录, 每页显示 10 条, 页签: [1]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .03906 s, 2 queries.