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

    Workbooks("2005年成績.xls").Activate
    
End Sub