아...이거 참 어렵네요. VBA를 그렇게 잘하지 못해서 이것저것 검색해 봐도 해결을 못하고 있어요. 하다하다 안되서 와싸다 엑셀고수님 있으시면 도움 부탁드립니다. ㅠ



불러올 파일이 같은경로에 있는 경우는 쉬운데, 다른폴더에 있는 엑셀파일을 불러 와야 하거든요. 소스는 아래와 같은데요, 그나마 구현한게 불러올 엑셀파일이 열려 있어야만 값을 가져오네요. 물론 불러올 엑셀파일이 닫혀있으면 값을 못갖고 오고 #REF! 로 값이 들어옵니다. 구현하는 방식이 틀렸는지 미치겠네요. ㅠ



Dim strPath As String, strFile As String, strSht As String, strCell As String

Dim i As Integer

Dim vFile As Variant



strPath = "C:\Users\AAA\BBB\" → 불러올 파일 경로

strFile = Range("b4") + ".csv" → b4셀에 입력된 파일이름

strSht = Range("b4")

For i = 0 To 3

strCell = Range("a1").Offset(i, 0).Address

Worksheets("raw").Range("a1").Offset(i, 0) = Get_Data(strPath, strFile, strSht, strCell)

Next



Function Get_Data(Path, File, Sht, Cell)

Dim strD As String

strD = "'" & Path & "[" & File & "]" & Sht & "'!" & Range(Cell).Address(, , xlR1C1)

Get_Data = ExecuteExcel4Macro(strD)

End Function