Valutazione 4.87/ 5 (100.00%) 5838 voti

Condividi:        

Sendkeys pazzerello

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Sendkeys pazzerello

Postdi calculon » 04/06/12 15:14

Dovrei eseguire una sequenza di tasti, combinati a una routine più ampia, in modo che vba simuli i movimenti del mouse compiuti dall'utente.

Putroppo col codice sotto riportato a volta, casualmente, riesco ad ottenere soddisfazione poiché normalmente uno dei sendkeys salta sballando la logia della sub.


Application.Wait Now + TimeSerial(0, 0, 1)

ActiveCell.Copy
SendKeys ("{DOWN 2}")
Application.Wait Now + TimeSerial(0, 0, 1)
DoEvents
SendKeys ("~")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys ("^V")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys ("- saluti")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys ("~")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)


Come si può controllare il processo in maniera più sicura?


Infinite grazie
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Sponsor
 

Re: Sendkeys pazzerello

Postdi PcBase » 04/06/12 22:33

Ciao


Ho tolto un paio di istruzioni, dovrebbe andare così

Codice: Seleziona tutto
Application.Wait Now + TimeSerial(0, 0, 1)
ActiveCell.Copy
SendKeys ("{DOWN 2}")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys ("~")
DoEvents
Application.Wait Now + TimeSerial(0, 0, 1)
SendKeys ("'- saluti~")
Windows xp + Office 2003 Ita
Windows8 Office 2013
PcBase
Utente Senior
 
Post: 129
Iscritto il: 24/02/11 23:26

Re: Sendkeys pazzerello

Postdi Anthony47 » 05/06/12 00:37

Guarda il suggerimento di PcBase, sopra.
Comunque io consiglio di usare nella SendKey Wait:=True per attendere il completamento del comando prima di proseguire; es
Codice: Seleziona tutto
Application.SendKeys "AaAa~", True

Della Wait sapete cosa ne penso: mentre aspetta assorbe tutta la cpu e non lascia tempo agli altri processi per proseguire.

Ciao a tutti.
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sendkeys pazzerello

Postdi calculon » 05/06/12 21:47

sì, ricordo che mi avevi già spiegato. Ma allo stato pare l'unico rimedio capace di far funzionicchiare il codice.

Grazie millissimo
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08

Re: Sendkeys pazzerello

Postdi Anthony47 » 05/06/12 23:18

Anche usando Wait=True?!?
Anthony
Win7 + Office 2010 Ita; Win 7 + Office 2013 Ita
Xp + Office 2003 Ita
E voi cosa usate? (per istruzioni vedere viewtopic.php?f=26&t=97449)
Avatar utente
Anthony47
Moderatore
 
Post: 13904
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Sendkeys pazzerello

Postdi calculon » 06/06/12 18:35

sì. non è affidabilissimo.
Comunque girando qua là sul web è condivisa la tua soluzione, segno evidente (se vi erano dubbi :) ) che è il miglior rimedio!

Tornerò sull'argomento appena avrò qualche elemento in più.

Grazie ancora per l'assistenza.
calculon
Utente Senior
 
Post: 161
Iscritto il: 07/01/11 15:08


Torna a Applicazioni Office Windows


Topic correlati a "Sendkeys pazzerello":


Chi c’è in linea

Visitano il forum: alfrimpa e 9 ospiti