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!