以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助] 导出报表动态路径  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=103204)
--  作者：KWK001
--  发布时间：2017/7/3 10:47:00
--  [求助] 导出报表动态路径
我想保存是报表在  D:\\KLF二维码\\ 今天日期 \\  " & Tables("二维码").current("生产批号") & " " & Tables("二维码").current("生产批号2") & ".xls"

但是不知道怎么写，老写不对？请帮助


Dim Book As New XLS.Book(ProjectPath & "Attachments\\二维码.xls") \'打开模板
Dim fl As String ="D:\\KLF二维码\\" & Tables("二维码").current("生产批号") & " " & Tables("二维码").current("生产批号2") & ".xls"

Dim Sheet As XLS.Sheet = Book.Sheets(0)
Book.Build() \'生成报表
Book.Save(fl)
Dim Proc As New Process
Proc.File = fl
\'Proc.Start()
e.Form().Close
--  作者：有点甜
--  发布时间：2017/7/3 10:49:00
--  
Dim fl As String ="D:\\KLF二维码\\" & format(date.today, "yyyyMMdd") & "\\" & Tables("二维码").current("生产批号") & " " & Tables("二维码").current("生产批号2") & ".xls"
[此贴子已经被作者于2017/7/3 10:49:58编辑过]
--  作者：KWK001
--  发布时间：2017/7/3 13:19:00
--  
谢谢！好了