Word VBA - In Word Exceldatei auslesen

Computer: Software & Programmierung Office Software
#1

Hallo,

bislang bin ich kläglich daran gescheitert aus Microsoft Word (VBA Projekt) heraus eine Exceldatei zu öffnen und zu einem Tabellenblatt bestimmte Werte auszulesen (im VBA Code).

Es soll zum Beispiel im aktiven Worddokument

  • die Exceldatei „edatei.xls“ geöffnet,
  • das Tabellenblatt „Liste1“ referenziert,
  • dort das Feld „B2“ ausgelesen und
  • der Wert im aktuellen Worddokument an die aktuelle Stelle geschrieben werden.

Ich habe schon mehrere Kannen Kaffee vernichtet und bin immer noch nicht einen einzigen Schritt weitergekommen…

Schon mal Danke für jede Hilfe

#2

Sub ReadExcelWorkbook()
’
’ RakonDark Makro help on wer-weiss-was
’
’ Excel Objekt variable anlegen
Dim Excel As Object
’ Excel Objekt erzeugen und in Variable speichern
Set Excel = CreateObject(„Excel.Application“)
’ Excel Datei öffnen
Excel.Workbooks.Open („C:\Documents and Settings\sheinatz\Desktop\edatei.xls“)
’ Excel Programm unsichtbar
Excel.Application.Visible = False
’ Aus Tabellenblatt Liste1 Spalte B Reihe 2 Wert auslesen und in thome speichern
thome = Excel.Worksheets(„Liste1“).Range(„B2“).Value
’ Excel schliessen.
Excel.Quit
’ Excel objekt zerstören
Set Excel = Nothing
’ Text aus variable in worddokument einfügen
Selection.TypeText (thome)
End Sub

[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]

#3

Hallo,

ein grosses Dankeschö !!!

Es funktioniert bestens!!!