Come determinare se Excel è già in funzione in VBA ?

Hai bisogno di sapere come determinare se Microsoft Excel è in esecuzione se si sta andando ad essere lo sviluppo di applicazioni con Visual Basic, Applications Edition (VBA) che utilizzeranno Microsoft Excel come uscita per i tuoi dati . Il modo più rapido per determinare se l'applicazione è in esecuzione in VBA è attraverso le variabili oggetto . Queste variabili oggetto sono in grado di legarsi a Excel utilizzando il " Excel.Application " identificatore programmatico . Istruzioni
1

lancio di Microsoft Word , fare clic sulla scheda "Sviluppatore " e cliccare su " Visual Basic " per avviare l'editor di VBA . Fare clic sul menu "Inserisci" e fare clic su "Modulo " per inserire un nuovo modulo
2

Aggiungere il seguente codice per creare una nuova procedura : .

Private Sub IsExcelOpen ( ) On Error GoTo Err_IsExcelOpen :
3

Copia e incolla il seguente codice per determinare se Excel è già in esecuzione :

Dim xlsObject Come ObjectSet xlsObject = GetObject ( , " Excel.Application " ;) Se ( xlsObject = "Microsoft Excel " ) ThenMsgBox " Excel è in esecuzione ! " End If
4

Copia e incolla il seguente codice per catturare un errore se Excel non è in esecuzione e il rilascio l'oggetto dalla memoria che è stato creato nel passaggio precedente :

xlsObject = NothingExit_IsExcelOpen : Uscita SubErr_IsExcelOpen : If Err.Number = 429 ThenMsgBox " Excel non è in esecuzione ! " End IFset xlsObject = NothingEnd Sub

5

Avviare Microsoft Excel e premere il tasto "F5" per eseguire la procedura . Si riceverà un messaggio che indica che Excel è in esecuzione . Chiudere Excel ed eseguire nuovamente la procedura per ricevere un messaggio di Excel non è in esecuzione .