엑셀 VBA 개별 파일 시트 복사 하나의 파일에 통합 방법(작성, 코드)

티스토리 뷰

카테고리 없음

엑셀 VBA 개별 파일 시트 복사 하나의 파일에 통합 방법(작성, 코드)

TV드라마재방송다시보기 2024. 11. 11. 09:09

엑셀에서 VBA(Visual Basic for Applications)를 사용하여 여러 개의 개별 파일에 있는 시트를 하나의 파일로 통합하는 방법은 자동화된 데이터 관리 및 분석에 매우 유용합니다. 특히, 여러 부서나 팀에서 관리하는 파일을 하나로 합칠 때 시간을 절약할 수 있습니다. 이 글에서는 VBA 코드를 활용하여 개별 파일의 시트를 복사하고, 이를 하나의 엑셀 파일에 통합하는 방법을 단계별로 설명하겠습니다.

1. VBA를 이용한 시트 통합 개요

엑셀 VBA를 사용하면 여러 개의 엑셀 파일에서 특정 시트들을 선택하여 하나의 파일에 통합할 수 있습니다. 이 과정은 수동으로 각 파일을 열고 데이터를 복사하는 대신, 자동화된 방식으로 처리할 수 있어 매우 효율적입니다.

주요 작업 흐름:

파일 선택: 여러 엑셀 파일을 선택합니다.
파일 열기: 선택한 파일들을 순차적으로 엽니다.
시트 복사: 각 파일의 시트를 복사하여 새로운 통합 파일에 붙여넣습니다.
파일 닫기: 작업이 완료된 파일을 닫습니다.

이러한 작업을 수행하기 위해서는 VBA 코드를 작성해야 하며, 아래에서 그 구체적인 방법을 설명하겠습니다.

2. VBA 코드 작성

2.1 파일 선택 및 열기

먼저, 사용자가 여러 개의 엑셀 파일을 선택할 수 있도록 파일 선택 다이얼로그를 띄우는 코드를 작성합니다. 이때 Application.GetOpenFilename 함수를 사용하여 다중 선택이 가능하도록 설정합니다.

Sub 통합_시트_복사()

    ' 화면 업데이트 중지
    Application.ScreenUpdating = False
    Application.DisplayAlerts = False

    ' 다중 파일 선택
    Dim fileNo As Variant
    fileNo = Application.GetOpenFilename(FileFilter:="엑셀파일(*.xlsx*),*.xlsx*", MultiSelect:=True)

    ' 선택된 파일이 없으면 종료
    If IsArray(fileNo) = False Then Exit Sub

    Dim i As Integer
    Dim ingFile As Workbook
    Dim ws As Worksheet
    Dim sSheetName As String

    ' 선택한 파일들을 순차적으로 열기
    For i = LBound(fileNo) To UBound(fileNo)
        Set ingFile = Workbooks.Open(Filename:=fileNo(i), ReadOnly:=True)

        ' 첫 번째 시트만 복사 (필요시 여러 시트로 확장 가능)
        Set ws = ingFile.Sheets(1)

        ' 새로운 시트 추가 및 이름 설정
        ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
        ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "복사된시트" & i

        ' 원본 파일 닫기
        ingFile.Close SaveChanges:=False
    Next i

    ' 화면 업데이트 재개
    Application.ScreenUpdating = True
    Application.DisplayAlerts = True

End Sub

2.2 코드 설명

Application.GetOpenFilename: 사용자에게 다중 파일 선택 창을 띄웁니다. MultiSelect:=True 옵션으로 여러 개의 파일을 한 번에 선택할 수 있습니다.
Workbooks.Open: 선택한 각 파일을 엽니다.
ws.Copy: 현재 열려 있는 통합 문서에 각 개별 파일의 첫 번째 시트를 복사합니다.
ingFile.Close: 복사가 끝난 후 원본 파일을 저장하지 않고 닫습니다.
Application.ScreenUpdating 및 Application.DisplayAlerts: 화면 업데이트와 경고 메시지를 비활성화하여 매크로 실행 속도를 높이고 불필요한 경고창을 제거합니다.

2.3 여러 시트 복사하기

위 코드에서는 각 파일의 첫 번째 시트만 복사하지만, 모든 시트를 복사하고 싶다면 For Each 문을 사용하여 각 워크북 내 모든 시트를 처리할 수 있습니다.

For Each ws In ingFile.Sheets
    ws.Copy After:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
Next ws

이 코드를 통해 각 워크북 내 모든 시트를 순차적으로 복사할 수 있습니다.

3. 코드 실행 방법

VBA 편집기 열기: 엑셀에서 Alt + F11 키를 눌러 VBA 편집기를 엽니다.
모듈 추가: 좌측 프로젝트 탐색기에서 해당 엑셀 파일을 우클릭하고, 삽입 > 모듈을 클릭하여 모듈을 추가합니다.
코드 입력: 위에서 작성한 VBA 코드를 해당 모듈에 붙여 넣습니다.
매크로 실행: F5 키를 눌러 매크로를 실행하거나, 엑셀 상단 메뉴에서 개발 도구 > 매크로를 통해 실행할 수 있습니다.

4. 주의사항 및 팁

파일 경로 설정: 코드 내에서 특정 폴더 경로를 지정하지 않았으므로, 매번 매크로 실행 시마다 원하는 파일들을 직접 선택해야 합니다.
시트 이름 중복 방지: 여러 개의 시트를 복사할 때 동일한 이름이 있을 경우 오류가 발생할 수 있으므로, 복사된 시트 이름에 고유한 번호나 날짜 등을 추가하는 것이 좋습니다.
ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = "복사된시트" & Format(Now, "yyyymmdd_hhmmss")
데이터 범위 지정: 특정 범위만 복사하고 싶다면 Range.Copy 메서드를 사용해 필요한 데이터만 복사할 수 있습니다.

5. 결론

엑셀 VBA를 활용하면 여러 개의 개별 엑셀 파일에서 데이터를 추출하고 하나의 통합 문서로 자동으로 병합하는 작업을 손쉽게 처리할 수 있습니다. 이를 통해 데이터 관리 효율성을 크게 높일 수 있으며, 반복적인 작업 시간을 줄일 수 있습니다.

위에서 소개한 코드를 필요에 맞게 수정하거나 확장하여 다양한 상황에 적용해 보세요.

티스토리 뷰