Página 1 de 1
Abrir google direto da planilha
Enviado: 01 Set 2021 às 19:21
por andriessen
Boa noite!
Alguém sabe me dizer como sair da tela do excel i ir para a pagina aberta do google. Não quero abrir uma nova pagina, apenas mudar a tela .
Meu programa manda mensagens por WhatsApp para determinado apto e quando executo ele ABRE o WhatsApp no browser e manda a mensagem. Porém algumas vezes da erro porque demora muito para abrir a pagina. Se a pagina ja estivesse aberta eu poderia economizar muito tempo.
Grato
Re: Abrir google direto da planilha
Enviado: 01 Set 2021 às 22:27
por Basole
@andriessen
Uma opção é baixar o app do whatsapp e instalar no seu PC:
https://www.whatsapp.com/download
....e usando o InternetExplorer para "linkar" o aplicativo.
Segue exemplo de rotina para enviar a mensagem com o apliativo já conectado, automaticamente:
Código: Selecionar todos
Sub Enviar_WhatsApp()
Dim IE As Object
Dim Num_Cel As String
Num_Cel = "11912345678" '(*** Insira o numero cel. com o ddd ****)
Set IE = CreateObject("InternetExplorer.Application") 'Cria o objeto internet Explorer
IE.navigate "whatsapp://send?phone=55" & Num_Cel & _
"&text=Hello Word" ' * Envia a mensagem para este telefone no brasil (55)
Application.Wait Now() + TimeSerial(0, 0, 4) 'Aguarda por 4 segundos....
VBA.SendKeys "~" ' .... e envia a tecla: v
Set IE = Nothing
End Sub
Re: Abrir google direto da planilha
Enviado: 02 Set 2021 às 07:28
por andriessen
Bom dia , Basole!
Funcionou. mas preciso de mais uma ajuda. Consegui trocar o numero cel por uma variavel que ja tinha mas nao consegui subtituir o HELLO WORD por uma variavel "textoenviar".
Poderia me ajudar?
Re: Abrir google direto da planilha
Enviado: 02 Set 2021 às 07:30
por andriessen
@Basole
Re: Abrir google direto da planilha
Enviado: 02 Set 2021 às 08:48
por Basole
@andriessen
Não me atentei a esse detalhe da variavel da Api da mensagem.
Segue com as alteracoes .....
Código: Selecionar todosSub Enviar_WhatsApp()
Dim IE As Object
Dim Num_Cel As String
Dim textoEnviar As String
Num_Cel = "11912345678" '(*** Insira o numero cel. com o ddd ****)
textoEnviar = "Hello Word"
' As variaveis acima podem ser associadas a(s) celula(s) especifica:
' Ex.: Num_Cel = Range("A1")
' sMsg = Range("A2")
Set IE = CreateObject("InternetExplorer.Application") 'Cria o objeto internet Explorer
IE.navigate "whatsapp://send?phone=55" & Num_Cel & _
"&text=" & textoEnviar & "" ' * Envia a mensagem para este telefone no brasil (55)"
Application.Wait Now() + TimeSerial(0, 0, 4) 'Aguarda por 4 segundos....
VBA.SendKeys "~" ' .... e envia a tecla: v
Set IE = Nothing
End Sub