none
Gerar Relatório em PDF e enviar por e-mail RRS feed

  • Pergunta

  • Boa tarde Barbara, será vc poderia me ajudar com essa macro, gostaria que nome do arquivo fosse c1+a12, o endereço de email estará na celular N4 e pdf pode ser salvo em meus documentos. se puder me ajudar por gentileza. 

    terça-feira, 30 de março de 2021 16:07

Todas as Respostas

  • firesmashing11,

    Agora que eu entendi... 

    ================================================
    BárbaraBettanin

    Macro para Gerar Relatório PDF e automaticamente enviar por e-mail RRS feed

    https://social.msdn.microsoft.com/Forums/pt-BR/09f526b6-bee3-4b0e-a8ac-ee845b7d29e8/macro-para-gerar-relatrio-pdf-e-automaticamente-enviar-por-email?forum=vbapt
    ================================================
    VBA PARA SALVAR PDF (CADA PÁGINA EM UM ARQUIVO)

    Sub SalvaPDF()
        Dim PdfCaminho As String
        Dim PdfNome As String
      
        UltimaAba = ActiveWorkbook.Sheets().Count 'Conta quantas abas tem na planilha
        
        For i = 1 To UltimaAba
        
        PdfCaminho = VBA.Environ("USERPROFILE") & "\Desktop\" 'Diretório onde irá salvar o documento
        PdfNome = Range("a1").Value 'Aqui você precisa referenciar uma célula que irá dar nome a planilha, precisa ser a mesma célula em todas as abas, se o nome for repetido ele irá salvar por cima.
        
        'Caso queira uma mensagem de OK de aba por aba
        'MsgBox "O arquivo " & PdfNome & " foi salvo em " & PdfCaminho & ".", vbOKOnly, "Salvo"
      
        ThisWorkbook.ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        PdfCaminho & PdfNome, Quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=True
        Call TrocaAba
        Next
    End Sub

    https://gurudoexcel.com/forum/viewtopic.php?t=11006
    ================================================


    Acho que o segredo está aqui, você deixa marcado o intervalo de "c1+a12":

    ================================================
    Como selecionar células/intervalos usando os procedimentos do Visual Basic no Excel

    Application.Goto Workbooks("BOOK2.XLS").Sheets("Sheet1").Range("A1:C12")

    https://docs.microsoft.com/pt-br/previous-versions/office/troubleshoot/office-developer/select-cells-rangs-with-visual-basic
    ================================================

    E depois manda salvar em PDF para SOMENTE células selecionadas...

    ================================================
    Como Salvar Área Selecionada de Planilha Excel em PDF
    26 de abr. de 2018
    CANAL SGP
    https://youtu.be/sQFzpRr4UeE
    ================================================

    GRAVA UMA MACRO DO QUE O RAPAZ FEZ NO VÍDEO ACIMA E VOCÊ SABERÁ QUAIS OS COMANDOS VBA QUUE PRECISA APLICAR... SE NÃO SOUBER, ME FALA QUE EU FAÇO.

    []'s,
    Fabio I.
    • Editado Fabio I quarta-feira, 31 de março de 2021 20:17
    quarta-feira, 31 de março de 2021 20:14