[Excel VBA] 특정 폴더의 모든 엑셀 파일을 열어 작업수행

목적

: 엑셀 VBA(Excel VBA)를 사용하여 특정 폴더의 Excel 파일들을 열어 원하는 작업을 수행

실행 결과

: 폴더내의 모든 엑셀 파일을 순차적으로 열어서 지정한 작업들을 수행한 후에 저장한다.

코드

Sub ProcessFiles()        Application.DisplayAlerts = False  '경고 메시지 표시하지 않기          Dim Filename, Pathname As String     Dim wb As Workbook     Pathname = "D:\FolderName\"     Filename = Dir(Pathname & "*.xlsx")         Do While Filename <> ""             Set wb = Workbooks.Open(Pathname & Filename)             DoWork wb             wb.Close SaveChanges:=True '작업 파일,  작업 후 저장. 저장하지 않을 경우 False             Filename = Dir()         Loop     Application.DisplayAlerts = True  '경고 메시지 표시하기 End Sub Sub DoWork(wb As Workbook) 'DoWork 에서 매개변수 WorkBook(엑셀파일) 을 가져와서 작업 수행     Dim raw_sht As Worksheet     Dim xWs As Worksheet     Dim i, j As Integer     With wb         '반복할 작업을 이곳에 넣는다.!     End With End Sub