Hallo Macro und API Profis,
ich hänge seit mehreren Tagen an einem Speicherproblem in meinem Macro.
Funktion:
Aus Solid Works starte ich ein Macro, das eine Eingabemaske öffnet
Nach der Eingabe der Werte startet das Macro Excel und ruft eine bestehende Excel Tabelle auf
In der Excel Tabelle ist ebenfalls ein Macro hinterlegt, das ich starte und Berechnungen durchführe
Nach Beendigung des Macros in Excel werden die errechneten Werte ins SWX Macro eingelesen
Die Excel Tabelle wird (oder soll??) unter dem gleichen Namen wieder abgespeichert
Excel wird geschlossen
Ergebnis Ausgabe in SWX
Mein Problem:
Beim ersten Durchlauf funktioniert alles, jedoch wird die Ecxel Tabelle nicht wirklich unter seinem Namen abgespeichert, sondern es entsteht eine zusätzliche Datei: RESUME.XLW
Beim nächsten Durchlauf ist dann kein speichern mehr möglich
Meine Vermutung:
Ich denke, der Schlüssel liegt schon beim öffnen der Excel Tabelle. An diesem Punkt komme ich nicht mehr weiter.
Auch im Forum und Google war nicht die Lösung zu finden.
Vielleicht weiß hier jemand die Lösung?
Hier der Programmteil, an dem ich an Excel herangehe:
Option Explicit
Dim ExcelApp As Object
'Arbeiten mit Excel
Set ExcelApp = CreateObject("Excel.Application") 'Excel öffnen
ExcelApp.Visible = False 'Excel ausblenden
ExcelApp.Workbooks.Open Pfad 'Dokument öffnen
ExcelApp.Application.Cells(2, 7).Value = Nummer_min 'In Excel Zelle schreiben
ExcelApp.Application.Cells(3, 7).Value = Nummer_max 'In Excel Zelle schreiben
'Aufruf von Suchprogramm in Excel
ExcelApp.Application.Run "Zeichnungsnummern.xls!Nummer_eintragen"
Nummer = ExcelApp.Application.Cells(4, 7) 'Ergebnis aus Zelle lesen
ExcelApp.Application.Cells(2, 7).Value = "" 'In Excel Zelle löschen
ExcelApp.Application.Cells(3, 7).Value = "" 'In Excel Zelle löschen
ExcelApp.Application.Cells(4, 7).Value = "" 'In Excel Zelle löschen
ExcelApp.Save 'Sichern
ExcelApp.Workbooks.Close 'Dokument schließen
ExcelApp.Quit 'Excel verlassen
Set ExcelApp = Nothing
------------------
Viele Grüße
Peter
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP