Hallo.
vielleicht hat jemand eine Idee für mich ...
Ich möchte aus einer Abfrage heraus eine Textdatei erzeugen. Zur Trennung der Spalten will ich ein Pipe verwenden.
Mein bisheriger Ansatz war
DoCmd.OutputTo acQuery, "MeineAbfrage", "MS-DOSText(*.txt)", "C:\_Datei.txt", False, "", 0
Das Ergebnis ist zwar hübsch :D) ... aber ... ich brauche eine Datei, welche "zeichengetrennt" die Daten zur Verfügung stellt.
Danke schon einmal
Hallo,
das geht so nicht.
Am einfachsten ist es ein Recordset aufzumachen und in einer Schleife über alle DS die Daten in eine Textdatei schreiben.
Hier mal ein Beispiel:
Sub test()
Dim rs As DAO.Recordset
Dim strTextstring As String
Set rs = CurrentDb.OpenRecordset("qryTeilnehmer")
Open "c:\users\public\test.txt" For Output As #1
Do While Not rs.EOF
strTextstring = rs!Id & ";" & rs!Vorname & ";" & rs!Nachname & ";" & rs!Strasse & ";" & rs!PLZ & ";" & rs!Ort & ";" & rs!Telefon & ";" & rs!Email
Write #1, strTextstring
rs.MoveNext
Loop
Close #1
rs.Close
Set rs = Nothing
End Sub
Hallo,
es geht auch mit
Docmd.TransferText ......
unter Angabe einer vorher angelegten Exportspezifikaton (in der u. a. das Pipe-Zeichen als Trennzeichen definiert wird)...
Hallo Hondo,
Halllo DF6GL,
vielen Dank für Eure Tipps ... ich habe mich für die zweite Variante "DoCmd.TransferText" entschieden.
Der MS Assistent ist zwar ein bisschen zickig was Pipe betrifft, aber das kennt man ja von Assistenten :D
Der Ansatz mit der Exportspezifikation war mir bis dato nicht richtig bekannt.
Nochmals danke und ein herzliches Wochenende