---

Hallo zusammen,

mein Problem:
Eine Routine öffnet eine Excel-Datei und verarbeitet bestimmte Werte. Nach Beendigung wird aber der Excel-Prozess nicht gelöscht!

Hier mein reduzierter Code

----------------------------------------------------------
Sub excel_open_close()

    Dim oExc As Object, objKreis As AcadCircle
    Dim Einfügepunkt(0 To 2) As Double, dblRadius As Double
   
    Set oExc = CreateObject("Excel.Application")
    oExc.Visible = True
   
    oExc.Workbooks.Open FileName:="C:\Temp\Daten.xls"
   
    For i = 2 To 3

        Einfügepunkt(0) = oExc.Sheets("Punktliste").Cells(i, 2).Value
        Einfügepunkt(1) = oExc.Sheets("Punktliste").Cells(i, 3).Value
        Einfügepunkt(2) = 0
       
        dblRadius = 500

        Set objKreis = ThisDrawing.ModelSpace.AddCircle(Einfügepunkt, dblRadius)

    Next i
   
    oExc.Workbooks.Close
    oExc.Visible = False

End Sub
----------------------------------------------------------

Ich suche schon einige Zeit nach dem oder den Befehlen, der den Excel-Prozess sauber beendet

Für einen Hinweis wäre ich sehr dankbar

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

---

Der EXCELprozess ? den beendest du ja auch garnicht ?
Schau dir mal das Application-Objekt an und evtl. dessen Methode 'Quit' ?

Sorry vorab: Habe von VBA keine Ahnung, erschien mir aber treffend in der Hilfe.   

------------------
CAD.de System-Angaben  -  CAD on demand  -  User:FAQ(Acad)

[Diese Nachricht wurde von cadffm am 04. Aug. 2010 editiert.]

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

---

Hallo cadffm,

du hast mehr Ahnung von VBA als ich!

In der Doku stand genau die richtige Vorgehensweise

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