file을 열지 않고 값 가져오기

 

ExecuteExcel4Macro()함수를 이용하면 엑셀 파일을 열지 않고 안에 있는 내용만 가지고 올 수 있습니다.

 

Sub main()
    filePath = "c:\practice\"
    Filename = "삼정.xlsx"
    sheetName = "Sheet3"

    For i = 4 To 8
        Msg = "'" & filePath & "[" & Filename & "]" & sheetName _
        & "'!" & Range("B" & i).Range("a1").Address(, , xlR1C1)

        Debug.Print Msg
        value_01 = ExecuteExcel4Macro(Msg)
        Debug.Print value_01
    Next
End Sub

 

아래는 바탕화면에 있는 'separated_row_data_sheet.xlsx'라는 excel 파일에서

"Sheet1"시트에서 4행 1열의 값을 뽑오는 예제이다.

Sub main2()

 

    filePath = "C:\Users\Dell\Desktop\"

    fileName = "separated_row_data_sheet.xlsx"

    sheetName = "Sheet1"

    row = 4

    column = 1

    

    

    result = getCellValue(filePath, fileName, sheetName, row, column)

    

    Debug.Print result

    

    

End Sub

 

 

Function getCellValue(filePath, fileName, sheetName, row, column)

    Msg = "'" & filePath & "[" & fileName & "]" & sheetName _

    & "'!" & Cells(1, 1).Cells(row, column).Address(, , xlR1C1)

    

    getCellValue = ExecuteExcel4Macro(Msg)

    

End Function

 

 end