|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.12.2019 10:43:54 |
Tobias |
|
|
|
09.12.2019 11:12:07 |
Mase |
|
|
|
09.12.2019 11:29:21 |
Tobias |
|
|
|
09.12.2019 11:38:18 |
Mase |
|
|
|
09.12.2019 11:56:42 |
Gast45947 |
|
|
|
09.12.2019 12:11:18 |
Mase |
|
|
|
09.12.2019 12:29:30 |
Gast92710 |
|
|
|
09.12.2019 12:53:27 |
Mase |
|
|
|
09.12.2019 13:40:54 |
Tobias |
|
|
 Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen |
09.12.2019 19:55:39 |
Mase |
|
|
|
10.12.2019 08:32:47 |
Tobias |
|
|
|
10.12.2019 09:08:15 |
Mase |
|
|
|
10.12.2019 12:11:02 |
Tobias |
|
|
|
11.12.2019 07:45:30 |
Mase |
|
|
Von:
Mase |
Datum:
09.12.2019 19:55:39 |
Views:
732 |
Rating:
|
Antwort:
|
Thema:
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen |
So wird das nix, Tobias -
Hier eine Möglichkeit zu prüfen, ob Excel schon läuft oder nicht:
Wenn ja, setze Referenz auf Objektvariable xlApp.
Wenn nein, erzeuge eine neue Instanz mit referenz auf Objektvariable xlApp.
Sub GetOrSetObject()
Dim xlApp As Excel.Application
'
On Error GoTo FinishErr
'Prüfen, ob Excel geöffnet...
'Wenn keine Instanz vorhanden, wird der Fehler 429 erzeugt ...
Set xlApp = GetObject(class:="Excel.Application")
'Excel Anzeigen
xlApp.Visible = True
'Excel schließen
xlApp.Quit
FinishErr:
Select Case Err.Number
Case 0
Case 429
'... Fehler 429 wird verarbeitet -> Excel ist auf dem System nicht geöffnet, also jetzt eine Instanz erstellen
Set xlApp = New Excel.Application
'..bei Excel anzeigen weitermachen
Resume Next
Case Else
MsgBox Err.Number & vbCr & Err.Description, vbCritical, "Autor informiert:"
End Select
'
Set xlApp = Nothing
End Sub
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
|
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
09.12.2019 10:43:54 |
Tobias |
|
|
|
09.12.2019 11:12:07 |
Mase |
|
|
|
09.12.2019 11:29:21 |
Tobias |
|
|
|
09.12.2019 11:38:18 |
Mase |
|
|
|
09.12.2019 11:56:42 |
Gast45947 |
|
|
|
09.12.2019 12:11:18 |
Mase |
|
|
|
09.12.2019 12:29:30 |
Gast92710 |
|
|
|
09.12.2019 12:53:27 |
Mase |
|
|
|
09.12.2019 13:40:54 |
Tobias |
|
|
Prüfen ob Excel Datei bereits geöffnet ist und ggf. schließen |
09.12.2019 19:55:39 |
Mase |
|
|
|
10.12.2019 08:32:47 |
Tobias |
|
|
|
10.12.2019 09:08:15 |
Mase |
|
|
|
10.12.2019 12:11:02 |
Tobias |
|
|
|
11.12.2019 07:45:30 |
Mase |
|
|