Office: (Office 365) Array aus Excel Tabelle einlesen Word VBA

Hallo,
ich benötige in einer Word Datei die Werte einer Excel Datei. Ich würde gerne eine Spalte als Array einlesen. Wie das Array ein lesen in Excel geht weiß ich, aber wie schaffe ich den Zugriff von Word aus.
Wie kann man das mit Word VBA realisieren.

Word Datei= TestTextdatei.docx
Excel Datei = TestTabelle.xlsx
Tabelle = Tabelle1
Bereich = A1:A50

Vielen Dank für die Hilfe.
schönen Gruß
Reinhard

 

Hallo Reinhard,

ich vermute mal es fehlt der Bezug zu Excel

Code:

Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")

 

Danke ist schon mal ein Anfang

aber ich habe keine Ahnung wies weitergeht
wie lese ich z.B. a=sheets(Tabelle1).Cells(1,1).value aus?

 

appexcel.sheets(Tabelle1).Cells(1,1).value

Gruß Hajo

 

Code:

Sub Enlesen()
dim k as Integer
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
k = appExcel.sheets(Tabelle1).Cells(1, 1).Value
end sub

Code:

k = appExcel.sheets(Tabelle1).Cells(1, 1).Value

Wenn ich es so eingebe, gibt es einen Fehler
Da muss man wohl angeben wie die Datei heißt, aber wie?

 

hatte ich übersehen
Workbooks("Meinemappe.xlsm").

Gruß Hajo

 

Code:

Sub Enlesen()
dim k as Integer
Dim appExcel As Object
Set appExcel = CreateObject("Excel.Application")
k = appExcel.sheets(Tabelle1).Cells(1, 1).Value
end sub

Vielen Dank für Deine Mühe und ich will nicht unhöflich sein, aber ich komme so nicht weiter. Wo und wie fügt man das ein?
Workbooks("TestTabelle.xlsx").

 

ich dachte Du kennst Dich in VBA aus, wenn Du solche kompßlizierten Sachen machts.
Es muss vor Sheets

Gruß Hajo

 

Hallo,

es ist eher unkompliziert. Ich würde es alles aus Word heraus erschlagen:

Code:

Option Explicit


Sub WerteAusExcelViaArray()
   Dim objExcel As Object, objWorkbook As Object
   Dim arr()
   Dim Pfad$: Pfad = "C:\Users\....\TestTabelle.xlsx"
   Set objExcel = CreateObject("excel.application")
   Set objWorkbook = objExcel.Workbooks.Open(Pfad)
   objExcel.Visible = True
   With objWorkbook
       arr = .Sheets("Tabelle1").Range("A1:A50").Value
       .Close
   End With
   objExcel.Quit
   Set objExcel = Nothing
   Set objWorkbook = Nothing
End Sub

Es sind nur die paar Zeilen nötig, und dir steht die Exceldatei als Objekt zum Verarbeiten nach Gutdünken zur Verfügung.

Gruß Uwe

 

Guten Morgen,
super so klappt es auch bei mir.
Danke vielmals
schönen Gruß
Reinhard

 

Gerne.

Gruß Uwe

 

Jetzt hab ich noch eine Frage wie lautet der Code wenn die xls bereits geöffnet ist?

 

Hallo Reinhard,

nutze die Intellisense des VBA Editor. Aktiviere dazu die Bibliothek von Excel. Da bekommst du dann als Programmierhelferchen angezeigt, was unter welchen Voraussetzungen machbar ist.
Auf diesem Wege hatte ich diese Prozedur zusammengestellt.

Gruß Uwe