VBA – Forçando o diretório no Salvar Como (Dialogs)

Participei de uma discussão em algum lugar que comentava sobre a dúvida do título. Algumas alternativas eram dadas para solucionar o problema, que funcionavam inclusive, mas achei a mais elegante de todas a seguinte:

Sub SalvarComoEmOutroLocal()
 Application.Dialogs(xlDialogSaveAs).Show ("C:\temp")
End Sub

Em detalhes, o código faz uma chamada a coleção de caixas de diálogo do Excel (iniciadas por “xl”), selecionando especificamente a “Salvar Como”, ou “Save As”, passando como primeiro argumento caminho para o qual ela vai inicialmente apontar, no caso, “C:\temp”, que podia ser qualquer outro.

Registro pelo fato de ter sido uma solução simples e direta, que resolver o problema. Em outro post falarei mais sobre os Dialogs do VBA no Excel.

Bom proveito!

Comentários

comentários