| Fórum Excel Bácico, Avançado e Vba Este fórum é destina a usuário de Excel, que queiram compartilhar informações a básicas, avançadas e programação em VBA... |
| | Salvar planilha em PDF ou Jpeg | |
| | Autor | Mensagem |
---|
Estácio Milhomem
Mensagens : 5 Data de inscrição : 24/02/2014
| Assunto: Salvar planilha em PDF ou Jpeg Seg Fev 24, 2014 10:47 pm | |
|
Estou iniciando a conhecer o VBA e já estou fasciando, trabalho em uma Tempera de vidros e estou desenvolvendo uma planilha para fazer pedidos de projetos de vidros, como meus clientes são pessoas sem conhecimento em informatica, preciso facilitar ao maximo o trabalho deles, bem, preciso fazer um botão de comando para salvar a ´planilha em pdf ou jpeg.
Pode me ajudar a entender melhor e como fazer esse macro?
| |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Salvar planilha em PDF ou Jpeg Ter Fev 25, 2014 2:02 pm | |
| Bom dia!! Tente assim - Código:
-
Sub Salvar_PDF() Dim wsh As Worksheet, vWshs, vWshName
vWshs = Array("Plan1", "Plan3", "Plan4") With ActiveWorkbook For Each vWshName In vWshs .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\LocalDoSeuArquivo\" & vWshName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next vWshName End With End Sub
Att | |
| | | Estácio Milhomem
Mensagens : 5 Data de inscrição : 24/02/2014
| Assunto: Re: Salvar planilha em PDF ou Jpeg Sex Fev 28, 2014 7:19 pm | |
| Alexandre, Como te falei, estou inciando e já te peço desculpas, pela pergunta que parasse ser "burra" Tenho que inserir dados da minha planilha na sua formula? "C:\LocalDoSeuArquivo\" & vWshName, Quality:=xlQualityStandard "c:\novapasta\" É ISSO? APARECE O ERRO DE TEMPO DE EXCUÇÃO!! - alexandrevba escreveu:
- Bom dia!!
Tente assim - Código:
-
Sub Salvar_PDF() Dim wsh As Worksheet, vWshs, vWshName
vWshs = Array("Plan1", "Plan3", "Plan4") With ActiveWorkbook For Each vWshName In vWshs .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\LocalDoSeuArquivo\" & vWshName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next vWshName End With End Sub
Att | |
| | | Estácio Milhomem
Mensagens : 5 Data de inscrição : 24/02/2014
| Assunto: ENVIAR PLANILHA Sex Fev 28, 2014 9:07 pm | |
| ME PASSA UM E-MAIL PARA QUE EU POSSA ENVIAR A PLANILHA PARA VC DA UMA OLHADO NO QUE PODE ESTAR DANDO ERRADO! - Estácio Milhomem escreveu:
- Alexandre,
Como te falei, estou inciando e já te peço desculpas, pela pergunta que parasse ser "burra"
Tenho que inserir dados da minha planilha na sua formula?
"C:\LocalDoSeuArquivo\" & vWshName, Quality:=xlQualityStandard
"c:\novapasta\" É ISSO?
APARECE O ERRO DE TEMPO DE EXCUÇÃO!!
- alexandrevba escreveu:
- Bom dia!!
Tente assim - Código:
-
Sub Salvar_PDF() Dim wsh As Worksheet, vWshs, vWshName
vWshs = Array("Plan1", "Plan3", "Plan4") With ActiveWorkbook For Each vWshName In vWshs .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\LocalDoSeuArquivo\" & vWshName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next vWshName End With End Sub
Att | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Salvar planilha em PDF ou Jpeg Sáb Mar 01, 2014 3:51 am | |
| Boa noite!! Onde vai salvar seu arquivo? No lugar da linha abaixo, ponha o caminho que você pretende salvar seu arquivo! - Código:
-
C:\LocalDoSeuArquivo\ Att | |
| | | Estácio Milhomem
Mensagens : 5 Data de inscrição : 24/02/2014
| Assunto: Enviar planilha Qua Abr 02, 2014 9:38 pm | |
| Boa tarde, Alexandre Continua dando um erro, acredito que tenha a ver com o local aonde o arquivo deve ser salvo, o caminho abaixo esta correto: c:\biblioteca\imagens\[/code] gostaria de te enviar uma planilha para você mesmo verificar esse erro, pode me informar seu e-mail? - alexandrevba escreveu:
- Boa noite!!
Onde vai salvar seu arquivo?
No lugar da linha abaixo, ponha o caminho que você pretende salvar seu arquivo! - Código:
-
C:\LocalDoSeuArquivo\ Att | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Salvar planilha em PDF ou Jpeg Qua Abr 02, 2014 9:41 pm | |
| Boa tarde!!
Deposite o arquivo no sendspace, depois cole o link aqui.
Att | |
| | | Estácio Milhomem
Mensagens : 5 Data de inscrição : 24/02/2014
| Assunto: link da planilha Qui Abr 03, 2014 6:14 am | |
| Boa noite, segue o link: http://www.sendspace.com/file/pzurrf - alexandrevba escreveu:
- Boa tarde!!
Deposite o arquivo no sendspace, depois cole o link aqui.
Att | |
| | | alexandrevba
Mensagens : 1820 Data de inscrição : 13/07/2011 Localização : Serra - ES
| Assunto: Re: Salvar planilha em PDF ou Jpeg Qui Abr 03, 2014 2:29 pm | |
| Bom dia!! Sinto muito, mas eu não tive problemas! Segue a prova de que funciona Imagem do PDF gerado http://www.sendspace.com/file/4yvbz1 Eu apenas escolhi o local onde salvar os arquivos em PDF. - Código:
-
Sub Retângulodecantosarredondados22_Clique() Dim wsh As Worksheet, vWshs, vWshName
vWshs = Array("Plan2", "Plan3") With ActiveWorkbook For Each vWshName In vWshs .Worksheets(vWshName).ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\alexandre\Downloads\" & vWshName, Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False Next vWshName '"C:\AREA DE TRABALHO\" End With End Sub Att | |
| | | Conteúdo patrocinado
| Assunto: Re: Salvar planilha em PDF ou Jpeg | |
| |
| | | | Salvar planilha em PDF ou Jpeg | |
|
Tópicos semelhantes | |
|
| Permissões neste sub-fórum | Não podes responder a tópicos
| |
| |
| |
|