Planilha Gerar PDF e Enviar WhatsApp Excel

Neste artigo temos uma planilha de gerar PDF e Enviar Whatsapp Excel automaticamente em lote. Nele você tem o download da planilha gratuita e um vídeo demonstrativo.

Download da Planilha Gerar PDF e Enviar WhatsApp Excel

Para realizar o download de uma planilha de exemplo clique no botão abaixo, o download é imediato.

Baixe a planilha

Funcionamento da Planilha de Gerar PDF e Enviar WhatsApp

A Planilha de Gerar PDF e Enviar WhatsApp é uma ferramenta inovadora desenvolvida para facilitar a comunicação e o envio de documentos diretamente pelo WhatsApp, de maneira rápida e eficiente. Ideal para empresas e profissionais que precisam compartilhar informações com clientes, fornecedores ou colaboradores, ela combina automação e praticidade em uma única solução.

Esta planilha serve para qualquer necessidade de geração de PDF e envio de whatsApp. neste exemplo temos a geração de cobranças e envio destas cobranças automaticamente via whatsapp.

Veja nas seções seguintes como funciona a estrutura desta planliha.

Cadastro de Contatos Excel

Na tabela de cadastro de contatos digite exatamente os nomes dos contatos que estão no seu whatsapp.

É importante salientar que apenas contatos cadastrados no seu whatsapp poderão ser utilizados para envio dos documentos.

Tabela de Cobranças Excel

Na tabela de cobranças adicionamos as informações que serão utilizadas no relatório que será gerado em PDF.

Nela adicionamos apenas alguns campos que serão utilizados no relatório, podendo alterar conforme a sua necessidade.

Preencha apenas o nome do contato (conforme o whats), Descrição do serviço ou taxa, Número da parcela, Valor da cobrança e Vencimento.

Gerar Relatório em PDF VBA Excel

No nosso caso de exemplo temos um relatório de cobranças que desejamos gerar em PDF para enviar via Whatsapp pelo Excel com VBA.

Na planilha do relatório de cobrança basta clicar no botão de Gerar PDF para que a planliha altere os dados do nome do cliente, o que retorna os dados logo abaixo do relatório conforme o cliente e gera em PDF na mesma pasta aonde está a planilha.

Após isso basta ir para a planilha seguinte e enviar os relatórios de cobrança em PDF por whatsapp.

Segue o código VBA para gerar PDF:

Public Sub lsGerarPDF()
    On Error GoTo TratarErro
     
    Dim iTotalLinhas    As Long
    Dim iLinhas         As Long
    Dim lstrPasta       As String
     
    'Total de clientes, de cima para baixo localiza a última célula preenchida da lista
    iTotalLinhas = Configuracao.Cells(Rows.Count, 2).End(xlUp).Row
    
    'Inicia na linha logo abaixo do cabeçalho
    iLinhas = 7
    
    For iLinhas = 7 To iTotalLinhas
        Cobranca.Range("D6").Value = Configuracao.Cells(iLinhas, 2).Value
        
        Cobranca.ExportAsFixedFormat Type:=xlTypePDF, _
        Filename:=ThisWorkbook.Path & "\" & Cobranca.Range("D6").Value & ".pdf", _
        Quality:=xlQualityStandard, IncludeDocProperties:=True, _
        IgnorePrintAreas:=False, OpenAfterPublish:=False
    Next iLinhas
    
Sair:
    Exit Sub
TratarErro:
    'Tratamento de erro se houverem problemas
    MsgBox "Houve um erro na impressão!", vbCritical
    GoTo Sair
End Sub

Enviar WhatsApp com Excel e VBA

Na última parte temos o envio de uma mensagem de WhatsApp pelo Excel em conjunto com o arquivo PDF do relatório de cobrança.

No vídeo no topo deste artigo você tem detalhadamente o funcionamento da planliha e do código VBA explicado.

Código VBA para envio de WhatsApp Excel:

Public Sub lsEnviarWhatsApp()
    Dim lUltimaLinha    As Long
    Dim i               As Long
    Dim lContato        As String
    Dim lMensagem       As String
    Dim lArquivo        As String
    
    'Gerar pdf
    lsGerarPDF
    
    'Abre o WhatsApp
    Shell "C:\Program Files\Google\Chrome\Application\chrome.exe" & " https://web.whatsapp.com/"
    
    Application.Wait Now + TimeValue("00:00:10")
    
    lUltimaLinha = WhatsApp.Cells(WhatsApp.Rows.Count, 2).End(xlUp).Row
    
    'Faz o loop pelas linhas da tabelas
    For i = 7 To lUltimaLinha
        If WhatsApp.Cells(i, 5).Value = "" Then
            lContato = WhatsApp.Cells(i, 2).Value
            lMensagem = WhatsApp.Cells(i, 3).Value
            lArquivo = WhatsApp.Cells(i, 4).Value
            
            'Localiza o contato e envia a mensagem
            If i = 7 Then
                'Primeiro contato
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
            Else
                'Próximo contato
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
                SendKeys "{TAB}"
            End If
            
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lContato
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "{ENTER}"
            SendKeys "{ENTER}"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "{ENTER}"
            SendKeys lMensagem
            Application.Wait Now + TimeValue("00:00:03")
            SendKeys "{ENTER}"
            
            'Enviar arquivo
            SendKeys "+{TAB}"
            SendKeys "~"
            SendKeys "{DOWN}"
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lArquivo
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            
            'Gravar a data e horário de envio
            WhatsApp.Cells(i, 5).Value = Now
        End If
    Next i
    
    MsgBox "Mensagens enviadas!"
    
End Sub

Download da Planilha Gerar PDF e Enviar WhatsApp Excel

Para realizar o download de uma planilha de exemplo clique no botão abaixo, o download é imediato.

Baixe a planilha

5/5 - (Total de avaliações: 1)