Interazione VBA / WhatsApp Web

[PMC77Partecipante PMC77 Karma: 18 pts]

Buongiorno a tutti!

Qualcuno si è già occupato dell'utilizzo di WhatsApp Web partendo da una tabella di numeri telefono / messaggi su excel e tramite macro gestire l'invio?

Grazie

Paolo

[vecchio fracSenior Moderator vecchio frac Karma: 253 pts]

Personalmente no. Ma mi chiedo come si riesca a interfacciare Excel con l'applicativo Web.

[patelModeratore patel Karma: 51 pts]

In rete ci sono molti esempi, ma non uno che funzioni.

[patelModeratore patel Karma: 51 pts]

Questo potrebbe essere un inizio, a me funziona con l'applicazione, non è necessario il num. di telefono, devi soltanto modificare il percorso dell'app.

Allegati:

You must be logged in to view attached files.

[patelModeratore patel Karma: 51 pts]

questa è la macro per inviare a più contatti (col A) il messaggio (col B)

Sub INVIO()
ThisWorkbook.Application.Visible = False
Shell "C:\Users\patel\AppData\Local\WhatsApp\WhatsApp.exe"
Application.Wait (Now + TimeValue("0:00:8"))
startrow = 2
startcol = 1
Do Until Cells(startrow, startcol) = ""
    Call SendKeys("{TAB}", True) '1
    Call SendKeys("{TAB}", True) '2
    Call SendKeys("{TAB}", True) '3
    Call SendKeys("{TAB}", True) '4
    Application.Wait (Now + TimeValue("0:00:1"))
    contact = Cells(startrow, startcol)
    line1 = Sheets(1).Cells(startrow, startcol + 1).Value
    Call SendKeys(contact, True)
    Call SendKeys("~", True)
    Call SendKeys("+~", True)
    Call SendKeys(line1, True)
    Call SendKeys("+~", True)
    Application.Wait (Now + TimeValue("0:00:5"))
    Call SendKeys("{TAB}", True)
    Call SendKeys("{ENTER}", True)
    Call SendKeys("~", True)
    startrow = startrow + 1
    Call SendKeys("{TAB}", True)
Loop
ThisWorkbook.Application.Visible = True
End Sub

[vecchio fracSenior Moderator vecchio frac Karma: 253 pts]

E' notevole. Non pensavo che si poteva fare 🙂
Per inciso, non amo molto SendKeys ma in certe situazioni sembra l'unica strada percorribile.
Per amor di VBA, per risparmiare quattro righe di codice, ricordo che si può specificare in SendKeys la ripetizione di un tasto, utilizzando la forma {tasto numero}. Per restare nell'esempio del codice, i quattro TAB iniziali si possono accorpare in una sola istruzione:

Call SendKeys("{TAB 4}", True) '1-2-3-4

[PMC77Partecipante PMC77 Karma: 18 pts]

Grazie a tutti!

E' notevole davvero!

Anche eprché ormai le comunicazioni sono ultrarapide! La mail ormai è "vecchia"!

Grazie mille a @patel

Ciao

Paolo

[Luigi Luigi]

Buonasera a tutti,

cortesemente essendo un neofita, potreste indicarmi i singoli passaggi per faer funzione la macro di cui sopra.

Grazie.

Luigi

[vecchio fracSenior Moderator vecchio frac Karma: 253 pts]

Versione breve: il codice va copiato e inserito in un nuovo modulo. Nota: la riga con Shell deve essere modificata opportunamente in modo da indicare il percorso esatto dell'applicazione WhatsApp sul pc in uso.

Versione intermedia: copia il codice. Apri Excel. Premi Alt-F11. menu Inserisci --> scegli Modulo. Incolla. Ctrl-S --> Salva con nome, scegli una posizione sul tuo pc e un nome adeguato, salva come foglio con attivazione di macro (xlsm). Al termine posiziona il cursore su Sub INVIO() (all'inizio del codice) e premi F5 per avviare. E' tutto.

Versione lunga: ti serve acquisire maggior confidenza con l'editor e con il linguaggio di scripting VBA., altrimenti ti si fa confusione... prova a smanettare un po' da solo e a curiosare tra i diversi menu dell'editor (che si avvia, abbiamo detto, con Alt-F11).

[patelModeratore patel Karma: 51 pts]

allego il file

Allegati:

You must be logged in to view attached files.

[Luigi Luigi]

innanzitutto ti ringrazio per la risposta molto chiara;

ho eseguito i passaggi, ho installato l'applicazione WhatsAp ma non riesco a capire com trovare il percorso del file per inserirlo nella macro (vado in Start e premo il tasto destro - altro - ma non cedo "percorso File"

  

 

 

[vecchio fracSenior Moderator vecchio frac Karma: 253 pts]

Se intendi che vuoi verificare che la tua cartella WhatsApp sia in AppData esegui il passaggio:

Apri Esplora risorse (Win+E), nella barra indirizzi scrivi "C:\Users\<username>\AppData\Local\WhatsApp" dove al posto di <username> devi inserire il tuo login (è il nome dell'utente che ha avuto accesso a Windows). Dovrebbe aprirsi alla pagina del programma installato.

Questo stesso indirizzo devi metterlo nella riga dell'istruzione Shell, come abbiamo detto più sopra.

[patelModeratore patel Karma: 51 pts]

In pratica basta sostituire patel (il mio username) col tuo.

[Luigi Luigi]

Grazie, gentilissimi

[Paolo Paolo]

Buongiorno, bellissima ed utilissima macro.

Ho copiato e modificato il percorso e tutto sembra funzionare fino all’apertura di whatsapp. Dopodiché l’invio dei messaggi non si avvia. Non riesco a capirne la ragione.  Forse il formato dei numeri telefonici? Ho provato sia con il formato internazionale (0039) che con il solo numero. Mi sfugge qualcosa? 

[PMC77Partecipante PMC77 Karma: 18 pts]

Idea mia stupida...

Provare con "+39" ?

Paolo

[Paolo Paolo]

Avevo già provato, ma nulla da fare purtroppo.

[Autore]

Articoli