Sub BookOpen()
    Dim strPath As String
    
    strPath = ThisWorkbook.Path
    ChDrive strPath
    ChDir strPath

    Workbooks.Open "ABC.xls"

End Sub

 

Microsoft Office ブログランキングへ