Planilha de Envio WhatsApp VBA com Arquivo Excel

Esta é uma planilha gratuita para envio de whatsapp VBA com arquivos. No artigo você aprenderá como criar do zero e também fazer download da planilha grátis.

Enviar Mensagem e Arquivo pelo VBA no Excel

Na planilha você poderá colocar os dados para o envio do arquivo.

Nele coloque o contato que tem no whatsapp, a mensagem que irá enviar para o contato e o caminho completo do arquivo.

Na última coluna você tem a data e hora do envio, ela será preenchida automaticamente no momento em que for concluído o envio de cada uma das mensagens do whatsapp.

Planilha de Envio WhatsApp VBA com Arquivo Excel 1

Código VBA para Envio de Arquivo Whatsapp

A planilha é desbloqueada e tem o código pronto para o envio de arquivos e mensagens para os itens da tabela.

No código é aberto o Google Chrome e o site da web.whatsapp.com.

Após isso ele irá fazer um loop e passo-a-passo irá preencher os dados no navegador usando Application.Wait para dar um tempo e Sendkeys para simular a movimentação das teclas no Windows.

Planilha de Envio WhatsApp VBA com Arquivo Excel 2

Segue abaixo o código VBA para envio de arquivos WhatsApp Automaticamente no Excel:

Public Sub lsEnviarWhatsApp()
    Dim lUltimaLinha    As Long
    Dim i               As Long
    Dim lContato        As String
    Dim lMensagem       As String
    Dim lArquivo        As String
    
    '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
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lContato
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys "~"
            Application.Wait Now + TimeValue("00:00:02")
            SendKeys lMensagem
            Application.Wait Now + TimeValue("00:00:03")
            
            'Enviar arquivo
            SendKeys "+{TAB}"
            SendKeys "~"
            SendKeys "{DOWN}"
            SendKeys "{DOWN}"
            SendKeys "{DOWN}"
            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")
            
            'Próximo contato
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            SendKeys "{TAB}"
            
            'Gravar a data e horário de envio
            WhatsApp.Cells(i, 5).Value = Now
        End If
    Next i
    
    MsgBox "Mensagens enviadas!"
    
End Sub

Mensagem WhatsApp com Arquivos VBA

Como resultado do código VBA você tem o envio das mensagens e arquivos conforme vemos na imagem abaixo.

Para isso é necessário que tenha o whatsapp web configurado no seu computador web.whatsapp.com e também é necessário que todos os contatos que colocar na planilha precisam estar cadastrados na sua lista de contatos do Whatsapp.

Na planilha pode colocar o nome dos contatos, uma mensagem para cada uma das linhas, o caminho completo para cada arquivo nos clientes

Para usar faça o download no botão ao final do arquivo e também se tiver dúvidas pode assistir a vídeo-aula no topo deste artigo aonde temos o passo-a-passo da construção do aplicativo, o que lhe ajudaria também a fazer alterações adaptando ao que necessitar.