Come eseguire un'applicazione Windows con Excel VBA

In alcune situazioni , si consiglia di aprire una seconda applicazione di Windows , pur operando in un'altra applicazione, come Excel . VBA , abbreviazione di Visual Basic , Applications Edition, fornisce un metodo che utilizza un paio di righe di codice per invitare un'altra applicazione , ad esempio Microsoft Word mentre si lavora con Excel . Anche se si potrebbe fare la stessa cosa , semplicemente utilizzando il comando "Start" per aprire la seconda applicazione , utilizzando VBA rende il secondo programma eseguito in modo asincrono . Vale a dire , il controllo torna immediatamente a Excel , che continua eseguire calcoli senza cambiare all'altra applicazione manualmente . Istruzioni
1

Aprire una nuova cartella di lavoro in Microsoft Excel . Fare clic sulla scheda "Sviluppatore " nel menu di livello superiore . Se non vedi questa opzione , fare clic sul pulsante "Office" in alto a sinistra di Excel . Selezionare "Opzioni di Excel " dalla finestra e fare clic sulla casella accanto a "Mostra scheda Sviluppo sulla barra multifunzione . " Fare clic su " OK ".

2 Fare clic sulla scheda " Visual Basic ", ora visibile nella riga di opzioni per sviluppatori . Questo apre un progetto di Visual Basic, Applications Edition (VBA ) window sviluppo .
3

Fare clic su " Visualizza" nella lista dei menu in alto nella finestra di sviluppo . Fare clic su "Codice " dall'elenco a discesa

Inserisci il seguente codice : .

Private Sub CommandButton1_Click ( ) Dim AppName Come String'The riga successiva definisce un modo per voi a scegliere il finestre app'AppName = InputBox ( " immettere il percorso e il nome del file eseguibile dell'applicazione ") ' la riga seguente mostra come è necessario inserire il percorso e il nome del file eseguibile per il app'AppName = "C: \\ Program Files ( x86 ) \\ Microsoft Office \\ Office12 \\ winword.exe "' Se l'App è nel percorso normale, come Word , Notepad , Excel IE , e altri standard di Microsoft ' sono , quindi non è necessario il percorso completo . Inserisci solo l' eseguibile effettivo programma , come si see.AppName = " winword.exe " Shell AppName , vbNormalFocusEnd Sub