Pessoal tudo bem? eu não tenho muito conhecimento com VBA, mas consegui fazer uma planilha para envio de Whatsapp. Mas de uns tempo para cá essa planilha apresenta muitos erros.
Será que alguém pode me ajudar ?
Na vdd eu preciso que ela envie o whtasapp, e ela faz, porem a mensagem não sai configurada com espaços e paragrafos, e isso não ocorre hoje.
alguém pode me ajudar ?
Sub whatsapp()
Dim texto As String
Dim linha As Integer
Dim GC As Object
Dim WebUrl As String
Dim NavigatorAddress As String
Sheets("bancodedados").Select
linha = 2
texto = Cells(linha, 3)
linha1 = 2
texto1 = Cells(linha1, 13)
Let NavigatorAddress = "C:\Program Files\Google\Chrome\Application\chrome.exe"
'Set GC = CreateObject("InternetExplorer.Application")
Let WebUrl = " "
Shell (NavigatorAddress & " -url " & WebUrl)
Do Until Sheets("bancodedados").Cells(linha, 3) = ""
'Application.Wait (Now + TimeValue("00:00:01"))
Cells(linha, 3).Copy
Application.Wait (Now + TimeValue("00:00:03"))
Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{HOME}", True)
Application.Wait (Now + TimeValue("00:00:01"))
Call SendKeys("{del}", True)
Application.Wait (Now + TimeValue("00:00:05"))
Call SendKeys("~", True)
Application.Wait (Now + TimeValue("00:00:20"))
'Application.SendKeys ("%{TAB}")
Call SendKeys("~", True)
'Cells(linha1, 13).Copy
'Call SendKeys("^{C}", True)
'Application.Wait (Now + TimeValue("00:00:01"))
'Call SendKeys("^{V}", True) '----> COLA OS DADOS DO EXCEL
'Call SendKeys("~", True)
' Call SendKeys("~", True) 'entra na tela do contato no WhatsApp
'Call SendKeys("%{F4}", True)
'Application.Wait (Now + TimeValue("00:00:01"))
'Call SendKeys("~", True)
' Application.Wait (Now + #10:51:00 AM#) '---- HORA PARA FECHAR A PLANILHA
linha = linha + 1
Loop
End Sub
