Microsoft Excel

Herbers Excel/VBA-Archiv

TXT-Datei erstellen

Betrifft: TXT-Datei erstellen von: Pepi
Geschrieben am: 17.04.2014 12:09:49

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

  

Betrifft: AW: TXT-Datei erstellen von: Rudi Maintaire
Geschrieben am: 17.04.2014 12:33:10

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


  

Betrifft: AW: TXT-Datei erstellen von: Pepi
Geschrieben am: 17.04.2014 12:49:18

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


  

Betrifft: AW: TXT-Datei erstellen von: Rudi Maintaire
Geschrieben am: 17.04.2014 12:54:21

Hallo,
Vielleicht probiert ihr Eure Tipps kurz aus in der Beispielmappe
hab ich gemacht.

Gruß
Rudi


  

Betrifft: AW: TXT-Datei erstellen von: Rudi Maintaire
Geschrieben am: 17.04.2014 13:02:53

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


 

Beiträge aus den Excel-Beispielen zum Thema "TXT-Datei erstellen"