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...
 
InícioInício  FAQFAQ  BuscarBuscar  MembrosMembros  GruposGrupos  Registrar-seRegistrar-se  Login  

Compartilhe | 
 

 Salvar planilha em PDF ou Jpeg

Ver o tópico anterior Ver o tópico seguinte Ir em baixo 
AutorMensagem
Estácio Milhomem



Mensagens : 5
Data de inscrição : 24/02/2014

MensagemAssunto: 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?
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Estácio Milhomem



Mensagens : 5
Data de inscrição : 24/02/2014

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Estácio Milhomem



Mensagens : 5
Data de inscrição : 24/02/2014

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Sab 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Estácio Milhomem



Mensagens : 5
Data de inscrição : 24/02/2014

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Estácio Milhomem



Mensagens : 5
Data de inscrição : 24/02/2014

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
alexandrevba



Mensagens : 1820
Data de inscrição : 13/07/2011
Localização : Serra - ES

MensagemAssunto: 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
Voltar ao Topo Ir em baixo
Ver perfil do usuário
Conteúdo patrocinado




MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Hoje à(s) 10:51 pm

Voltar ao Topo Ir em baixo
 
Salvar planilha em PDF ou Jpeg
Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo 
Página 1 de 1
 Tópicos similares
-
» problemas para salvar inventario
» [Resolvido]Salvar sprite como gif animado durante o jogo
» [dúvida]Carregar e Salvar Arquivo
» Como Troca ícone do Jogo e Salvar o Jogo em EXE que de para Rodar
» Salvar tema

Permissão deste fórum:Você não pode responder aos tópicos neste fórum
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: