Exportar Relatório do Excel em PDF usando VBA - Segunda Parte

Поділитися
Вставка
  • Опубліковано 13 гру 2024

КОМЕНТАРІ • 72

  • @CamilaLima-bb7ek
    @CamilaLima-bb7ek 8 місяців тому

    Excelente o video. tava procurando essas informacoes ha mto tempo!! mto bem detalhado pra situacoes reais do dia a dia!

  • @fernandogalhango2299
    @fernandogalhango2299 3 роки тому +1

    Excelente aula!!! Muito obrigado, não sabe como vc me ajudou...

    • @AdrianoPataro
      @AdrianoPataro  3 роки тому +1

      Que bom que ajudou Fernando. Abraço!

  • @carlosfidelis4855
    @carlosfidelis4855 3 роки тому +1

    Adriano, excelente explicação! Suas aulas são TOP. Obrigado por compartilhar conhecimento a todos.

  • @joseluizperez7154
    @joseluizperez7154 5 років тому +1

    Carioca, vc foi o único que conseguiu explicar de forma clara. Valeu!!

    • @AdrianoPataro
      @AdrianoPataro  5 років тому

      Olá José Luiz, obrigado pelo comentário. Abraço!

  • @joseroberto3022
    @joseroberto3022 4 роки тому

    Parei aqui pois estou finalizando um projeto e queria apenas para ver como faço para salvar relatórios em .pdf via vba, mas achei sensacional as soluções com fórmulas que você apresentou para montar o relatório. Isso me fez assistir aos 2 vídeos desta série.
    Obrigado valioso conteúdo. Isso expande nosso leque de possibilidades. E parabéns pela didática.

  • @felipecamposalmeida4153
    @felipecamposalmeida4153 4 роки тому +1

    Muito obrigado! As orientações somaram muito com meu projeto!

  • @Josill
    @Josill 5 років тому

    Excelente! Aula de extrema importância para quem busca conhecimento de verdade.

  • @wagnerbezerra4189
    @wagnerbezerra4189 7 років тому +2

    Esse código de VBA foi a cereja do bolo, independentemente do gosto: combinação perfeita. Parabéns pela Aula !!!

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Wagner, Combinar os recursos do Excel com o VBA gera resultados incríveis. Obrigado pelo comentário. Abraço.

  • @BrunoOliveira-ro5vu
    @BrunoOliveira-ro5vu 5 років тому +1

    Excelente explicação e ótima resolução com o VBA. Você foi bem específico em um problema que eu estava enfrentando, pois quando eu ia gerar o PDF de outra máquina, minha Macro dava erro.
    Parabéns pela didática e agradeço por compartilhar seus conhecimentos.
    Grade abraço!!

    • @AdrianoPataro
      @AdrianoPataro  5 років тому

      Olá Bruno, obrigado pelo comentário. Que bom que gostou da aula. Abraço!

  • @manuelgoncalves1176
    @manuelgoncalves1176 6 років тому +1

    Mais uma vez treinei este PDF o qual está muito bem explicado........Parabéns por este grande trabalho feito em prol de de ajudar muitas outras pessoas......Obrigado por tudo!!!

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Manuel, obrigado pelo comentário. Abraço!

  • @sergiocardosozacariasoficial
    @sergiocardosozacariasoficial 6 років тому +1

    Prof. Excelente didática e dica muito útil.
    Como sempre digo: Dividir conhecimento é multiplicar sabedoria.
    Obrigado por dividir seus conhecimentos. Sucesso

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Sergio, obrigado pelo comentário. Fico feliz em saber que o conteúdo foi útil para você. Abraço!

  • @wesleymarmelo2242
    @wesleymarmelo2242 5 років тому +1

    Meus parabéns pela aula!!!!
    Excelente conteúdo e explicação...

    • @AdrianoPataro
      @AdrianoPataro  5 років тому

      Olá Wesley, obrigado pelo comentário. Fico feliz em saber que a aula foi útil para você. Abraço!

  • @eudeciosilvaOficial
    @eudeciosilvaOficial 6 років тому +1

    Excelente vídeo aula. Obrigado por compartilhar seus conhecimentos.

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Eudécio, obrigado pelo comentário. Abraço!

  • @JULIOGRABOSKI
    @JULIOGRABOSKI 6 років тому +1

    Muito boa aula, parabéns e obrigado pelos ensinamentos

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Júlio, obrigado pelo comentário. Abraço!

  • @ricardoacebedo4951
    @ricardoacebedo4951 5 років тому +1

    Muito bom.
    Parabéns!

    • @AdrianoPataro
      @AdrianoPataro  5 років тому

      Olá Ricardo, obrigado pelo comentário. Abraço!

  • @angelicaalmeida3899
    @angelicaalmeida3899 7 років тому +1

    Maravilhosa aula!

  • @ronaldofernandesdesouza5752
    @ronaldofernandesdesouza5752 8 років тому +1

    parabéns otima aula

    • @AdrianoPataro
      @AdrianoPataro  8 років тому

      Obrigado pelo comentário Ronaldo. Abraço.

  • @luizbatistafaramir0263
    @luizbatistafaramir0263 7 років тому +1

    Mandou muito bem professor

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Luiz, obrigado pelo comentário.
      Abraço.

  • @GabrielAugusto-wk6zi
    @GabrielAugusto-wk6zi 5 років тому +1

    Excelente aula, boa didática, parabéns!!!
    Seria possível modificar o código para ele gerar o PDF e não abrir ?

    • @AdrianoPataro
      @AdrianoPataro  5 років тому +1

      Olá Gabriel. Sim, na propriedade OpenAfterPublish:=True, altere o True para False *OpenAfterPublish:=False* Abraço!

    • @GabrielAugusto-wk6zi
      @GabrielAugusto-wk6zi 5 років тому +1

      @@AdrianoPataro obrigado :)

  • @mardrimoura
    @mardrimoura 8 років тому

    Olá Adriano Pataro
    A sua explicação e aplicação do VBA, vem de encontro ao que eu penso sobre o mesmo.
    Penso que o VBA é para complementar, uma espécie de UpGrade, no Excel. É justamente estas aplicações práticas conforme apresentado, que busco no VBA, que deixa a planilha cada vez mais dinâmica e profissional! O problema que eu vejo das aulas em VBA, de forma geral, é a pressa demasiada para ir logo aos formulários e programar fazendo a ordem inversa, o Excel servindo para auxiliar o VBA.
    A propósito, você poderia anotar na sua "caderneta" e elaborar um curso de VBA (Gratuito e/ ou Pago) nesse sentido: aplicação prática do VBA para turbinar as planilhas do EXCEL, SEM trabalhar com os benditos formulários. Nada contra os formulários mas o conhecimento, para tanto, deve estar mais consolidado, que não é o meu caso. Com sua explicação e didática iria alavancar o seu pretejo consideravelmente, pelo menos, Penso eu!
    Obs: Por fineza, poderia me enviar a planilha pronta com exportador PDF para o meu estudo. Baixei o arquivo mas está sem o exportador. Se sim, segue o meu email: marceloadriano@gmail.com
    Grato! Até a próxima quarta - Adriano Pataro com as suas "“Análises e Junções Combinatórias Contextuais Powers"!.

    • @AdrianoPataro
      @AdrianoPataro  8 років тому

      Olá Marcelo Adriano. Compartilho da sua opinião. Acredito que o VBA serve para dar aquele toque especial à planilha, mas deve ser usado em conjunto com Excel. Juntando o conhecimento de Excel + VBA, você vai muito longe, não tenho dúvidas. Futuramente teremos um curso de VBA sim, do zero, para iniciantes. Disponibilizo a planilha sem fazer mesmo, para que o aluno faça seguindo a aula, mas lhe envio sim. Abraço e obrigado pelo comentário.

  • @osnrjr
    @osnrjr 3 роки тому +1

    Olá, boa noite.
    Ao gerar o arquivo PDF, no meu projeto, a geração do arquivo é dividido em páginas.
    Eu uso o VBA para gerar e anexar o arquivo PDF em um email a ser enviado, mas o arquivo fica subdividido em páginas, e as informações de um orçamento as vezes são cortadas, ficando parte da informação em uma página, e parte em outra.
    Teria como gerar um arquivo PDF sem que fosse considerado a divisão das páginas?
    Seria um arquivo único, mas que não haja subdivisão das páginas. Como se fosse um "html" corrrido.
    Pelo que eu observei, o VBA utiliza as configurações da impressora padrão para gerar as propriedades do PDF, mas não consegui manipular a impressora de forma a gerar um arquivo sem paginação.
    Seria possível?

    • @AdrianoPataro
      @AdrianoPataro  3 роки тому +1

      Olá osnrjr. Você poderia criar um tamanho de papel personalizado, mas o Excel não aceita essa manipulação. Uma alternativa é o código abrir a caixa de diálogo para que você escolha o tamanho do papel.
      Application.Dialogs(xlDialogPageSetup).Show

    • @osnrjr
      @osnrjr 3 роки тому

      @@AdrianoPataro Obrigado pela resposta.
      No caso não daria certo esta solução, pois tudo acontece em segundo plano.
      Quando o usuário clica no botão, o fim da instrução é a mensagem de que o e-mail foi enviado com sucesso.

  • @luizlima6678
    @luizlima6678 6 років тому +1

    boa noite, Adriano. Excelente vídeo aula. Poderia demonstrar como exportar para o word. Sendo com quebra de coluna, isso é cada coluna deverá ficar a esquerda e não no formato tabela?

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Luiz, obrigado pelo comentário. Anotei aqui a sugestão de aula. Abraço!

  • @grazielaax2748
    @grazielaax2748 7 років тому +1

    Boa tarde Adriano estou acompanhando suas aulas e gostaria de saber como colocar o título em todas as paginas de pdf não somente na primeira. Sua didatica é ótima .

    • @AdrianoPataro
      @AdrianoPataro  7 років тому +1

      Olá Graziela, obrigado pelo comentário. Você tem que configurar esta opção nas configurações de página. Dá uma olhada nesta aula que ensino a fazer: ua-cam.com/video/ysREzrBwM58/v-deo.html
      Abraço! #apcursos

  • @tiagosantana326
    @tiagosantana326 7 років тому +1

    Show!
    Adriano, tira uma dúvida em relação a parte da definição da área de impressão: Se tiver uma linha oculta a função Desloc vai funcionar conforme sua explicação?
    Abraço.

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Thiago. A função DESLOC leva em consideração esta linha oculta e vai incluí-la no intervalo.Abraço! #apcursos

  • @mauricioribeiro2572
    @mauricioribeiro2572 3 роки тому

    Boa tarde!
    Preciso criar o nome do arquivo a partir de uma célula, porém essa célula contém uma fórmula que indica o nome do cliente de outra planilha, por exemplo =plan1!a1, contendo esse tipo de fórmula não consigo dar o nome ao arquivo, apenas se eu escrever. Como posso fazer para salvar esse arquivos a partir dessa fórmula?
    Agradeço desde já!

  • @jonathasbessa900
    @jonathasbessa900 2 роки тому

    Olá, otimo contéudo.
    Quando tento executar a macro, ele da "Erro em tempo de execução 9"
    Consegue me ajudar?

  • @jonasbatista2959
    @jonasbatista2959 6 років тому +1

    Adriano bom dia. gostaria de saber no exemplo abaixo, se escolher abrir ou não o arquivo pdf. depois da MsgBox.
    exemplo:
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    "G:\PDF CLIENTES\orçamento\" & Range("C4").Value & ".pdf" _
    , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
    :=False, OpenAfterPublish:=False
    RESPOSTA = MsgBox("PDF salvo com sucesso, deseja abri-lo?", vbYesNo, "Salvar em PDF")
    If RESPOSTA = vbYes Then
    (abrir).....
    (não abrir).....
    End If
    End Sub
    agradeço a ajuda.

    • @AdrianoPataro
      @AdrianoPataro  6 років тому

      Olá Jonas. Códigos para exportar, abrir, etc. normalmente vão variar devido a vários fatores. Fiz uma edição rápida aqui, dá uma olhada se ajuda:
      Sub ExportarPDF()
      RESPOSTA = MsgBox("PDF salvo com sucesso, deseja abri-lo?", vbYesNo, "Salvar em PDF")
      If RESPOSTA = vbYes Then
      abrir = True
      Else
      abrir = False
      End If
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ActiveWorkbook.Path & "\" & Sheets("Relatório").Range("B5") & ".pdf", Quality:=xlQualityStandard, _
      IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=abrir
      End Sub

    • @jonasbatista2959
      @jonasbatista2959 6 років тому

      PARABÉNS!
      ADRIANO PATARO FUNCIONOU. VC FOI 10. OBRIGADO MESMO. SUCESSO AMIGO.

  • @francinaldofarias3298
    @francinaldofarias3298 7 років тому +1

    ola adriano boa noite estou em uma empresa tenho q fazer relatorio mais faço totalmente diferente tenho q imprimir escanear rtc estou bem atrasado vc como faço para adiquirir uma planilha sua dobre relatorio igual a essa da sua aula 22 nao consegui fazer

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Francinaldo. Você quer adaptar o conteúdo desta aula às suas necessidades? Me envia um e-mail que batemos um papo: contato@apcursos.com.br
      Abraço.

  • @15445186
    @15445186 7 років тому +1

    Olá amigo gostei parabéns por essas belas e maravilhosas explicações.
    Utilizei o seu código , mas quando vou executar a macro aparece uma mensagem de documento não salvo e quando clico aparece um erro de autenticação , síntese do nome do arquivo, do nome do diretório ou do rótulo do volume está incorreto.
    Voçê poderia me ajudar a resolver esse problema?
    desde já agradeço!!!

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Onias. Faz o seguinte, me envia um exemplo da tua planilha que dou uma olhada e te ajudo.
      Abraço.

  • @GabrielAugusto-wk6zi
    @GabrielAugusto-wk6zi 5 років тому

    Como adiciono um contador de relatório ? Gerei pdf do relatório 1, quando eu gerar outro relatório, vai ser o de número 2, como incremento um contador visível para isso, obrigado

    • @AdrianoPataro
      @AdrianoPataro  5 років тому +1

      Olá Gabriel. Neste caso você precisa criar uma estrutura para adicionar um valor sempre que o relatório for exportado. É complicado explicar por aqui, vou anotar como sugestão de aula. Abraço!

    • @GabrielAugusto-wk6zi
      @GabrielAugusto-wk6zi 5 років тому

      @@AdrianoPataro obrigado

  • @jairpereira6
    @jairpereira6 7 років тому

    Olá professor!
    Gostei muita sua explicação. mas não sei o que aconteceu a minha planilhaque criei e está imprimindo todas as páginas que estão em branco. Teria como voê me dar essa ajuda? Me dar uma orientação melhor? Poderia mandar o arquivo para o seu e-mail onde está o errado?

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Jair. Dá uma olhada na fórmula que define a área de impressão, ela que vai fazer com que sejam impressas somente as páginas com dados.
      Se não conseguir me envie um e-mail: contato@adrianopataro.com.br
      Abraço.

  • @diegoalmeida7080
    @diegoalmeida7080 4 роки тому +1

    Olá, preciso colocar senha no PDF gerado, sabe qual a função? Estou pesquisando há algum tempo.

    • @AdrianoPataro
      @AdrianoPataro  4 роки тому

      Olá Diego. Para colocar senha é pelo programa de PDF, por exemplo o Adobe Acrobat. Você pode usar esta solução aqui também: www.ilovepdf.com/pt/proteger-pdf Abraço!

    • @diegoalmeida7080
      @diegoalmeida7080 4 роки тому

      @@AdrianoPataro boa noite, tudo bem? Obrigado pelo retorno...bacana o site. Mas eu precisava fazer via código VBA, ainda não achei nenhuma instrução sobre isso. Sabe alguma outra que possa usar pelo VBA, talvez um .Bat, .vbs...tô chutando...Neste caso eu poderia chamar via código.

  • @marcioreis6079
    @marcioreis6079 6 років тому

    Muito louco

  • @henriqueamorim7605
    @henriqueamorim7605 3 роки тому

    Legal ! Queria usar a sua lógica em mala direta para salvar inúmeros arquivos em pdf, mas aqui não funcionou

  • @wesleydelilo
    @wesleydelilo 7 років тому +1

    Parabéns, de todas as vídeo aulas que pesquisei a sua foi a que explicou melhor, mas infelizmente estou tendo um problema,
    esta dando um erro:
    O documento não foi salvo. Talvez esteja aberto ou ocorreu um erro durante a gravação.
    -------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
    Sub Exportar_PDF()
    '
    ' Exportar_PDF Macro
    '
    '
    ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
    ActiveWorkbook.Path & "\" & "Testefb.pdf", Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
    End Sub

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Wesley, obrigado pelo comentário. Dá uma olhada no código, se você for usar o valor da célula como nome do arquivo, o código é:
      Exportar_PDF Macro
      ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
      ActiveWorkbook.Path & "\" & Sheets("Relatório").Range("B5") & ".pdf", Quality _
      :=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
      OpenAfterPublish:=True
      End Sub
      Abraço! #apcursos

    • @wesleydelilo
      @wesleydelilo 7 років тому +1

      Adriano Pataro obrigado, maravilha, consegui resolver

  • @maisqplaygames
    @maisqplaygames 6 років тому

    Aula Muito Boa mas Infelizmente não Consegui ESTA COM ERRO MINHA FÓRMULA " #REF!

  • @assisgauderetogaudereto7882
    @assisgauderetogaudereto7882 7 років тому +2

    há dois anos estou aprendendo e vejo que ainda não cheguei 5%, parabens. gostaria de ter acesso as aulas que geraram este arquivo. gauderetto@hotmail.com

    • @AdrianoPataro
      @AdrianoPataro  7 років тому

      Olá Assis, obrigado pelo comentário. Na descrição das aulas tem o link para acessar os arquivos. Vou deixar aqui também: bit.ly/2k4Cqlx-Formulas-Excel
      Abraço.