Hi,
hab folgendes Problem. Ich benutze ein selbstgeschriebenes Programm welches leider noch nicht mit geöffneten Excel-Prozessen zusammenarbeitet. Es öffnet selber einen und dieser darf der einzige sein.
Public Function Datei_Init() As Boolean
ExterneAnwendung.StartInfo.FileName = "EXCEL.EXE"
ExterneAnwendung.GetProcessesByName(Excel)
On Error Resume Next
ExcelRun = GetObject(, "Excel.Application")
If Err().Number = 0 Then
If ExterneAnwendung.HasExited = False Then
If ExterneAnwendung.CloseMainWindow() = False Then
ExterneAnwendung.Kill()
MessageBox.Show("Der Versuch, das Hauptfenster von " & _
ExterneAnwendung.StartInfo.FileName & _
" zu schließen, ist fehlgeschlagen." & _
" Die Anwendung ist noch aktiv.")
Datei_Init = True
Exit Function
Else
MessageBox.Show("Der Versuch, das Hauptfenster von " & _
ExterneAnwendung.StartInfo.FileName & _
" zu schließen, war erfolgreich." & _
" Die Anwendung wurde beendet.")
Excel = CreateObject("Excel.Application")
Excel.Visible = False
Datei_Init = False
End If
End If
Else
Excel = CreateObject("Excel.Application")
Excel.Visible = False
Datei_Init = False
End If
End Function
Jedoch wenn ich mein Code versuche, schreibt er zwar hin das noch offen etc., aber er schließt ihn nicht.
Hat da jemand mal ein Vorschlag? Der Prozess kann auch gekillt werden!
Gruß und Dank
