用于打开更改文件名的 VBA 代码

Question

我试图找出一行代码来打开文件。
路径是恒定的，即

"H:\silly\goose\*filename.xlsm*"

但是，每次我尝试运行此宏时，此文件名都会更改。这是因为我将使用这个宏来自动化我每周运行的报告。每个报告都保存在标题中的日期，所有报告都保存在同一个文件夹中，这意味着我不能一开始就将它们命名为同一个。
例子:

H:\silly\goose\Report 06-03-15.xlsm
H:\silly\goose\Report 05-27-15.xlsm

唯一有用的信息是该报告将在每周三运行。因此，每个文件名会有 7 天的差异。我不知道 Date 有什么我可以做的吗？不过这里的方法。

Answer 1

您需要做的是首先重新构建您的文件名。

Const fpath As String = "H:\silly\goose\" ' your fixed folder
Dim fname As String

' Below gives you the Wednesday of the week
fname = Format(Date - (Weekday(Date) - 1) + 3, "mm-dd-yy") ' returns 06-03-15 if run today
fname = "Report " & fname & ".xlsm" ' returns Report 06-03-15.xlsm
fname = fpath & fname ' returns H:\silly\goose\Report 06-03-15.xlsm

然后执行文件的打开:

Dim wb As Workbook
Set wb = Workbooks.Open(fname)
If wb Is Nothing Then MsgBox "File does not exist": Exit Sub

' Rest of your code goes here which works on wb Object