È necessario sapere come determinare se Microsoft Excel è in esecuzione se si sta andando ad essere lo sviluppo di applicazioni utilizzando Visual Basic for Applications (VBA) che verrà utilizzato Microsoft Excel come output 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 associare a Excel utilizzando il ProgID "Excel. Application".

Istruzioni

1

Avviare Microsoft Word, scegliere la scheda "Sviluppo" e fare clic su "Visual Basic" per avviare l'Editor di VBA. Fare clic sul menu "Inserisci" e scegliere "Modulo" per inserire un nuovo modulo.

2

Aggiungere il codice seguente per creare una nuova procedura:

Private Sub IsExcelOpen()
Su errore GoTo Err_IsExcelOpen:

3

Copiare e incollare il codice seguente per determinare se Excel è già in esecuzione:

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

MsgBox "Excel is running!"

End If

4

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

Impostare 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 "F5" per eseguire la procedura. Si riceverà un messaggio che indica che Excel è in esecuzione. Chiudere Excel ed eseguire la procedura nuovamente per ricevere un messaggio di che Excel non è in esecuzione.