Live-Forum - Die aktuellen Beiträge
Datum
Titel
29.03.2024 13:14:12
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
684to688
684to688
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Brauche Excel Wert in Word Brief (Makro)

Brauche Excel Wert in Word Brief (Makro)
19.10.2005 15:40:21
marco
hi, ich hab folgenden Quellcode
Public

Sub SummeausExcel()
On Error GoTo FehlerSub
Dim appXL As Excel.Application
Set appXL = GetObject(, "Excel.Application")
appXL.workbooks.Open (ActiveDocument.Path & "\werte.xls")
ActiveDocument.Bookmarks("Betrag").Select
Selection.InsertAfter appXL.ActiveSheet.Range("C14")
appXL.Quit
Set appXL = Nothing
Exit Sub
FehlerSub:
If Err = 429 Then
Set appXL = GetObjekt("", "Excel.Application")
Else
Err.Raise Err.Number
End If
Resume Next
End Sub

Beide Dateien befinden sich im gleichen ordner - makro will nicht funktionieren. :(

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Brauche Excel Wert in Word Brief (Makro)
20.10.2005 15:10:55
Dennis
Moin Marco,
folgender Code funktioniert bei mir:

Sub SummeausExcel()
On Error GoTo FehlerSub
Dim appXL As Object
Set appXL = GetObject(ActiveDocument.Path & "\werte.xls")
ActiveDocument.Bookmarks("Test").Select
Selection.InsertAfter appXL.ActiveSheet.Range("A1")
Set appXL = Nothing
Exit Sub
FehlerSub:
If Err = 429 Then
Set appXL = Nothing
Else
Err.Raise Err.Number
End If
Resume Next
End Sub

Ansonsten empfehle ich für alle Fragen zu Word folgende Homepage: http://mypage.bluewin.ch/reprobst
Dort wird so ziemlich alles um Word beantwortet, was wichtig und sinnvoll ist.
Weiterhin viel Glück
Gruß
Dennis
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige