Microsoft Excel

Herbers Excel/VBA-Archiv

Datenübernahme von Word nach Excel | Herbers Excel-Forum


Betrifft: Datenübernahme von Word nach Excel von: Elena
Geschrieben am: 13.01.2012 07:33:06

Guten morgen,

ich hab da noch ein Problem. Ich möchte, das Daten aus einem Worddokument beim Speichern in eine Excelarbeitsmappe übertragen werden. Die Felder des Worddokumentes sind Textformularfelder. Geht das nur mit VBA?

Viele Grüße

Elena

  

Betrifft: AW: Datenübernahme von Word nach Excel von: JoWE
Geschrieben am: 13.01.2012 23:52:12

Hi Elena,
soweit ich Word kenne, geht das nur mit VBA.
vllt. bringt Dich das hier auf den Weg?
Erstelle eine Excel-Arbeitsmappe speichere und schließe sie.
In Deiner Worddatei sollte bereits ein Feld mit einem Wert enthalten sein.
Drücke in Word ALT+F11 - die VBA-Umgebung geht auf
Menü Einfügen, Modul - rechts siehst Du einen großen weißen Bereich
Füge hier den folgenden Code ein:

Sub data2Excel()
    Dim xlAnw
    Set xlAnw = CreateObject("Excel.Application")
    xlAnw.Workbooks.Open ("C:\temp\Test.xls") 'Hier deine Pfadangabe u. Dateiname anpassen
    xlAnw.sheets(1).Range("B3") = ActiveDocument.Fields(1).Result 'hier das Feld mit dem Index ' _
1'.
    xlAnw.Visible = True
End Sub

Schließe die VBA-Umgebung über das "X".
Starte das Makro.
Gruß
Jochen


  

Betrifft: AW: Datenübernahme von Word nach Excel von: Elena
Geschrieben am: 16.01.2012 14:05:05

Hallo Jochen,

vielen Dank, hat super geklappt.

Gruß

Elena