Exibir Janela Salvar Como e Salvar com VBA

Olá amigos,

Posto um código que pode ajudar quando está criando um sistema em VBA, com o código abaixo é possivel salvar o seu sistema ou sua planilha com o VBA e também abrir a janela salvar como, para poder escolher onde quer salvar o arquivo.

Código 1: Salvar arquivo com o VBA

Sub Salvar()

ActiveWorkbook.Save

End Sub

Código 2: Salvar arquivo com o VBA

Sub Salvar2()

Application.ThisWorkbook.Save

End Sub

Código 3: Janela Salvar Como com o VBA

Sub Salvar_Como()
'Salvar Como
   Dim CaixaDialogo As FileDialog
   Set CaixaDialogo = Application.FileDialog(msoFileDialogSaveAs)

     With CaixaDialogo
        .InitialFileName = "C:\"
        .FilterIndex = 3 
        'Salva o arquivo como XLSB a partir do Office 2010
        .Show
        .Execute
     End With

End Sub

Caso tenha intesse em ter mais dicas de VBA e de Excel cadastre-se em nossa newletter  e nosso canal do Youtube!

Acesse o Blog neste Link e também nosso canal no Youtube!

Se você tiver dúvidas me mande mensagem ou escreva aqui nos comentários!

Abraços

Douglas