Attribute VB_Name = "testbooknew11"
Sub テスト()
    
    Dim fname As String

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

    fname = Application.GetSaveAsFilename( _
        FileFilter:="Excelファイル,*.xls,全てのファイル,*.*", _
        FilterIndex:=1, _
        InitialFileName:="成績表保存.xls", _
        Title:="成績ファイルの保存")
        
    If fname <> "False" Then
        ActiveWorkbook.SaveAs filename:=fname
    End If
        
End Sub