Macro VBA para salvar em PDF com nome e destino preenchido em células do Excel.

Question

Prezados,

Tenho planilhas para c&aacute;lculos judicias e preciso criar macro para salvar em PDF com dois nomes (no meu caso: MENU!C4 e MENU!C5) e abrindo box para perguntar onde deseja salvar.
Pelo fato do nome precisa conter o numero do processo e autor, e ainda, salvar na pasta que foi criada pelo sistema quando chega a demanda, e essa pasta nem sempre tem nome padr&atilde;o e n&atilde;o conseguimos alterar.
&Eacute; como se fosse usar o Crtl+P por&eacute;m com o nome preenchido na planilha.

Answer

Bom dia, Jussara SR.

Para ajud&aacute;-la com maior rapidez e efic&aacute;cia, &eacute; muito importante tu anexar uma planilha de exemplo
com dados (fict&iacute;cios) e que n&atilde;o seja o projeto inteiro (com o trecho que est&aacute; com dificuldades);
explicando com as informa&ccedil;&otilde;es necess&aacute;rias para alcan&ccedil;ar o seu objetivo (se necess&aacute;rio incluir
imagens elucidativas)..

Tenho este c&oacute;digo abaixo (gen&eacute;rico) que abre uma janela para tu salvar no local que quiser 
a sua Planilha Excel:

Sub SalvarPDF()

Dim pas

pas = Application.GetSaveAsFilename(InitialFileName:= Range(B2), _
  FileFilter:=PDF files, *.pdf, _
  Title:=Save PDF File)
  
  If TypeName(pas) = Boolean Then
  Else
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=pas, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End If

End Sub

O trecho do pas InitialFileName:= Range(B2) pode ser modificado com 
o nome do arquivo a ser salvo (exemplo Teste.pdf).

Espero que te ajude...
Se tiver outras d&uacute;vidas &eacute; s&oacute; anexar um arquivo exemplo, que iremos ajud&aacute;-la :boa:

N&atilde;o se esque&ccedil;a de clicar no bot&atilde;o Curtir, no canto inferior direito :bom_trabalho:..

Aguardando sua resposta e seu Feed Back ;)...

LaerteB :)

Answer

Caro LaerteB,

Quando coloco apenas uma c&eacute;lula d&aacute; certo, por&eacute;m quando adicono outra n&atilde;o d&aacute;.

Veja o c&oacute;digo editado:

Sub SalvarPDFcomNome()

Dim pas

pas = Application.GetSaveAsFilename(InitialFileName:=Range(PDF!C3) & Range(PDF!C4), _
  FileFilter:=PDF files, *.pdf, _
  Title:=Save PDF File)
 
  If TypeName(pas) = Boolean Then
  Else
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=pas, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End If

End Sub

Answer

Boa tarde, Jussara SR

Ent&atilde;o desta forma que tu colocou n&atilde;o dar&aacute; certo mesmo.. mas pode ser feito como abaixo,
inserindo esses c&oacute;digos em um m&oacute;dulo:

Sub SalvarPDFcomNome()

Dim pas

pas = Application.GetSaveAsFilename(InitialFileName:=Range(C3), _
  FileFilter:=PDF files, *.pdf, _
  Title:=Save PDF File)

If TypeName(pas) = Boolean Then
  Else
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=pas, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End If

End Sub

Sub SalvarPDFcomNome2()

Dim pas

pas = Application.GetSaveAsFilename(InitialFileName:=Range(C4), _
  FileFilter:=PDF files, *.pdf, _
  Title:=Save PDF File)
  If TypeName(pas) = Boolean Then
  Else
  ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
  Filename:=pas, Quality:=xlQualityStandard, _
  IncludeDocProperties:=True, IgnorePrintAreas:=False, _
  OpenAfterPublish:=False
  End If

End Sub

E poder&aacute; cham&aacute;-los com o c&oacute;digo abaixo, executado por um bot&atilde;o:

Private Sub CommandButton1_Click()
Call SalvarPDFcomNome
Call SalvarPDFcomNome2
End Sub

Com isso salvar&aacute; os dois um em seguida do outro :boa:...

Espero que seja assim que queria :bom_trabalho:..

OBS: quando for colocar seus c&oacute;digos, fa&ccedil;a pelo bot&atilde;o + (no menu da janela resposta) 
          clicando no   C&oacute;digo ;)

Qualquer coisa estamos aqui para ajudar..

N&atilde;o se esque&ccedil;a de clicar no bot&atilde;o Curtir, no canto inferior direito :bom_trabalho:..

Aguardando sua resposta e seu Feed Back ;)...

LaerteB:)

Ferramentas

Mover Tópico