以文本方式查看主题

-  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!完全好用!多谢!