以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  [求助]根据当前日期按年、月存报表  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=39581)
--  作者：syzsyk
--  发布时间：2013/8/27 17:30:00
--  [求助]根据当前日期按年、月存报表

如下：

Dim Book As New XLS.Book(ProjectPath & "Attachments\\****报表.xls")

Dim fl As String = ProjectPath & "Reports\\****报表\\****年\\**月\\\'" & Date.Today & "\'.xls"

Book.Build() \'生成细节区
Book.Save(fl) \'保存工作簿
Dim Proc As New Process \'打开工作簿
Proc.File = fl
Proc.Start()

 

****年为当前年，**月为当前月，要求为动态的，代码如何写？请大侠帮忙。

 
--  作者：Bin
--  发布时间：2013/8/27 17:32:00
--  
拼接一下即可

你后面天都会拼接 date.today了 前面也是一样的   Date.Today.year & "年\\" & Date.Today.Month & "月\\" & Date.Today & ".xls"
--  作者：syzsyk
--  发布时间：2013/8/27 17:59:00
--  
ok,谢谢Bin版主！