Utilizzo di AppActivate e Sendkeys nel comando shell VBA

Question

Voglio passare avanti e indietro tra l'applicazione con il comando shell in VBA. Sto usando SendKeys per fare cose nel processo A quindi passare al processo B, quindi per elaborare A, quindi elaborare B. Funziona perfettamente per la prima iterazione. Quando uso AppActivate per tornare al processo B, in realtà passa a focus focus sul processo B. TUTTAVIA, ignora i comandi successivi da SendKeys.

codice

Esempio:

Sub pastePDF2TXT_v3(pdfName As String, txtName As String) 


Dim acrobatID 
Dim acrobatInvokeCmd As String 
Dim acrobatLocation As String 

Dim notepadID 

Dim acrobatID2 
Dim notepadID2 

Debug.Print "here" 


acrobatLocation = "C:\Program Files\Adobe\Acrobat 9.0\Acrobat\Acrobat.exe" 

acrobatInvokeCmd = acrobatLocation & " " & pdfName 

acrobatID = Shell(acrobatInvokeCmd, 1) 
AppActivate acrobatID 
SendKeys "^a", True '^A selects everything already in the pdf file. 
SendKeys "^c", True '^C copies the selection to the clipboard. 



notepadID = Shell("NOTEPAD.EXE " & txtName, 1) ' invoke notepad on the text file. 
AppActivate notepadID       ' set the new app as teh active task. 

SendKeys "^a", True '^A selects everything already in the text file. 
SendKeys "^v", True '^V pastes the new stuff over the top of the old text file (deleting the old stuff) 
SendKeys "%{END}", True ' makre sure last line of text file 
SendKeys "{ENTER}", True 



AppActivate acrobatID ' NOTE: APPEARS TO WORK UP TO THIS POINT. 

SendKeys "{ENTER}", True ' NOTE: SECOND APP IGNORES SUBSEQUENT COMMANDS FROM HERE DOWN. 
SendKeys "^a", True '^A selects everything already in the pdf file. 
SendKeys "^c", True '^C copies the selection to the clipboard. 
SendKeys "%f", True 'alt f, x to exit Notepad.exe 
SendKeys "x", True 
'acrobatID.Quit 


Debug.Print "start second" 

AppActivate notepadID       ' set the new app as teh active task. 


SendKeys "%{END}", True 'Go to end of text file. 
SendKeys "^v", True '^V pastes the new stuff at end of file. 
SendKeys "{ENTER}", True 

SendKeys "^s", True 

SendKeys "%f", True 'alt f, x to exit Notepad.exe 
SendKeys "x", True 

notepadID.Quit 
acrobatID.Quit 

End Sub 

Answer 1

Questo potrebbe essere più di un commento di una risposta, ma non mi sembra di poter "commento", quindi ...

È incredibile che si sei arrivato fino a te. Le probabilità sono, non sarai mai in grado di fare questo lavoro in modo affidabile - periodo. Non appena lo fai funzionare, qualcosa cambierà in che modo l'interfaccia utente di Acrobat si comporterà in una versione futura, o Windows apporterà un'altra modifica alle regole per ciò che le cose possono inviare eventi a ciò che altre cose, e poi tu verrai di nuovo .

In questo caso, in questo caso, probabilmente stai cercando di impedire a un'applicazione di rubare l'attenzione da un'altra quando un utente è apparentemente occupato a interagire con il primo. Si vedono gli stessi tipi di problemi che cercano di fare cose come avere un pulsante in un'applicazione che scrive i dati in un file temporaneo e aprire MS Word per modificarlo. Windows impedisce allo stato attivo di trasferire via dall'app corrente e passare a MS Word perché è stato semplicemente fatto clic su un pulsante nell'app corrente.

Quindi, invece di cercare di risolvere questo problema tecnico impossibile, facciamo un passo indietro e chiediamo che cosa stavi originariamente sperando di ottenere facendo tutto questo. In questo modo, forse, possiamo portarti dove stai cercando di andare :)

Answer 2

So che questa domanda è vecchia, ma ho incontrato questo stesso problema, ma non penso che la risposta sia stata scelta è quello giusto.

Quando si chiama AppActivate, lo script si interrompe, in attesa che l'applicazione di destinazione venga chiusa. Dopo che l'applicazione è terminata, lo script continua. Non vedo alcuna soluzione a questo problema.

EDIT:

io uso un file batch per chiamare CSCRIPT per il comando AppActivate, e ho notato che si sta rigorosamente utilizza un file VBS. Prova a chiamare CMD come una nuova finestra e passa CSCRIPT //NoLogo //B WScript.CreateObject("WSCript.shell").AppActivate("Window Name") come argomento, e vedi se questo elude il problema.

Answer 3

Analogamente, stavo cercando di utilizzare AppActivate su un documento PDF che avevo aperto con un comando di shell in modo che potessi usare SendKeys su di esso. Genererebbe sempre errore Run Time '5'. La mia soluzione, infine, è stata quella di NON utilizzare AppActivate affatto, infatti aprire il documento lo porta comunque in primo piano. Il problema è che l'istruzione SendKeys viene eseguita immediatamente dopo il comando della shell ma il pdf necessita di un secondo o due per essere aperto. La mia soluzione è di mettere in pausa il codice per un paio di secondi prima di escutare l'istruzione sendkeys.

Ho usato un tempo di ritardo puntinoso del crollo di un pootle. Controlla il thread qui: http://www.dbforums.com/microsoft-access/1219379-time-delay-vba.html

Answer 4

Dopo ore di ricerca su vari forum, ho potuto capire che non sarei in grado di utilizzare oggetti e funzioni della libreria Adobe con Adobe Reader. L'unica opzione valida rimasta era usare i comandi della shell per usare l'opzione "salva come testo" disponibile nel menu File di Adobe Reader.Il tasto di scelta rapida è Alt +f + un + x + s. Li ho implementati nel codice qui sotto che ha funzionato perfettamente, anche se mi è stato richiesto di inserire ritardi in alcuni passaggi.

Sub SavePDFasText() 
Dim AdobeReaderPath As String 
Dim PdfFilePath As String 
Dim PDFid, NotepdId As Double 

AdobeReaderPath = "C:\Program Files\Adobe\Reader 10.0\Reader\AcroRd32.exe" 
PdfFilePath = "D:\PowerGenMacro\opm_11.pdf" 
PDFid = Shell(AdobeReaderPath & " " & PdfFilePath, vbNormalFocus) 
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 5) 
'Alt+f+a+x is required to save the pdf as text in the adobe reader 
SendKeys "%(FAX)", True 
Application.Wait TimeSerial(Hour(Now()), Minute(Now()), Second(Now()) + 2) 
SendKeys "%S", True 
SendKeys "^q", True 

End Sub 

Answer 5

Prova SendKeys "% {tab}" per passare da una finestra ma poi tenere solo 2 finestre attive.

o provare appattivare solo dopo i tasti di invio {Tab} in modo che la casella di testo non sia selezionata prima di passare a cmd di windows.

o cercare provare nome della finestra AppActivate, 1 poi dormire 2000 ° per dare il tempo di portare quella finestra a fuoco