Attribute VB_Name = "testbooknew5"
Sub テスト()
    
    Dim book1 As Workbook

    Workbooks.Open filename:="C:\excelsample\2005年成績.xls"
    ActiveSheet.Range("A1").Value = "保存"

    Set book1 = ActiveWorkbook
    book1.Save
    book1.Close
    
End Sub