---

Hallo Gemeinde!

habe im Excel ein Macro, welches eine bestimmte Tabell erzeugt. Diese wird dann als OLE-Objekt in SWX platziert. Nun möchte ich in einem SWX Macro beides verbinden:

-Excel aufrufen
-betreffende Tabelle öffnen, Excel-Macro wird autom. ausgeführt,
neue Tabelle erzeugt, gespeichert = pfad
-per Zwischenablage wird der Pfad dem SWX mitgeteilt (OLE-Objekt einfügen).

Dabei tritt ein Problem auf:
SWX beendet Excel nicht sauber (nach dem ersten Durchlauf läuft der Prozess noch (Task MAnager), nach dem zweiten ist es in der Taskleiste sichtbar)
Bin ich auf dem Holzweg???

Das überlassen des Öffnens dem Excel über "with ExcelApp" hat nicht geklappt, Methode Application.document.open ("File") wir nicht unterstützt.

Habe übrigens beim Einbinden einer macro-Tabelle öfters die Fehlermeldung "Server ist überlastet". Vermute die beiden Probleme hängen zusammen.

Anbei verkürzte Version vom Macro (öffnet nur eine Excel-Tabelle)

Dim swApp As SldWorks.SldWorks
Dim ExcelApp As Object
'Dim ExcelApp As Excel.Application
Dim ExcelSheet As Object
'Dim ExcelSheet As Excel.Sheets
Dim Dokument As SldWorks.ModelDoc2
Dim SelectionMgr As Object

Sub main()

Set swApp = Application.SldWorks
Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = True
ExcelApp.WindowState = xlMaximized

Workbooks.Open filename:="C:\test1.xls"
MsgBox "Tabelle ist offen"
Workbooks.Close

Set ExcelApp = Nothing

End Sub

------------------
Iwona

[Diese Nachricht wurde von Iwona W. am 08. Nov. 2007 editiert.]

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

---

Hallo Iwona

ohne es getestet zu haben
mir scheint, dass Du mit "Workbooks.Close" Excel nicht beendest sondern "nur" die geöffneten Dateien schließt
Versuch es mal mit ExcelApp.quit zum Schluss um Excel zu beenden

LG
heinz

------------------
Grüße
Heinz

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

---

Habe es beretits probiert, sitze schon seit 2 Tagen an dem Ding.

Bei mir wird übrigens Excel erst mit dem setzen auf Nothing beendet. Und DER funktioniert sauber, so lange keine Tabell über wokbook.open geöffnet wird. Warum, ist mir schleierhaft..

------------------
Iwona

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

---

Hallo

der folgende Code funktioniert bei mir

Dim swApp As SldWorks.SldWorks
Dim ExcelApp As Object
'Dim ExcelApp As Excel.Application
Dim ExcelSheet As Object
'Dim ExcelSheet As Excel.Sheets
Dim Dokument As SldWorks.ModelDoc2
Dim SelectionMgr As Object

Sub main()

Set swApp = Application.SldWorks
Set ExcelApp = CreateObject("Excel.Application")

ExcelApp.Visible = True
ExcelApp.WindowState = xlMaximized

ExcelApp.Workbooks.Open "C:\test1.xls"

MsgBox "Tabelle ist offen"
ExcelApp.Workbooks.Close

ExcelApp.Quit
Set ExcelApp = Nothing

End Sub

LG
Heinz

------------------
Grüße
Heinz

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

---

Hallo,
Hatten vor kurzem ein ähnliches Problem.
Wir haben es folgendermaßen gelöst:

objxlsWB.Close
Set objxlsWB = Nothing
objExcelApp.Quit
Set objExcelApp = Nothing

------------------
Pfürti Jörg W 

www.hydac.com / Meine Homepage / Waleska Webdesign / CAD.de Hilfeseite / Forenstammtisch Saar

Member of CAD.de BOINC Team

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

---

Versuche es mal mit dem da:

Code:

---

For Each w In Application.Workbooks
    w.Save
Next w
Application.Quit

---

Excel geht zuerst alle Workbooks durch, speichert diese und schliesst danach Excel.
Funktioniert bei mir, wenn ich das Script aus Excel heraus starte.

------------------

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