Variabel von Excel nach Word übergeben
30.03.2017 10:04:09
Excel
Nach stundenlanger Suche finde ich nirgends eine Lösung für mein Problem.
Ich möchte aus Excel heraus ein Word Dokument öffnen und es mit Variablen aus Excel füllen. Die Idee ist eine Variabel (Pfad und Dateiname)aus Excel nach Word zu übertragen, diese Variabel benutze ich dann in Word um aus Excel die benötigten Daten auszulesen.
Um word aus Excel zu öffnen ist kein Problem, hier benutze ich ein Button mit folgender Makro :
Dim AppWD As Object
Set AppWD = CreateObject("Word.Application") 'Word als Object starten
AppWD.Visible = True
AppWD.documents.Open "VDIVBHW_LUX1_Wokri LuxVorlagenESIS-Dynamisch_D_TESTESIS_Dynamisch.doc"
In Word sieht das so aus:
Name der Excel Datei angeben
Private Const sAdressDatei As String = "H:dataESIS" +VARIABEL AUS EXCEL
'Name des Tabellenblatts angeben (hier WoKRi Rechner)
Private Const sTabellenblatt As String = "WoKRi_Rechner"
'Name des Tabellenblatts angeben (hier eff_Zinssatz_Formel)
Private Const sTabellenblatt_2 As String = "eff_Zinssatz_Formel"
'Name des Tabellenblatts angeben (hier Tilgungsplan_F)
Private Const sTabellenblatt_3 As String = "Tilgungsplan_F"
Dann befülle ich meine Textmarken mit ActiveDocument.Bookmarks =...
Wie kann ich nun den Pfad und den Namen der Excel Datei beim Drücken des Buttons nach Word übermitteln, so dass die Makro in Word dann das Dokument befüllen kann? Also, wie ich Pfad und Dateiname auslese, weiss ich, nur nicht wie ich diese Variabel nach Word "schicken" kann, um sie dort für mein script zu benutzen.
Mit bestem Dank im Voraus