Abrir caixa de diálogo salvar como

2024 - VBA & Macros

Post Recente por MPrudencio 8 anos atrás

3 Posts

3 Usuários

0 Reactions

1,500 Visualizações

RSS

Andersonrj

(@andersonrj)

Posts: 11

Active Member

Topic starter

Olá pessoal!

Estou querendo criar um botão para salvar um relatório, mas quero que abra a caixa de diálogo para a pessoa especificar onde salvar e qual o nome quer por no relatório. Podem em ajudar por favor.

Postado : 31/10/2016 1:10 pm

Trindade

(@trindade)

Posts: 278

Reputable Member

Boa tarde,Andersonrj.

Tenta algo assim:

Sub Exportar()

Dim Arquivo As String

Arquivo = Application.GetSaveAsFilename(InitialFileName:="Nome_do_Seu_Arquivo_", _ ' PRE DEFINIÇÃO DO NOME A SER SALVO
                fileFilter:="CSV (Separado por vírgulas) (*.csv), *.csv", _ ' DEFINE A EXTESAO A SER SALVO O ARQUIVO
                Title:="Especifique o nome do arquivo") ' TITULO DA CAIXA DE DIALOGO

' SE CLICAR NO BOTAO CANCELAR FINALIZA O PROCESSO
If VBA.LCase(Arquivo) = "falso" Then Exit Sub

' ###
' SEU CÓDIGO DE SALVAR
' ###

End Sub

Se a resposta foi útil! Clique na mãozinha ao lado do botão Citar.
Sua dúvida foi respondida? Marque como RESOLVIDO em seus tópicos, usando o botão com marca verde.

Postado : 31/10/2016 2:01 pm

MPrudencio

(@mprudencio)

Posts: 2749

Famed Member

Pessoalmente eu faria isso tudo automatizado,ou seja um nome pre definido e uma pasta unica, assim vc evita erros de digitação e todos os relatorios tera o mesmo padrao, tanto de nome qto de formato.

Da ate pra salvar um xlsx independente se desejar.

Marcelo Prudencio
Microsoft Excel Brasil no Facebook

"Começar já é a metade do caminho."
Autor Desconhecido

Simplifica que simples fica.
Nicole Tomazella.

"O Simples é Sempre Melhor Que o Complicado"
Jorge Paulo Lemann.

Postado : 31/10/2016 2:12 pm