Ir ao conteúdo
  • Cadastre-se

Excel criar macro para gerar pdf e salvar em pasta específica


Posts recomendados

Prezados,

Necessito de uma ajuda na criação de uma macro, utilizando VBA, que salve uma planilha em formato pdf e armazene em uma pasta específica.

Pormenorizando:

Tenho um documento em excel, com várias planilhas (plan1, plan2, plan3, etc) na planilha 1 eu entro com dados de preenchimento, os quais geram automaticamente um documento na planilha 3. O meu objetivo é criar uma macro que quando eu rodar, salve o conteúdo da planilha 3 (somente) no formato pdf, com o nome constante em uma célula da planilha 1 e em uma pasta específica, tipo C:\Users\Formulários.

 

Exemplo: 

- Entro com os dados de cadastro na planilha 1

- Na célula D2 da planilha 1 um texto é preenchido automaticamente por meio da função concatenar

- com os dados preenchidos na planilha 1, o documento existente na planilha 3 é consequentemente preenchido

- Aio executar a macro, o documento da planilha 3 deverá ser salvo no formato pdf, com o nome constante na célula D2 da planilha 1 e na pasta C:\Users\Formulários.

 

Já tentei várias formas mas nenhuma surtiu o resultado esperado.

 

Espero que possam me ajudar.

 

Desde já agradeço.

 

Link para o post
Compartilhar em outros sites

Bom dia, @sezcarv

 

Bem vindo ao Fórum 🤝, como você é novo por aqui, não deve

ter lido as regras... desta forma por gentileza ler as regras deste

Fórum para ficar ciente 😉...

 

Antes de qualquer coisa leia o texto abaixo:

"Como todos aqui, temos compromissos e não temos muito tempo para criar um arquivo do zero, pois
ajudamos somente no nosso tempo livre... é muito importante você anexar uma planilha de
exemplo com dados (fictícios) e que não seja o projeto inteiro ; explicando com as informações
necessárias para alcançar o seu objetivo, desta forma poderemos ajudá-lo com maior rapidez e
eficácia (a maioria nem olharia este Tópico sem um arquivo exemplo, pois existe muitas
"variáveis" que podem impossibilitar o sucesso parcial ou total da solução proposta,se não tiver um
arquivo exemplo que for disponibilizado) ;) .."

 

Estou passando o código abaixo que fará o que solicitou no post #1 (sua mensagem acima),

que seria criar PDF do conteúdo existente na "Planilha3", com o nome deste PDF conforme

texto da célula "D2" da "Planilha1" e na pasta específica que tu mencionou acima

"C:\Users\Formulários"😃; coloque este código em um módulo e você pode executá-lo com

um botão que criares ou outra forma que achar melhor 😉...

Sub CriarPdf()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Worksheets("Planilha3").Activate

'ActiveSheet.ListObjects("Tabela1").Range.Select 'descomente se for Tabela _
                                                  alterando para o nome da _
                                                  Tabela que criastes
ActiveSheet.Range("B2:E8").Select 'comente se for usar a linha a acima

ChDir "C:\Users\Formulários"

        ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
            Filename:=Sheets("Planilha1").Range("D2"), _
            Quality:=xlQualityStandard, _
            IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False

Application.ScreenUpdating = True
Application.DisplayAlerts = True

 Range("G1").Select

MsgBox "Criado arquivo PDF.", vbOKOnly

End Sub

 

Por gentileza verificar, testar e ver se funciona de acordo com o seu projeto...

 

OBS: nos próximos Tópicos que abrir, por gentileza anexar um arquivo exemplo 🙂.

 

Aguardando sua resposta e seu Feed Back ... se foi útil, não esqueça de clicar na "mãozinha" do Botão Curtir :D

 

LaerteB :D

Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...

livros-black-friday.jpg

SEMANA BLACK FRIDAY
Clube do Hardware

Todos os livros por apenas R$ 9,99 cada!

Eletrônica | Montagem de Micros | Redes