Excel VBA 엑셀 파일 경로 값 가져오기 File Location

엑셀 파일 경로 값 가져오기

Function getCellValue(LOC_, strFile , strSheet , strPath )
'파일을 여는 것 따로 해줘야 하는데, 열었다 닫았다 prcess 과부하가 걸릴 수 있으므로 주의

    Dim strPath, strFile, strSheet, strRng, strRef, Result As String

    strPath = PathName_ 
    strFile = FileName_
    strSheet = SheetName_
    'strRng = Range(LOC_).Value
    strRng = LOC_

    strRef = "'" & strPath & "[" & strFile & "]" & strSheet & "'!" & strRng
    'Debug.Print (strRef)
    getCellValue = Range(strRef).Value
End Function

끝.