Einzelnen Beitrag anzeigen

Jumpy

Registriert seit: 9. Dez 2010
Ort: Mönchengladbach
1.733 Beiträge
 
Delphi 6 Enterprise
 
#2

AW: Excel von Fernsteuerung über Com lösen?

  Alt 17. Sep 2018, 17:23
Hab eine Lösung gefunden: Die Anwendung schließt sich erst nach einem Timer-Event. Bis dahin ist das via Com(?) aufgerufene Makro sauber beendet, die fremde Software gibt den Zugriff auf Excel frei (meine Vermutung) und dann feuert irgendwann das Event und schließt die Datei. In Code:

Code:
Public Sub AutomatischGestartetesMakro()
 
  'Hier diverser Code zum formatieren
  '...

  If Application.Workbooks.Count = 1 Then
    Application.OnTime Now + TimeValue("00:00:01"), "QuittingSelf"
  Else
    Application.OnTime Now + TimeValue("00:00:01"), "ClosingSelf"
  End If
End Sub

Sub ClosingSelf()
    ThisWorkbook.Close False
End Sub

Sub QuittingSelf()
    ThisWorkbook.Saved = True
    Application.Quit
End Sub
Ralph
  Mit Zitat antworten Zitat