如何使用 vba 打开名称更改的 excel 工作簿

Question

我每天都会收到报告，需要从中创建另一个报告

我得到的文件是.xlsx 格式的“XYZ（当前日期）”

我已将流程自动化，但无法通过单击按钮将其应用于日常文件

Sub Run_All_Macros()
'Order in which macros will run


'Creatin sheets
add_rename_sheets

'Copying data
copy_data

'Uniques
uniques_sheet

'Connect
connect_sheet

'SNS
SNS_sheet

'Formatting
formatting_sns

End Sub

我已经制作了上面运行完美但仅在当前文件中运行的宏。 我想打开“XYZ（当前日期）.xlsx”并在其中运行宏

第一个宏代码

Sub add_rename_sheets()


Sheets.Add after:=Sheets("East"), Count:=6

Sheets(2).Name = "SNS"
Sheets(3).Name = "Connect"
Sheets(4).Name = "Map"
Sheets(5).Name = "Vl_formula"
Sheets(6).Name = "Uniques"
Sheets(7).Name = "Sourcing Matrix"

End Sub

Answer 1

您可以循环目录中的所有文件，如下所示

Sub test()
    Dim file As String, path As String
    Dim wb As Workbook
    Dim ws As Worksheet
    
    path = "some path" ' your directory
    
    file = Dir(path & "\" & "*.xlsx")
    Do While file <> ""
        Set wb = Workbooks.Open(path & "\" & file)
        '   do your code
        '<>
        
        ' </>
        wb.Close
        Set wb = Nothing
        file=dir()
    Loop
    
End Sub