[Excel] 2. 능력있는 직장인이 되는 법. 다른 파일 불러오기!

안녕하세요! gbgg입니다. 능력 있는 직장인이 되는 법! 엑셀 자동화 강의 두 번째입니다.

(완전 초보도 쉽게 따라 할 수 있도록 작성하였습니다!)

이번 포스팅에서는 다른 파일에 있는 시트를 불러오도록 해보겠습니다!

일을 더 편하게 하기 위해선 이런 기능도 필요하겠죠?

파일 불러올 때 파일명을 코드가 아닌 셀의 내용을 참조하여 불러오기
(같은 폴더에 있는 파일)

확장자 선택하기

가져오고 싶은 시트명 고르기

자 이 그림처럼 파일명과 확장자, 시트명을 적으면 해당 파일 시트를 불러오는

작업을 버튼 하나로만 할 수 있게 해 보겠습니다!

어렵지 않으니 천천히 따라오세요! 아 참 이렇게 매크로가 저장된 파일을 사용하려면 저장할 때

확장자를 다음과 같이 바꿔야 하는데요. 간단하게 설명드릴게요!

엑셀에서 매크로나 비주얼베이직을 사용하려고 하면 위 그림과 같이 확장자를 바꿔주셔야 합니다.

Excel 매크로 사용 통합 문서 (.xlsm)
Excel 바이너리 통합 문서 (.xlsb)

기본적으로 사용하시려면 1번 .xlsm을 선택하시면 되는데 아무래도 업무용으로 사용하다 보면 데이터가 쌓이고 쌓여서 느려지는 현상이 발생합니다. 이럴 때는 바이너리 통합 문서로 저장하시면 용량도 대폭 감소하고 그만큼 처리 속도도 많이 증가하게 되니 참고하세요!

기본 세팅

다음과 같이 엑셀 파일 A를 새로만든 뒤 각 셀을 아래처럼 꾸밉니다.

자료가 들어있는 엑셀파일 B를 새로 생성하겠습니다. 다음과 같이 내용을 쓰고 시트명을 1번시트 로 변경합니다.

엑셀 파일 B의 파일명은 스팀잇 불러오기 테스트 로 하겠습니다.

버튼 및 코드 생성

아래와 같이 버튼을 생성합니다.

다음과 같이 모듈을 생성해줍니다.

Sub 시트불러오기()

Dim shtName, shtEx As String
Dim strPath As String
Dim strFile As String
Dim sh As Worksheet
Dim shExist As Boolean

shtName = Sheets("sheet1").Cells(2, 2).Value + Sheets("sheet1").Cells(2, 3).Value
shtEx = Sheets("sheet1").Cells(2, 4).Value

strPath = ThisWorkbook.Path + "\"
strFile = strPath & shtName

Workbooks.Open Filename:=strFile

shExist = False
For Each sh In ThisWorkbook.Worksheets
If (sh.Name = shtEx) Then
shExist = True
Exit For
End If
Next

'시트가 있으면
If (shExist = True) Then
ThisWorkbook.Sheets(shtEx).Delete
End If

Workbooks(shtName).Worksheets(shtEx).Copy Before:=ThisWorkbook.Sheets(1)
Workbooks(shtName).Close

End Sub

코드가 길어서 어렵게 느껴지실 수 있는데 아래에 따로 설명을 드릴 테니 지금은 따라만 하셔도 됩니다!