Excel VBA-从同一文件夹中的文件导入，并带有任意名称，但末尾有特定编号

Question

我希望能够从同一文件夹中的文件导入数据，但是调用的名称并不重要，但末尾的数字确实可以。 目前我有

Sub Import_Data()

Dim rng As Range
Dim WB2 As Workbook
Dim FName As String
Dim c1 As Worksheet
Set c1 = Sheets("c")

    FName = Application.ActiveWorkbook.Path + "_w" & Format((WorksheetFunction.WeekNum(Now) - 1), "00")
    Set WB2 = Workbooks.Open(Filename:=FName)

   c1.Range("L2:O6").Value = WB2.Worksheets(3).Range("M2:P6").Value

    c1.Range("L14:O18").Value = WB2.Worksheets(3).Range("M14:P18").Value

WB2.Close

End Sub

我想将以下行从

FName = Application.ActiveWorkbook.Path + "_w" & Format((WorksheetFunction.WeekNum(Now) - 1), "00")

像

FName = Application.ActiveWorkbook.Path + *Any Name before the last 2 digits* & Format((WorksheetFunction.WeekNum(Now) - 1), "00")

因此，它基本上不会查看工作表的名称，而是会查看末尾的两位数。

周数在文件夹中将始终是唯一的，但名称可能有所不同。 例如

文件夹可能包含以下文件：

Worksheet 1 w21
Different Name w22
Alternate w23

如果我们在w24中，我希望它从“ Alternate w23”中导入

我希望这是有道理的。 谢谢

编辑-替代

如果这不可能，那么如果前几周的文件与当前文件具有相同的名称，则该文件也将起作用。 因此，如果活动工作簿被称为“ Workbook w23”，则它将在同一文件夹中找到“ Workbook w22”。 但是，可能需要概括表的名称。 因此，与原来的建议“最后一个2位数字之前的任何名称”不同 ，它将与活动工作簿的名称相同，末尾有2个不同的数字

Answer 1

如果我的解释正确，那么您只需要一个通配符：

FName = Dir(Application.ActiveWorkbook.Path & "\\*w" & Format((WorksheetFunction.WeekNum(Now) - 1), "00") & ".xlsm")