Excelのマクロを.xlsmとして設定ドライブの場所に保存する

Question

セル内の値を.xlsm形式のタイトルとして使用して、定義済みの場所にExcelファイルを保存するマクロを作成しようとしています実際にはファイルは保存されませんが、動作するように見えますか？私は何が間違っているのか分かりません。ここでのマクロは次のとおりです。adavce

Answer 1

で

Sub Savefileas() 
ThisFile = Range("B4").Value 
Dim varResult As Variant 

varResult = Application.GetSaveAsFilename(FileFilter:= _ 
"Macro Enabled Workbook" & "(*.xlsm), *xlsm", Title:=Range("B4").Value &".xlsm", _ 
InitialFileName:="C:\Work\" & ThisFile & ".xlsm") 

End Sub 

おかげで、この試してみて。エラーキャッチも追加されました。

Sub Savefileas() 
    Dim ThisFile As String 
    Dim varResult As Variant 
    ThisFile = Range("B4").Value 
    varResult = Application.GetSaveAsFilename(FileFilter:= _ 
    "Macro Enabled Workbook" & "(*.xlsm), *xlsm", Title:=ThisFile & ".xlsm", InitialFileName:="C:\My Documents\" & ThisFile & ".xlsm") 
    With ActiveWorkbook 
     On Error GoTo message 
     .SaveAs varResult & ".xlsm", FileFormat:=52 
     Exit Sub 
     message: 
     MsgBox "There is an error" 
    End With 
End Sub