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

Question

I want to be able to import data from a file in the same folder, but it doesn't matter what it's called, but the number at the end does. Currently i have

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

I want to change the following line from

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

To something like

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

So it will basically not look at the name of the sheet but will look at the 2 digits at the end.

The week numbers will always be unique in the folder but the names might be different. Eg

Folder may contain the following files:

Worksheet 1 w21
Different Name w22
Alternate w23

If we are in w24, i'd like it to import from "Alternate w23"

I hope this makes sense. Thanks

EDIT - Alternative

If this isn't possible, It would also work if the previous weeks file had the same name as the current file. So if the active workbook was called "Workbook w23" Then it would find "Workbook w22" in the same folder. But it would need to be possible to generalise the name of the sheet. So instead of the original suggestion of Any Name before the last 2 digits it would be The same name as the active workbook with 2 different digits at the end

Answer 1

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

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