VBA打开一个改变标题的文件

我需要使用具有不断变化的标题的VBA打开文件。 文件名称为Membership_Sales_Figures_for_14082017-20082017_104942.xls。 我的代码产生一个错误，它找不到该文件。 它将该文件称为Weekly Control \ Membership.xls

Sub Test() Const fpath As String = "Weekly Control\Membership\" Dim fname As String Dim lname As String ' Below gives you the Monday of the week fname = Format(Date - (Weekday(Date) + 6) + 1, "ddmmyyyy") lname = Format(Date - (Weekday(Date)) + 1, "ddmmyyyy") fname = "Membership_Sales_Figures_for_" & fname & "-" & lname & "*" & ".xls" fname = fpath & fname fname = fpath & Dir(fname) Dim wb As Workbook Set wb = Workbooks.Open(fname) If wb Is Nothing Then MsgBox "File does not exist": Exit Sub End Sub 

Answer 1

只需使用dir(fname)来查找与您的expression式匹配的文件即可。 请注意，它返回第一个find的文件。

 fname = "Membership_Sales_Figures_for_" & fname & "-" & lname & "*" & ".xls" fname = fpath & fname fname = fpath & dir(fname) 

Answer 2

你正在寻找这个文件。 “Membership_Sales_Figures_for_14082017-20082017_104942.xls”

但是你的代码在文件的末尾添加了一个“*”。

 fname = "Membership_Sales_Figures_for_" & fname & "-" & lname & "*" & ".xls" 

删除& "*"