Vba:폴더의 모든 파일을 여는 방법

VBA에서 Workbooks.Open 메서드와 함께 Do While 루프를 사용하여 특정 폴더의 모든 파일을 열 수 있습니다.

실제로 이를 수행하는 일반적인 방법은 다음과 같습니다.

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

이 특정 매크로는 다음 폴더에서 확장자가 .xlsx 인 모든 파일을 엽니다.

• C:\Users\bob\Documents\current_data

다음 예에서는 이 매크로를 실제로 사용하는 방법을 보여줍니다.

관련: VBA를 사용하여 열려 있는 모든 통합 문서 목록을 얻는 방법

예: VBA를 사용하여 폴더의 모든 파일을 여는 방법

세 개의 .xlsx 파일이 포함된 current_data 라는 다음 폴더가 있다고 가정해 보겠습니다.

VBA를 사용하여 이 폴더에 있는 모든 .xlsx 파일을 열고 싶다고 가정해 보겠습니다.

이를 위해 다음 매크로를 생성할 수 있습니다:

 Sub OpenAllFilesInFolder()

Dim ThisFolder As String
Dim ThisFile As String

'specify folder location and types of files to open in folder
ThisFolder = "C:\Users\bob\Documents\current_data"
ThisFile = Dir(ThisFolder & "\*.xlsx")

'open each xlsx file in folder
Do While ThisFile <> ""
    Workbooks.Open Filename:=ThisFolder & "\" & ThisFile
    ThisFile = Dir
Loop

End Sub

이 매크로를 실행하면 폴더에 있는 확장자가 .xlsx 인 각 파일이 하나씩 열립니다.

폴더에 이미 열려 있는 파일이 있으면 해당 파일은 계속 열려 있습니다.

참고 : 여기 에서 VBA의 Workbooks.Open 메서드에 대한 전체 설명서를 찾을 수 있습니다.

추가 리소스

다음 자습서에서는 VBA에서 다른 일반적인 작업을 수행하는 방법을 설명합니다.

VBA를 사용하여 파일 이름을 바꾸는 방법
VBA를 사용하여 폴더의 파일을 나열하는 방법
VBA를 사용하여 파일이 존재하는지 확인하는 방법