Macro Para Exportar Excel em PDF - Como Criar?

Neste vídeo você vai aprender a criar uma macro para exportar Excel para PDF com apenas um clique.

Se você já sabe como exportar Excel para PDF e costuma fazer essa tarefa diversas vezes em seu dia dia dia, então saiba que é possível criar uma macro para exportar Excel em PDF de modo que você precise de um simples clique em um botão para obter seus arquivos de PDF a partir da sua planilha.
Neste vídeo vamos te ensinar duas maneiras diferentes de criar uma macro para salvar Excel em PDF. Se interessou? Então confira o vídeo e deixe o seu comentário abaixo:

► Confira outras opções de código VBA para conversão de Excel para PDF:

-------------------------------------------------------------------------------------------------------------------------
Acompanhe as nossas redes sociais:
---------------------------------------------------------------------------------------------------------------------------
Compartilhe este vídeo para que outras pessoas também possam aprender a converter Excel em PDF de maneira automatizada através de uma macro.

[fernandoi.kobayashi]

Olá obrigado pela dica, utilizei numa planilha, funcionou. Tive que instalar o suplemento, pois meu Office é o 2007.

[EduardoCosta-rkmh]

Muito top, muito obrigado por compartilhar seu conhecimento, estei a partir de agora seguindo seu canal e compartilhando com os colegas de trabalho.

[jefersonwillian]

Boa noite, amigo!

Excelente dica. Mas no meus caso, eu precisaria salvar relatórios distintos numa relação com vários nomes de vendedores. Ou seja, um relatório por vendedor. Como eu faria?

[nikvestmed.]

Oi, eu fiz uma planilha de cadastro e fiz um botão pra salvar PDF. Porem quando eu vou clicar no botão ele aparecesse o erro 1004 dizendo : o documento não foi salvo . Talvez esteja aberto ou pode ter ocorrido um erro durante a gravação. O que eu faço? Obrigada

[felipesantanasilva]

Olá, estou precisando criar uma macro mais especifica... consegue me ajudar?

[joaosilveira]

Como faço pra gerar em outro formato ao invés do Excel?
Por exemplo, um txt ou até mesmo outra planilha Excel?

[PetitejapaGamer]

Amigo, tem alterar a formatação do PDF? Por exemplo: ativar a opção de dimencionar as colunas.

[itaelciosilva]

Muito top, obrigado por compartilhar com os meros mortais
Porém me surgiu uma dúvida. Quando abre a pasta do Save as, e clico no cancelar o arquivo ainda é gerado. Como faço para que ao clicar no cancelado, o arquivo não é gerado, mas retorna a planilha.
Grato pelo apoio

[destraveoratoria]

Obrigado pela dica!
Preciso saber como faço para o excel pedir um nome para o arquivo, pois ele sobrescreve o orçamento que ja tenho.

[julianogarbin]

Muito bom o vídeo parabéns, gostaria de saber se existe uma maneira de salvar sem que apague o último pdf?

[inaemonteirodemattos]

Boa tarde! Estou usando esse mesmo código mas quando gera o relatório, ele esta indo para a pasta "documentos" ao invés da pasta em que se encontra a planilha. Engraçado porque antes estava funcionando direitinho e hoje começou a dar este erro. Saberia dizer o motivo ou como resolvo?

[LotharMobileLegends]

Galera quem tiver dificuldade de exporta todas as planilhas do documento é so substituir a linha de comando que começa com ActiveSheet por esta: Type:=xlTypePDF

[rosanajesus]

Opa. Como consigo salvar em pdf sem fechar as outras guias de excel que estao abertas?

[Rafaelgamw]

Amigão, como fazer pra gerar o pdf do excel e manter os hiperlinks clicáveis???

[jrtiao]

No computador funciona. Mas no celular não. O que posso fazer para funcionar no mobile tbm?

Eu preciso transformar linhas do Excel em um arquivo independe. É possível?

[gregsonbarros]

Só abre no meu computador. Quando envio por e-mail e salvo em outro, dá erro 1004.

[walissonsantanatecnologiad]

Amigo o meu esta apagando a ultima planilha salva

Boa Noite

Quando executo a macro, o arquivo PDF vai diretamente para a pasta de Documentos do meu computador.

Tentei usar esse comando, porem não adiantou:
Sub ExportarPDF()
Dim Pasta As String

Pasta =
Type:=xlTypePDF, Filename:=Range("A1").Value
End Sub

Pode ser porque utilizo minhas pastas sincronizadas com o Onedrive?

[vitordelmatto]

Boa tarde!! Fiz o passo a passo de vocês, mas ao gerar o arquivo em pdf não aparece nada. Poderiam me ajudar?