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