본문으로 바로가기

file을 열지 않고 값 가져오기

category Excel VBA/VBA 예제 2016.06.11 15:41

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




댓글을 달아 주세요

  1. 이지훈 2016.08.03 01:53 신고

    안녕하세요
    요즘 엑셀 공부 하다고 우연찮게 blog를 봤는데..와.. 저 탁구 20년 쳐서 지역 1부거든요
    탁구 치시는 분들은 다 반가워요
    그런데..엑셀 vba 및 database, SAP 등 저와 지금 공부하는것이 많이 겹치시는거 같아서..
    지역이 가까우면 한번 만나서 운동도 하고, excel도 좀 배우고 싶어요..다른건 몰라도 탁구는 제가 좀 알려 드릴수 있을듯 해요 ^^ 제 멜 주소는 jihun.lee@fairchildsemi.com 입니다.

  2. 이지훈 2016.08.03 01:54 신고

    아..저는 부천 살아요