Supportnet / Forum / Textverarbeitung
txt-Datei in Word-Makro auswerten
Frage
Schönen guten Tag!
Beim Versuch, die Serienbrief-Funktion zu automatisieren, habe ich folgendes Problem:
Die Excel-Quelldatei erzeugt per Makro eine .txt-Datei mit dem Inhalt Dateiname, Pfad und Tabellenblatt.
Damit nun die Serienbrief-Steuerdatei mit Hilfe dieser Daten die zu verarbeitende Quelldatei finden, aufrufen und selbständig zu Serienbriefen verwursten kann, fehlt mir nur noch eines:
Es gelingt mir nicht, die Mini-.txt-Datei per Word-Makro zu öffnen!
Hier die kritische Stelle:
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile(quelle, ForReading, False)
Fehlermeldung bezüglich der 2.Zeile:
Laufzeitfehler 5: Ungültiger Prozeduraufruf oder ungültiges Argument.
Scheußlich,nicht?.
Antwort 1 von Frank1
Also in VB gehts so:
Open "Datei.txt" For Input As #1
und dann die offene Datei zeilenweise auslesen:
Line Input #1, zeile
Wobei Zeile die Variable ist, in der dann der Inhalt der jeweiligen Zeile steht. Müßte in VBA in Word eigentlich genauso gehn.
Das kann man dann mit einer Schleife bis EOF machen, aber wenns denn bloß eine Zeile ist, hat man gleich das Ergebnis - das braucht man ja dann nur noch auseinanderzunnehmen.
mfg Frank
Open "Datei.txt" For Input As #1
und dann die offene Datei zeilenweise auslesen:
Line Input #1, zeile
Wobei Zeile die Variable ist, in der dann der Inhalt der jeweiligen Zeile steht. Müßte in VBA in Word eigentlich genauso gehn.
Das kann man dann mit einer Schleife bis EOF machen, aber wenns denn bloß eine Zeile ist, hat man gleich das Ergebnis - das braucht man ja dann nur noch auseinanderzunnehmen.
mfg Frank
Antwort 2 von Frank1
Ja Uwe,
habs grad nochmal getestet, geht auch in Word so - könnte kurzes Beispiel Mailen - aber Quelltext geht ja auch hier:
Private Sub CommandButton1_Click()
Dim Zeile1 As String
Dim Namedatei As String
Namedatei = "Muster.txt"
Open Namedatei For Input As #1
Do While Not EOF(1)
Line Input #1, Zeile1
MsgBox (Zeile1)
Loop
Close #1
End Sub
Naja, das Ereignis irgendwo anbinden und die Ausgabe natürlich nicht in ne Box...
mfg Frank
habs grad nochmal getestet, geht auch in Word so - könnte kurzes Beispiel Mailen - aber Quelltext geht ja auch hier:
Private Sub CommandButton1_Click()
Dim Zeile1 As String
Dim Namedatei As String
Namedatei = "Muster.txt"
Open Namedatei For Input As #1
Do While Not EOF(1)
Line Input #1, Zeile1
MsgBox (Zeile1)
Loop
Close #1
End Sub
Naja, das Ereignis irgendwo anbinden und die Ausgabe natürlich nicht in ne Box...
mfg Frank
Antwort 3 von Uwe Radecke
Gigantisch!
Ich sehe und staune!
Das war Deine gute Tat des Tages ;-)
Ging auch problemlos einzubinden.
Morgen ist hier Kirchweih, da stoßen meine Kollegen und ich auf Deinen tollen Beitrag an!
Danke nochmals.
Uwe
Ich sehe und staune!
Das war Deine gute Tat des Tages ;-)
Ging auch problemlos einzubinden.
Morgen ist hier Kirchweih, da stoßen meine Kollegen und ich auf Deinen tollen Beitrag an!
Danke nochmals.
Uwe
Antwort 4 von Frank1
Danke Uwe,
wenn man sone Antwort bekommt, hilft man immer wieder gerne :-)
Und viel Spass auf der Kirchweih - darf man da auch Bier trinken?
mfg Frank
wenn man sone Antwort bekommt, hilft man immer wieder gerne :-)
Und viel Spass auf der Kirchweih - darf man da auch Bier trinken?
mfg Frank