Fórum Excel Bácico, Avançado e Vba
Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.
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  Últimas imagensÚltimas imagens  ProcurarProcurar  RegistarRegistar  Entrar  

 

 Salvar planilha em PDF ou Jpeg

Ir para baixo 
2 participantes
AutorMensagem
Estácio Milhomem




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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptySeg 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?
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptyTer 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
Ir para o topo Ir para baixo
Estácio Milhomem




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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptySex 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
Ir para o topo Ir para baixo
Estácio Milhomem




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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: ENVIAR PLANILHA   Salvar planilha  em PDF ou Jpeg EmptySex 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptySá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
Ir para o topo Ir para baixo
Estácio Milhomem




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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Enviar planilha   Salvar planilha  em PDF ou Jpeg EmptyQua 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptyQua Abr 02, 2014 9:41 pm

Boa tarde!!

Deposite o arquivo no sendspace, depois cole o link aqui.

Att
Ir para o topo Ir para baixo
Estácio Milhomem




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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: link da planilha   Salvar planilha  em PDF ou Jpeg EmptyQui 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
Ir para o topo Ir para baixo
alexandrevba

alexandrevba


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

Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg EmptyQui 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
Ir para o topo Ir para baixo
Conteúdo patrocinado





Salvar planilha  em PDF ou Jpeg Empty
MensagemAssunto: Re: Salvar planilha em PDF ou Jpeg   Salvar planilha  em PDF ou Jpeg Empty

Ir para o topo Ir para baixo
 
Salvar planilha em PDF ou Jpeg
Ir para o topo 
Página 1 de 1
 Tópicos semelhantes
-
» Exportar dados (do controle ActiveX) de uma planilha A para uma planilha B
» PLANILHA COMPARTILHADA OCORRE ERRO AO TENTAR SALVAR
» como salvar a planilha ativa em pdf e anexar o pdf no email que esta na celula B7
» Abrir planilha com um form fixo e os comandos que esta na planilha funcionarem.
» Macro para copiar dados de uma planilha e colar na última linha vazia de outra planilha

Permissões neste sub-fórumNão podes responder a tópicos
Fórum Excel Bácico, Avançado e Vba :: Avançado/VBA :: Excel Avançado/VBA-
Ir para: