현재 파일 경로의 폴더에 포함 된 파일을 여는 방법

와일드 카드를 유지하려면 폴더에있는 파일을 반복해야합니다. 다음과 같은 내용이 흥미로울 수 있습니다.

Sub FileOpen()

Dim sPath As String
Dim sFile As String
Dim wb As Workbook

    sPath = ThisWorkbook.Path & "\Source\"
    sFile = Dir(sPath & "file*.xlsx")

    ' Loops while there is a next file found in the specified directory
    ' When there is no next file the Dir() returns an empty string ""
    Do While sFile <> ""

        ' Prints the full path of the found file
        Debug.Print sPath & sFile

        ' Opens the currently found file
        Set wb = Workbooks.Open(sPath & sFile)

        ' Place your code here
        ' Place your code here
        ' Place your code here

        ' Close the current workbook and move on to the next
        wb.Close

        ' This line calls the Dir() function again to get the next file
        sFile = Dir()

    Loop

End Sub

행운을 빕니다!