Attribute VB_Name = "testbooknew13"
Sub テスト()
    
    Workbooks.Open filename:="C:\excelsample\2005年成績.xls"
     
    ActiveSheet.Range("A1").Value = "保存"
    ActiveWorkbook.Close SaveChanges:=True, filename:="backup.xls"
    
End Sub