Excel Macro для «Сохранить как» в заданном местоположении диска в виде .xlsm

Question

Я пытаюсь написать макрос, чтобы сохранить файл excel в определенном месте, используя значение в ячейке в качестве заголовка в формате .xlsm , он работает, но фактически не сохраняет файл? я не уверен, что я сделал неправильно? вот макрос:

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 

Спасибо adavce

Answer 1

Дайте этому попытку. Также была добавлена ​​ошибка.

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