Excel aus Word ansprechen
02.09.2014 17:46:46
ing.grohn
Hallo Forum,
ich komme mit einem Problem nicht weiter:
wenn ein Worddokument geschlossen wird möchte ich eine Information in eine bereits geöffnete Exceldatei schreiben.
Mein Versuch scheiterte kläglich:
Private Sub Document_Close()
Dim xlWbk As Object
Dim objExcel As Object
MsgBox "schliesssen"
Set objExcel = GetObject("Excel.Application.11") '& Version)
Set xlWkb = objExcel("start.xls")
xlWkb.Sheets("Tabelle2").Range("A3").Value = "test"
Set xlWkb = Nothing
MsgBox "fertig"
End Sub
das funktioniert nicht!(im Netz hab ich nichts passendes gefunden)
Weiß jemand eine Lösung?
Vielen Dank für Eure Bemühungen!
Mit freundlichen Grüßen
Albrecht