경로를 지정하여 워크북을 여는 방법

경로를 지정하여 워크북을 여는 방법

Sub openwb()  
    ChDir "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY"
    Workbooks("D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm").Open    
End sub

여기서 다음과 같은 오류가 발생합니다.Subscript out of range삼선에서경로를 지정한 워크북을 열려면 어떻게 해야 합니까?

Workbooks.open("E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm")

아니면 좀 더 체계적인 방법으로...

Sub openwb()
    Dim sPath As String, sFile As String
    Dim wb As Workbook

    sPath = "E:\sarath\PTMetrics\20131004\D8 L538-L550 16MY\"
    sFile = sPath & "D8 L538-L550_16MY_Powertrain Metrics_20131002.xlsm"

    Set wb = Workbooks.Open(sFile)
End Sub

메시지를 통해 필요한 파일을 열 수도 있습니다. 이렇게 하면 다른 경로와 다른 파일에서 파일을 선택할 때 도움이 됩니다.

Sub openwb()
Dim wkbk As Workbook
Dim NewFile As Variant

NewFile = Application.GetOpenFilename("microsoft excel files (*.xlsm*), *.xlsm*")

If NewFile <> False Then
Set wkbk = Workbooks.Open(NewFile)
End If
End Sub

언급URL : https://stackoverflow.com/questions/19157385/how-to-open-a-workbook-specifying-its-path