Excel Excel - Macro para salvar em PDF

[Victor Comparini]

@djacy.neto  só para eu entender melhor.

 

Nesse caso, cada página do PDFs irá salvar isso:

 

ou é pra salvar 5 PDFs diferentes com essa informação de cada fornecedor?

[djacy.neto]

@Vics isso! nesse caso sao 5 pdfs  com a info de cada fornecedor

[Victor Comparini]

20 horas atrás, djacy.neto disse:

@Vics isso! nesse caso sao 5 pdfs  com a info de cada fornecedor

 

Olá.

 

Veja se é isso que você precisa.

 

 

TESTE_PDF-1 - Vics.zip

[djacy.neto]

@Vics bao tarde!

 

[Victor Comparini]

@djacy.neto , Desculpe.

 

a ultima linha do código, faltou um "s" em Sheets

Sheets("Planilha1").Select

de qualquer forma, segue atualizada.

 

 

TESTE_PDF-1 - Vics.zip

[djacy.neto]

@Vics agora deu certo!

 

valeu!

[Bikke]

Boa noite

 

A mim deu um erro

 

 

 

[Victor Comparini]

@Bikke

 

Qual foi o erro apresentado?

Pois essa linha do código é justamente para transformar a seleção em PDF.

 

[Bikke]

@Vics

O erro é este....

 

[djacy.neto]

@Bikke voce chegou a configurar a macro com as informações da sua maquina ou somente copiou?

 

bem no inicio do codigo você tem que modificar algumas informações:

 

 

 

[Bikke]

@djacy.neto

Boa tarde

 

Sim, copiei e colei o código.

Fiz alterações mas não dá nada.

 

 

Em chDir: coloquei utilizadores, mas é igual, não dá na mesma.

 

 

[djacy.neto]

@Bikke da uma olhada no local da pasta....

voce colocou o nome do usuario mais nao acertou o local da pasta nem o local onde vai ser salvo o pdf

[Bikke]

@djacy.neto

Assim, não saimos daqui.

É mais fácil dizeres como fazer, com exemplos.

 

Porque dessa forma não vou entender nem saber como o fazer.

 

Cumprimentos

[djacy.neto]

@Bikke Legal, ve só, nessa parte aqui:

 

 

vai ficar assim:

user = Environ("Bikke")
localPasta = "C:\Users\Bikke\Desktop"
ChDir "C:\Users\Bikke\Desktop"

para fazer rodar sem erro deixa o excel que ta com essa macro na area de trabalho.

[Bikke]

Fiz isso que disseste, dá o mesmo erro.

 

 

 

Sub SalvarPDF()
'
' SalvarPDF Macro
' Lembrando que mesmo que execute a macro várias vezes, um arquivo subscreve o outro.


Dim user
Dim localPasta As String
Dim cliente As String

    user = Environ("Bikke") 'buscar nome de usuário do computador.
     localPasta = "C:\Users\Bikke\Desktop\"
    ChDir "C:\Users\Bikke\Desktop"

    Sheets("modelos").Select
    Range("A1").Select
    Selection.End(xlToRight).Select
    Selection.End(xlDown).Select
    While ActiveCell <> ""
        cliente = ActiveCell.Offset(-1, -6).Range("A1").Value
        Range(Selection, Selection.End(xlUp)).Select
        Range(Selection, Selection.End(xlToLeft)).Select
        Selection.ExportAsFixedFormat Type:=xlTypePDF, Filename:=localPasta + cliente, Quality:= _
            xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
            OpenAfterPublish:=False
        Selection.End(xlToRight).Select
        Selection.End(xlDown).Select
        ActiveCell.Offset(2, 0).Select
        Selection.End(xlDown).Select
    Wend
    Range("A1").Select
    Sheets("Planilha1").Select
    MsgBox "PDFs na area de trabalho", vbOKOnly, "Sucesso"
End Sub

 

[djacy.neto]

@Bikke deixa eu te perguntar, você baixou o excel que o @Vics  postou? ou copiou o codigo?

 

[Bikke]

Sim

 

Vai anexado

TESTE_PDF-1 - Vics.rar

[djacy.neto]

@Bikke  certo, aqui eu uso um outro disco para meus arquivos, 

no meu script eu deixei assim:

user = Environ("USERNAME") 
    localPasta = "P:\teste_pdf"
    ChDir "P:\teste_pdf"

e ele salva direto no meu disco P:

[Bikke]

Não dá na mesma

 

Dá erro

 

Alguma coisa está a falhar aqui

 

 

Eu quero que as gravações vão para o Ambiente de trabalho para a Pasta Gravações PDF

[djacy.neto]

@Bikke  tenta por assim

user = Environ("USERNAME") localPasta = "P:\teste_pdf" ChDir "P:\teste_pdf"

user = Environ("USERNAME") 
    localPasta = "C:\Users\Bikke\Desktop\pastadestino"
    ChDir "P:\teste_pdf"

 

para achar o locao da pasta eu sugiro voce abrir o meu computador>> disco C>> usuarios>>seu usuario>>desktop>>pasta final.

 

ai voce clica na barra de endereço da pasta e ele vai deixar no formato que voce precisa para a macro.

mais ou menos como na imagem:

 

formato que voce precisa é:

 

 

 

[Bikke]

Olha eu já fiz isso tudo e não dá.

Desisto

 

Vai para o lixo

 

Obrigado por tudo.

 

Cumprimentos

[Victor Comparini]

Em 06/02/2020 às 19:27, djacy.neto disse:

@Bikke voce chegou a configurar a macro com as informações da sua maquina ou somente copiou?

 

bem no inicio do codigo você tem que modificar algumas informações:

@djacy.neto, bom, eu diria que não precisa mudar o "USERNAME", pois esse Environ é uma função,mas se mudando deu certo... Segue exemplos do Environ

Environ("ALLUSERSPROFILE")
Resultado: "C\ProgramData"

Environ("APPDATA")
Resultado: "C:\Users\totn\AppData\Roaming"

Environ("CommonProgramFiles")
Resultado: "C:\Program Files (x86)\Common Files"

Então, dessa forma, funciona aqui perfeitamente.

user = Environ("USERNAME") 'buscar nome de usuário do computador.
localPasta = "C:\Users\" & user & "\Desktop\"
ChDir "C:\Users\" & user & "\Desktop\"
MsgBox localPasta 'resultado do local da pasta que os arquivos serão salvos como na imagem abaixo

 

@Bikke, o que eu estou vendo o que ta acontecendo no seu erro, é que o seu excel não está suportando a opção de salvar a seleção em PDF, como diz na microsoft:

 

Citação

 

Este erro também pode ocorrer se uma tentativa de chamada de procedimento não válida na plataforma atual for feita. Por exemplo, alguns procedimentos podem ser válidos somente no Microsoft Windows, ou somente no Macintosh, e a

ssim por diante.

Consulte informações de plataforma específicas sobre o procedimento.

Fonte: https://docs.microsoft.com/pt-br/office/vba/language/reference/user-interface-help/invalid-procedure-call-or-argument-error-5

 

 

Qual versão do excel você está usando?

 

[Bikke]

@Vics

Boa noite

 

Estou usando o excel 2007.

E continua a não dar nada

[djacy.neto]

@Bikke realmente acho que o @Vics tem toda razão, aqui eu uso o office 2016.

 

[Victor Comparini]

46 minutos atrás, Bikke disse:

@Vics

Boa noite

 

Estou usando o excel 2007.

E continua a não dar nada

 

Então há duas opções.

Ou você precisa instalar um plugin chamado "SaveAsPDF" para o excel 2007, pois o seu não tem esse plugin, por essa versão do excel não suportar salvar a seleção em PDF, ou converter o arquivo para PDF, por isso da esse erro.

 

ou você, por método de gravação de macro, salve a planilha como PDF, ou a seleção como PDF para ver qual é o código gerado, que talvez no excel 2007 também seja outro.

 

Eu só testei o código no excel 2013 e 2016.

 

Segue o tutorial para gerar a macro gravada para salvar a seleção em PDF.

 

1. Guia de desenvolvedor, clicar em gravar macro. (para ativar a guia do desenvolvedor:    )  

 

2. Nomear a macro

 

3. Selecionar a área

 

4. Guia Arquivo

 

5. Salvar como, selecione o local, ou procurar.

 

6. Selecione PDF

 

7. Opções e clique em seleção

 

8. Clique em Salvar

 

9. Na guia de desenvolvedor, clique em Parar Gravação

 

10. Na mesma Aba, clique em Macros e Editar a Macro Gerada

 

 

11. Resultado do código Gerado: