Mit Excel Word schließen
10.08.2005 09:20:18
Timo
ich möchte gerne mit Excel Word schließen, dass ich auch mit Excel geöffnet habe. hier Quelltext:
##########################################
Application.DisplayAlerts = False
channelNumber = Application.DDEInitiate( _
"WINWORD", ThisWorkbook.Path & "\Intern.doc")
Check = MsgBox("Wollen die Rechnung mit den letzten Datensatz drucken?", vbOKCancel, "Drucken")
If Check = 1 Then
Application.DDEExecute channelNumber, "[FILEPRINT]"
End If
Application.DDETerminate channelNumber
Application.DisplayAlerts = True
##########################################
mit Application.DDETerminate channelNumber schließt sich Word nicht...
Für schnelle Hilfe wäre ich dankbar!
LG Timo