Makro pausieren bis externe Anwendung geschlossen
Universal
ich komme leider nicht mehr weiter mit meinem Latein. Es gibt zwar einige Hinweise und Threads, aber diese kann ich auf meinen Fall nicht anwenden, da mir das Wissen fehlt. :-/ Eigentlich sagt der Betreff schon alles. :-) Über ein Outlook-Makro lasse ich automatisch den Anhang einer Mail mit Excel öffnen, um das Dokument zu betrachten. In diesem Moment sollte das Makro solange warten, bis Excel geschlossen wird. Ich weiß, dass Outlook somit "inaktiv" bzw. "beschäftigt" ist, aber das ist nicht so schlimm. Ich hatte bereits versucht eine Do ... Loop-Schleife zu verwenden, die solangeläuft, bis das Objekt "Excel" = Nothing ist, aber irgendetwas habe ich wohl falsch gemacht ... Hättet ihr vielleicht einen Tipp für mich? Ich hoffe der Fakt, dass ich über Outlook mein Excel öffne, schreckt niemanden ab.
Ich bedanke mich schon einmal recht recht herzlich!!!
Code:
Sub Mail_Att()
Dim objExcel As New Excel.Application
With objExcel
.Application.DisplayAlerts = False
.Workbooks.Open wkb1
.Workbooks.Open TempWkb
.Visible = True
.Application.Run wkb1 & "!FormattingMailAtt"
.Workbooks(wkb1).Close
End With
Dim wkb2 As Object
Dim wkbIsOpen As Boolean
While wkbIsOpen = False
On Error Resume Next
Set wkb2 = objExcel.Workbooks(AttName)
If wkb Is Nothing Then
wkbIsOpen = False
Else
wkbIsOpen = True
End If
Wend
End Sub