以文本方式查看主题 - Foxtable(狐表) (http://foxtable.net/bbs/index.asp) -- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2) ---- excel报表引用模板,不保存,手动保存是文件名加上日期后缀 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=115626) |
-- 作者:whyxd -- 发布时间:2018/3/10 15:50:00 -- excel报表引用模板,不保存,手动保存是文件名加上日期后缀 excel报表,是基于模板,想要实现,引出时不保存,和新建excel一个效果,手动保存时再选择保存路径,而且保存时文件名=模板文件名+日期.求教如何能实现. |
-- 作者:有点蓝 -- 发布时间:2018/3/10 16:02:00 -- Dim dlg As New SaveFileDialog \'定义一个新的SaveFileDialog dlg.Filter= "文本文件|*.txt" \'设置筛选器 dlg.FileName = "出库单" & Formst(Date.Today,"yyyyMMdd") & ".xls" If dlg.ShowDialog = DialogResult.Ok Then \'如果用户单击了确定按钮 Dim Book As New XLS.Book(ProjectPath & "Attachments\\出库单.xls") Dim fl As String = dlg.FileName Book.Build() \'生成细节区 Book.Save(fl) \'保存工作簿 Dim Proc As New Process \'打开工作簿 Proc.File = fl Proc.Start() End If
|
-- 作者:whyxd -- 发布时间:2018/3/10 16:26:00 -- ok!完全好用!多谢! |