Wie Sie herausfinden, ob Excel bereits ausgeführt wird in VBA

Mitglieder-Login

InformationenMicrosoft Access

Wie SharePoint mit Microsoft Excel … Microsoft SharePoint ist eine Webanwendung Plattform zur Verwaltung und erstellen Intranet-Portale ,
So erstellen Sie ein Makro , um ein… Erstellen einer Microsoft Access-Makro , das die Ergebnisse einer Abfrage in Excel fügt kann durch d
Wie Sie das Gleiche Dropdown-Liste … Wenn Sie eine Excel-Tabelle , in die Sie oder andere Benutzer Daten eingeben müssen , können Sie die
Tutorial für MS Excel Microsoft Excel ist ein Tabellenkalkulationsprogramm Software-Programm , mit dem Sie tabellarische D

Software

HOME

* Computer Wissen >> Software >> Microsoft Access >> .

Wie Sie herausfinden, ob Excel bereits ausgeführt wird in VBA

? Sie müssen wissen, wie Sie feststellen können , ob Microsoft Excel ausgeführt wird , wenn Sie sich zu entwickeln sind Anwendungen mit Visual Basic für Applikationen (VBA) , die Microsoft Excel als Ausgang verwenden für wird Ihre Daten. Der schnellste Weg , um zu bestimmen , ob eine Anwendung in VBA ausgeführt wird , ist durch Objekt -Variablen . Diese Variablen des Objekts sind in der Lage , um zu Excel mithilfe des " Excel.Application " programmgesteuerten Bezeichner binden. Anleitung
1

Starten Sie Microsoft Word auf die Registerkarte "Entwicklertools" und klicken Sie auf " Visual Basic ", um den VBA-Editor zu starten. Klicken Sie auf das Menü "Einfügen" und klicken Sie auf "Module" ein neues Modul einfügen
2

Fügen Sie den folgenden Code, um ein neues Verfahren zu erstellen : .

Private Sub IsExcelOpen () On Error GoTo Err_IsExcelOpen :
3

Kopieren Sie den folgenden Code, um festzustellen, ob Excel bereits ausgeführt wird :

Dim xlsObject Wie ObjectSet xlsObject = GetObject ( , " Excel.Application " ;) Wenn ( xlsObject = "Microsoft Excel" ) ThenMsgBox "Excel läuft! " End If
4

Kopieren Sie den folgenden Code, um einen Fehler, wenn Excel erfassen nicht läuft und Release das Objekt aus dem Speicher , die in der vorherigen Schritt erstellt wurde :

Set xlsObject = NothingExit_IsExcelOpen : Ausfahrt SubErr_IsExcelOpen : If Err.Number = 429 ThenMsgBox "Excel nicht läuft ! " End ifSet xlsObject = NothingEnd Sub

5

starten Sie Microsoft Excel , und drücken Sie "F5 ", um die Prozedur auszuführen . Sie erhalten eine Meldung, dass Excel ausgeführt wird. Schließen Sie Excel , und führen Sie den Vorgang erneut , um eine Nachricht die Excel nicht ausgeführt wird erhalten .