---

Verweiswahlen.JPG Verweiswahlen_2.JPG

Ausgehend von den im Beitrag "Klasse Light / AcDbLight" genannten Umständen geht es darum in einem ACAD-VBA-Programm zunächst zu ermitteln, ob auf dem Rechner bereits eine Excelinstanz läuft, damit diese gegebenenfalls einer Objektvariablen zugewiesen werden kann.

Im VBA kann ich zwar eine neue Instanz von Excel erzeugen, aber keine laufende Instanz fehlerfrei(zuverlässig) ermitteln.
......
Dim EKSL As Excel.Application, Mappe As Excel.Workbook, Blatt As Excel.Worksheet
Set EKSL = New Excel.Application
.....

Die von mir ausprobierte Lösung

Function IstExcelGestartet(EKSL) As Boolean
' prüft, ob Excel schon gestartet ist
'04.04.2008

On Error GoTo Fehler
Set EKSL = GetObject(, "Excel.application")
IstExcelGestartet = True
Mfalsch:
On Error GoTo 0
Exit Function
Fehler:
'wenn excel noch nicht gestartet ist erzeugt der getobject-Aufruf den Fehler 429
'MsgBox Err.Number
IstExcelGestartet = False
Resume Mfalsch
End Function

arbeitet nicht zuverlässig.

Ich habe noch so dunkel in Erinnerung, daß es im Windows-API eine Funktion gibt mittels der man sie laufende Instanzen beliebiger Programme melden lassen kann. Das Problem meinerseits besteht jetzt darin , daß ich mir die DLL (user32.dll) nicht laden kann. Siehe hierzu auch die Screen Shots im Anhang. Meine Frage: Geht das im VBA generell nicht oder habe ich einen Fehler in der Verfahrensweise?

------------------
MfG

Günter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Günther,

So ganz verstehe ich Deinen Code noch nicht.
Du eröffnest am Anfang eine Excel-Instanz, danach prüfst Du ob ein Excel geöffnet ist?
(Lass das Set EKSL = New Excel.Application mal weg bzw. verwende es erst wenn Du es brauchst)

Der Function übergibst Du eine Variable, die dann aber nicht ausgewertet wird ...
(oder ist EKSL eine Variable innerhalb einer Prozedur und keine globale Variable? )

Hier mal eine Erweiterung eines Codes aus einem alten Beitrag im Forum (Suchfunktion),
für genauere Hinweise kannst Du selber mal hier schauen

Code:

---

Sub testIt()
    ' Definition der Variablen
    Dim xlApp As Excel.Application, _
        xlWB As Excel.Workbook, _
        IStartedXL As Boolean
    Dim strHilf as String
    On Error Resume Next
    Set xlApp = GetObject(, "excel.application") ' Excel Application zuordnen
    On Error GoTo 0
    If xlApp Is Nothing Then    ' Wenn es keine Excel-Application gibt
        Set xlApp = CreateObject("excel.application")  ' diese neu öffnen
        IStartedXL = True                              ' Merker setzen dieses Excel kommt von mir 
        End If
    ' Set xlWB = xlApp.Workbooks.Add    ' neues Workbook hinzufügen
    ' xlApp.Range("a1").Value = _   
        xlApp.Range("a1").Value + 1      ' irgendwas berechnen
    ' MsgBox xlApp.ActiveSheet.Range("a1").Value  ' und Ergebnis ausgeben

    strhilf = ""    ' Hier werden alle offenen Excel Workbooks angezeigt
    For L = 1 To xlApp.Workbooks.Count
      strhilf = strhilf & xlApp.Workbooks.Item(L).Path & "\" & xlApp.Workbooks.Item(L).Name & vbCrLf
    Next L
    MsgBox strhilf

    ' xlWB.Close False  ' neues Workbook schließen
    If IStartedXL Then xlApp.Quit  ' Wenn Excel neu gestartet wurde dieses beenden
    ' Set xlWB = Nothing  ' neues Workbook entfernen
    Set xlApp = Nothing  ' Excel applicationobject entfernen
    End Sub

---

Vielleicht hilft es Dir ja weiter

Grüße
Klaus 

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Klaus,

ja das hilft mir weiter. Auf den Einfall mit den Methoden GetObject und CreateObject kam ich nicht, obwohl es altbekannten grundlegende Methoden von VB sind. Es war eben zu naheliegend. Es funktioniert zuverlässig. Danke und Entschuldigung für die späte Antwort.

MfG

Günter

------------------
MfG

Günter

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP