[파일을 열지 않고 데이터불러오기]

[파일을 열지 않고 데이터불러오기]

[Reference] : 디케, 「eXCEL VBA)엑셀파일 열지않고 내용 불러오기」 http://urin79.com/?mid=blog&document_srl=3848696.

function을 불러야한다. 다음과 같은 식으로.

변수 = ReadValue(Path, strFile, strSheet, strAddress)

Function ReadValue(Path, File, sht, Rng) As Variant

Dim Msg As String

Dim strTemp As String

If Trim(Right(Path, 1)) <> "\" Then Path = Path & "\"

'데이터가 있는 원본 파일이 없으면 에러를 표시 매크로를 종료.

If Dir(Path & File) = "" Then

ReadValue = "해당 파일이 없습니다"

Exit Function

End If

Msg = "'" & Path & "[" & File & "]" & sht & "'!" & Range(Rng).Range("a1").Address(, , xlR1C1)

‘Path까지 꼭 써줘야함. 범위 전체를 가져오지는 못하고, 셀하나씩 가져옴

ReadValue = ExecuteExcel4Macro(Msg)

End Function