Attribute VB_Name = "testbook3"
Sub テスト()
    
    Workbooks.Open "C:\excelsample\2005年成績.xls"
    Workbooks.Open "C:\excelsample\2006年成績.xls"

    Workbooks("2005年成績.xls").Activate
    MsgBox ActiveWorkbook.name

End Sub