[VBA 매크로] 엑셀 매크로 다른 파일 셀값 가져오기

엑셀 파일 열지 않고 데이터 가져오기

Option Explicit
Sub get_From_Closed_File()
    Dim strPath As String                                      '폴더의 경로를 넣을 변수
    Dim fileName As String                                    '파일 이름을 넣을 변수
    Dim shtName As String                                   '시트 이름을 넣을 변수
    Dim rngAll As Range                                       '가져올 데이터 영역을 넣을 변수
    Dim rngC As Range                                        '각 셀을 넣을 변수
        
    strPath = "C:\Users\Downloads\"         '폴더 경로
'    strPath = ThisWorkbook.Path & "\"                 '폴더 경로
    fileName = "2020-07-08-update-PRICE.xlsx"                                  '파일 이름
    shtName = "OOB Excel Download"                                        '시트 이름
    Set rngAll = Range("A1:A30")                            '가져올 데이터 영역
   
    For Each rngC In rngAll                                  '가져올 영역의 각 셀을 순환
        rngC.Formula = "='" & strPath & "[" & fileName & "]" _
            & shtName & "'!" & rngC.Address(0, 0)     '가져올 셀의 수식을 입력
            rngC = rngC.Value                                 '셀값을 수식에서 값으로 변환
    Next rngC
   
    Set rngAll = Nothing                                        '개체변수 초기화(메모리 비우기)

End Sub

 

출처:

https://m.blog.naver.com/rosa0189/60208713555