[Excel VBA] 다른 엑셀 파일 값 가져오기

'Excel 2016' 기준으로 작성된 글입니다. VBA(Visual Basic for Application)는 엑셀에서 사용할 수 있는 사용자 정의 함수를 구현할 때 사용합니다. 자주 사용하는 기능과 함수를 소개합니다.

 

다른 엑셀 파일 참조하기

 

다른 파일의 셀의 값을 가져와 적용하는 예제입니다.

 

아래와 같이 "통합 문서 2.xlsx" 파일에 값이 저장되어 있습니다. 이 파일을 닫아줍니다.

 

 

아래와 같이 "통합 문서1.xlsx"에 "통합 문서2.xlsx"에 저장된 A1:C3값을 가져오기 위한 버튼을 삽입합니다.

 

 

버튼에 대한 VBA 코드는 다음과 같습니다.

Private Sub CommandButton1_Click()

    Dim copy_range As Variant
    
    Application.Workbooks.Open Filename:=ThisWorkbook.Path & "\" & "통합 문서2" & ".xlsx"
    copy_range = Sheets(1).Range("A1:C3").Value
    ActiveWorkbook.Close
    
    Sheets(1).Range("A1:C3") = copy_range
    
End Sub

 

Application.Workbooks.Open은 새로운 파일을 열 때 사용합니다. Filename:= 뒤에 자신이 열고자 하는 파일 경로와 이름을 적습니다. "통합 문서1.xlsx"와 "통합 문서2.xlsx"는 같은 폴더 내에 저장했기 때문에 ThisWorkbook.Path를 통해 앞 경로를 동일하게 하였습니다.

 

Variant 형의 copy_range 변수에 "통합 문서2.xlsx"에 저장된 A1:C3 셀의 값을 저장합니다. 그리고, ActiveWorkbook.Close로 닫습니다.

 

이제 다시 ActiveWorkbook은 "통합 문서1.xlsx"로 돌아옵니다. 그 파일에 첫 시트에 A1:C3에 방금 저장한 값을 붙여넣습니다.

 

이제 작성을 마치면 저장하고 버튼을 눌러봅시다.

 

아래와 같이 나타나셨나요? 버튼을 누르면 무언가 반짝하고 열렸다가 닫힙니다. 그리고 나서 저렇게 값을 불러옵니다.