макрос «сохранить как» и не открывать сохраненный документ

Question

У меня есть следующий макрос, который «Сохранить как» копию документа Excel.

Sub STEP3SaveAs()
    Application.GetSaveAsFilename
End Sub

НО, каждый раз, когда я "Сохранить как", я попадаю на документ, который я только что сохранил ...

Мне нужна помощь с макросом, который будет "Сохранить как", и оставить меня в документе, над которым я работал.

Любая помощь будет высоко оценена.

Answer 1

Проблема в том, что GetSaveAsFilename вообще не сохраняет. Это просто показывает диалог для выбора имени файла, но не сохраняет его.

Вы можете использовать метод Workbook.SaveCopyAs , чтобы сохранить копию вашей фактической книги.

Public Sub SaveCopy()
    Dim Filename As String
    Filename = Application.GetSaveAsFilename 'choose filename

    ThisWorkbook.SaveCopyAs(Filename)
End Sub

Answer 2

Вы можете сделать .SaveAs дважды, таким образом, он вернет вам оригинальную рабочую книгу. ThisWorkbook.FullName - это способ получить путь:

Sub TestMe()

    Dim saveName As String
    Dim oldName  As String

    With ThisWorkbook
        oldName = .FullName
        saveName = Application.GetSaveAsFilename            
        .SaveAs saveName
        .SaveAs oldName
    End With

End Sub