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

istruzione

1 Avviare Microsoft Word, fare clic sulla scheda "Sviluppatore" e fare clic su "Visual Basic" per avviare l'editor 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 Copiare e incollare il seguente codice per determinare se Excel è già in esecuzione:

Dim xlsObject As Object
Set xlsObject = GetObject (, "Excel.Application")
Se (xlsObject = "Microsoft Excel") Poi

MsgBox "Excel is running!"

Finisci se

4 Copiare e incollare il seguente codice per acquisire un errore se Excel non è in esecuzione e rilasciare l'oggetto dalla memoria che è stato creato nel passaggio precedente:

Set xlsObject = Nothing
Exit_IsExcelOpen:

Exit Sub

Err_IsExcelOpen:

If Err.Number = 429 Then
MsgBox "Excel is not running!"
End If
Set xlsObject = Nothing

End 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.