Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: TXT-Datei erstellen

TXT-Datei erstellen
17.04.2014 12:09:49
Pepi
Hallo zusammen
Ich will (muss) wieder mal eine txt Datei erstellen. Vor einiger Zeit bekam ich über dieses Forum den Code in der Beispielmappe. (Durch "Datei speichern unter" als *.txt hat es immer wieder Gänsefüsschen im Text - deshalb diese Art von Code.)
https://www.herber.de/bbs/user/90234.xlsm
Doch leider macht mir der Command sTmp = "" Schwierigkeiten.
Lass ich den Befehl weg, wird bei jedem Print ... auch der bereits geschriebene Inhalt in die txt-Datei geschrieben. Setze ich aber nach jeder Zeile sTmp = "", dann ist die txt-Datei am Ende leer, obwohl zwischendurch Datein reingeschrieben werden.
Wo stimmt denn da was nicht!
Vielen Dank für Eure Hilfe
Pepi

Anzeige

4
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: TXT-Datei erstellen
17.04.2014 12:33:10
Rudi
Hallo,
das Problem ist, dass di sTmp=" " anstatt ="" geschrieben hast.
Do While oTxC(zx, 1)  ""
sx = 1
sTmp = ""
Do While oTxC(zx, sx)  ""
If sTmp = "" Then
sTmp = oTxC(zx, sx)
Else
sTmp = sTmp & vbTab & oTxC(zx, sx)
End If
sx = sx + 1
Loop
If Trim(sTmp)  "" Then Print #iFilNum, sTmp
zx = zx + 1
Loop
Gruß
Rudi

Anzeige
AW: TXT-Datei erstellen
17.04.2014 12:49:18
Pepi
Lieber Rudi
Leider nein - ich habe in meiner Verzweiflung beides probiert - leider ohne Erfolg!
Vermutlich liegt der T.. im Detail - doch erlaubt mir mein Balke vor dem Auge ihn nicht zu sehen.
Danke für weitere Tipps
Vielleicht probiert ihr Eure Tipps kurz aus in der Beispielmappe - dann wird es für Alle gleich klar - vielen Dank
mfg Pepi

Anzeige
AW: TXT-Datei erstellen
17.04.2014 12:54:21
Rudi
Hallo,
Vielleicht probiert ihr Eure Tipps kurz aus in der Beispielmappe
hab ich gemacht.
Gruß
Rudi

AW: TXT-Datei erstellen
17.04.2014 13:02:53
Rudi
Hallo,
Sub SU_SAP_Export_TXT()
Dim sPfa$, sFiE$, sFiT$, sTmp$
Dim z&, j%, iFilNum%, zx&, sx%, oTxC As Range
Set oTxC = Workbooks(ThisWorkbook.Name).Sheets(Tabelle1.Name).Cells()
sPfa = ThisWorkbook.Path & "\"
sFiT = "xSAP_" & Format(Now, "dd.MM.YY-hhmmss") & ".txt"
sFiE = "xPegEgl.xlsx"
iFilNum = FreeFile
Open sPfa & sFiT For Output As #iFilNum
zx = 1
Do While oTxC(zx, 1)  ""
sx = 1
sTmp = ""
Do While oTxC(zx, sx)  ""
If sTmp = "" Then
sTmp = oTxC(zx, sx)
Else
sTmp = sTmp & vbTab & oTxC(zx, sx)
End If
sx = sx + 1
Loop
If Trim(sTmp)  "" Then Print #iFilNum, sTmp
zx = zx + 1
Loop
Close #1
End Sub

Gruß
Rudi
Anzeige
;

Forumthreads zu verwandten Themen

Anzeige
Entdecke relevante Threads

Schau dir verwandte Threads basierend auf dem aktuellen Thema an

Alle relevanten Threads mit Inhaltsvorschau entdecken
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Entdecke mehr
Finde genau, was du suchst

Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten zu finden

Suche nach den besten Antworten
Unsere beliebtesten Threads

Entdecke unsere meistgeklickten Beiträge in der Google Suche

Top 100 Threads jetzt ansehen
Anzeige