Text von Spalten in .txt File

Hallo, ich brauche eure Hilfe.
Ich möchte Daten von Spalten einer Exceldatei (siehe Anhang) in einer Textdatei (.txt) speichern. Für jede einzelne Spalte soll eine eigene Zeile in der Textdatei angelegt werden und die Symbole in den Zellen (falls vorhanden) der jeweiligen Spalte in einem bestimmten Format erscheinen. Also die erste Zeile der Textdatei soll wie folgt aussehen:
Name1.Name2("20170228", {"A","AAL","AAP","AAPL"}
Nach Name1.Name2(" soll das Datum, welches sich in der jeweiligen Zeile 3 befindet in doppelten Hochkommata stehen. Die Symbole der Spalte sollen in doppelten Hochkommata + geschweifte Klammern stehen. Siehe Beispielzeile.
Vielen Dank im Voraus.
LG
https://www.herber.de/bbs/user/121723.xlsx

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Option Explicit Sub createTXTFiles() Dim lngCol As Long, rng As Range, rngCol As Range Dim strFile As String, strPath As String, strText As String Dim FF As Integer strPath = "D:\Forum" If Right(strPath, 1) <> "\" Then strPath = strPath & "\" With Sheets("Tabelle1") 'Tabellenname - Anpassen! For lngCol = 1 To .Cells(3, .Columns.Count).End(xlToLeft).Column If .Cells(3, lngCol) <> "" Then On Error Resume Next Set rngCol = .Range(.Cells(4, lngCol), .Cells(.Cells(.Rows.Count, lngCol).End(xlUp).Row, _ lngCol)).SpecialCells(xlCellTypeConstants) Err.Clear On Error GoTo 0 If Not rngCol Is Nothing Then strFile = .Cells(3, lngCol).Text & ".txt" strText = "Name1.Name2(""" & .Cells(3, lngCol).Text & """, {""" For Each rng In rngCol If Len(Trim$(rng)) Then strText = strText & rng.Text & """,""" Next strText = Left(strText, Len(strText) - 2) & "}" End If FF = FreeFile Open strPath & strFile For Output As #FF Print #FF, strText Close #FF End If Next End With End Sub VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

Hallo Wolfgang,
Modul Modul1

Option Explicit 
 
Sub createTXTFiles() 
  Dim lngCol As Long, rng As Range, rngCol As Range 
  Dim strFile As String, strPath As String, strText As String 
  Dim FF As Integer 
 
  strPath = "D:\Forum"  'Pfad - Anpassen! 
   
  If Right(strPath, 1) <> "\" Then strPath = strPath & "\" 
   
  strFile = "spalten.txt" 'Dateiname - Anpassen! 
   
  With Sheets("Tabelle1")   'Tabellenname - Anpassen! 
    For lngCol = 1 To .Cells(3, .Columns.Count).End(xlToLeft).Column 
      If .Cells(3, lngCol) <> "" Then 
        On Error Resume Next 
        Set rngCol = .Range(.Cells(4, lngCol), .Cells(.Cells(.Rows.Count, lngCol).End(xlUp).Row, _
          lngCol)).SpecialCells(xlCellTypeConstants) 
        Err.Clear 
        On Error GoTo 0 
        If Not rngCol Is Nothing Then 
          strText = strText & "Name1.Name2(""" & .Cells(3, lngCol).Text & """, {""" 
          For Each rng In rngCol 
            If Len(Trim$(rng)) Then strText = strText & rng.Text & """,""" 
          Next 
          strText = Left(strText, Len(strText) - 2) & "}" & vbCrLf 
        End If 
      End If 
    Next 
  End With 
   
  If Len(strText) Then 
    FF = FreeFile 
    Open strPath & strFile For Output As #FF 
    Print #FF, Left(strText, Len(strText) - 2); 
    Close #FF 
  End If 
End Sub 
 

VBA/HTML-CodeConverter, AddIn für Office 2002-2016 - in VBA geschrieben von Lukas Mosimann. Projektbetreuung:RMH Software & Media
Code erstellt und getestet in Office 16 - mit VBAHTML 12.6.0

	A	B	C	D	E	F
1	Gruß Sepp
2
3

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text von Spalten in .txt File

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

303 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread