Wie kann ich Excel-Zellen für Word auslesen?

Ich muss den Inhalt einer speziellen Zelle in einem Excel-Sheet als String auslesen und in einem Word-Dokument einfügen. Das ganze soll per VBA funktionieren. Dabei sollte die Excel-Datei bestenfalls geschlossen bleiben. Kann jemand helfen? Nutze MS-Office 2013.

Answer 1

[HermannL]

Beispielsweise so:

Sub Excel_to_Word()

Dim oDoc As Document

Set oDoc = ActiveDocument

Set MyXL = CreateObject("Excel.Application")

MyXL.Visible = True

MyXL.Workbooks.Open ("Deine Datei mit Pfad")

Set meinWert = MyXL.ActiveWorkbook.ActiveSheet

a = meinWert.Range("C30").Value

oDoc.Activate

Selection.InsertAfter a

End Sub

Makro in Worddokument einbringen, das den Wert aufnehmen soll. ACHTUNG: Hier fehlen noch sämtliche Deklarationen und Fehlerbehandlungsroutinen.

Comments

[HermannL]

Nachtrag: Wenn du in Zeile 5 den Wert auf FALSE setzt, bleibt Excel unsichtbar. Dann muss es aber zum Schluss explizit geschlossen werden, damit es nicht im Hintergrund weiter aktiv ist.

Answer 2

[Suboptimierer]

Ohne es zu öffnen, wirst du an die Daten nicht heran kommen. Du kannst aber die Sichtbarkeit von Excel steuern.

Sub HoleWert()
  Dim oExcel, wb, ws
  
  Set oExcel = CreateObject("Excel.Application")
  oExcel.Visible = False

  On Error GoTo Fehler
    Set wb = oExcel.workbooks.Open("E:\tmp\Text to Formel.xlsx")
  Set ws = wb.Worksheets(1)
  Debug.Print ws.Range("B4").Value
  wb.Close
Fehler:
  oExcel.Visible = True
  
  Set ws = Nothing
  Set wb = Nothing
  Set oExcel = Nothing
End Sub

Woher ich das weiß: Berufserfahrung – Programmierer