Guru do Excel e Power BI

Enviado: **25 Jun 2018 às 19:32**

Boa noite,

busco ajuda para criar uma macro que salve um arquivo .xlsx com um nome pré definido.

a idéia é abrir a janela para salvar, já com o nome do arquivo preenchida, para que o usuário selecione somente a pasta onde será salvo.

O nome do arquivo fica em uma variável e é gerado dependendo de algumas situações.

Tentei anexar a foto aqui mas dá um erro

Enviado: **25 Jun 2018 às 20:39**

Não é mais facil gerar o arquivo ja em uma pasta pre-definida?

Poste o arquivo informando quais as guias deveram ser salvas

Enviado: **26 Jun 2018 às 12:58**

Experimente. Coloque em A1 o nome do arquivo, sem a extensão. Altere se desejar.

Código: Selecionar todos

Sub SalvarComo()
 Dim p, nomeArq As String
  nomeArq = [A1]
  p = Application.GetSaveAsFilename(InitialFileName:=nomeArq, _
      fileFilter:="Excel Files (*.xlsx), *.xlsx", FilterIndex:=1)
   If p <> False Then
    Application.DisplayAlerts = False
    ActiveWorkbook.SaveAs Filename:=p, FileFormat:=51
    Application.DisplayAlerts = True
   End If
End Sub

Enviado: **27 Jun 2018 às 14:55**

funcionou perefitamente!!!!!!!!!!!!!!
voce da aulas particulares?

Guru do Excel e Power BI

Macro para salvar arquivo com nome pré definido.

Macro para salvar arquivo com nome pré definido.

Macro para salvar arquivo com nome pré definido.

Re: Macro para salvar arquivo com nome pré definido.

Macro para salvar arquivo com nome pré definido.