Hallo,
hab´s schon in einem anderen Forum probiert, da konnte man mir leider nicht helfen. Das Problem ist, das ich eine ExcelInstanz aus AutoCAD öffnen möchte, etwas machen und dann wieder schließen. Und am schließen hängt es, sobald ich was in dem ExcelSheet mache.
Bei diesem Code bleibt Excel immer noch als Prozess im Speicher und läuft halt, ohne sich von dem Code beenden zu lassen!
Code:
Sub GehtNicht() Dim docAcMap As AcadDocument
dim iAnzahl as Integer
Dim ExcelApp As Excel.Application
Dim ExcelWbk As Excel.Workbook
Dim ExcelWks As Excel.Worksheet
'Open
Set ExcelApp = New Excel.Application
Set ExcelWbk = ExcelApp.Workbooks.Open(Filename:="C:\Mappe1.xls")
Set ExcelWks = ExcelWbk.Worksheets("Tabelle1")
'ToDo
iAnzahl = Range("A2").End(xlDown).Row
'Close
ExcelApp.ActiveWorkbook.Close SaveChanges:=False
ExcelApp.Quit
Set ExcelWks = Nothing
Set ExcelWbk = Nothing
Set ExcelApp = Nothing
End Sub
Wenn ich aber den bearbeitenden Teil rausnehme, dann funktioniert es. Wobei hier ja nur die Anzahl der Zeilen ermittelt wird und nicht mal etwas in das Sheet geschrieben wird.
Code:
...
iAnzahl = Range("A2").End(xlDown).Row
...
Der Code ist so wie er ist lauffähig und egal aus welchem VBA (Word, Access, usw.) man das probiert es ist immer das selbe. Hab die Werte der alten Mappe auch schon in eine neue Datei übernommen, nix ... will einfach alles nicht. ;(
Vielleicht hat von Euch jemand eine Idee, warum das so ist.
Gruß TP
[Diese Nachricht wurde von BloodyMess am 03. Sep. 2004 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP