Aus Excel TXT-Datei erstellen VBA

Hallo zusammen,
ich möchte aus einer Excel-Tabelle eine TXT-Datei erzeugen die das Leerzeichen als Trennzeichen benutzt.
Um dies mittels eines kleinen Makros zu erzeugen, habe ich reichlich VBA-Skripte gefunden, die auch entsprechend funktionieren.
Jetzt kommt aber mein Problem!!!
Diese TXT-Datei soll als Schnittstellendatei fungieren und die einzelnen Spalten sollen unterschiedlich große Feldlängen haben. Hieran scheitere ich kläglich und finde auch im WWW keine passendes Beispiel, welches ich eventuell für meine Zwecke umbauen könnte
Beispiel:
Spalte1 = Feldlänge 3
Spalte2 = Feldlänge 10
Spalte3 = Feldlange 50
Spalte4 = Feldlänge 8
usw.
Eigentlich kein Hexenwerk...aber ich scheitere bei den vordefinierten Feldlangen.
Ein Beispiel der Ergebnisdatei habe ich hochgeladen.
https://www.herber.de/bbs/user/139946.txt

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Sub aaa() Dim arrColumns Dim lngRow As Long, lngColumn As Long Dim l As Integer Dim arrOut(0 To 3), strOut As String arrColumns = Array(3, 10, 50, 8) Open "c:\temp\Test.txt" For Output As #1 For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row For lngColumn = 0 To 3 l = arrColumns(lngColumn) arrOut(lngColumn) = Left(Cells(lngRow, lngColumn + 1) & Space(l), l) Next strOut = Join(arrOut, " ") Print #1, strOut Next lngRow Close #1 End Sub

Hallo Nepumuk,
das funktioniert super, die Abstände stimmen und wird erkannt.
Aber wie kriege ich es jetzt noch hin, daß er auch mehrere Zeilen ausliest.
Ich habe da unterschiedliche Dateien, mit unterschiedlich vielen Einträgen (mal 5, aber auch mal 1000).
Das kann ich ja nicht einzeln dareinpacken. Kann ich hier einen Zähler hinkriegen der schaut in wievielen Zeilen Daten stehen und dann alle diese Zeilen ausliest und auch schreibt?
Sorry ich bin da echt nicht fit in solchen Sachen.
Ich hatte mich für die Variante on Rudi Maintaire entschieden die alle Zeilen ausliest, aber nicht rechtsbündig.
Ich habe versucht aus den Informationen beider Makros mir eins zu bauen, gelingt mir aber nicht!!!?
Hier nochmal das von Rudi:

Sub aaa()
Dim arrColumns
Dim lngRow As Long, lngColumn As Long
Dim l As Integer
Dim arrOut(0 To 3), strOut As String
arrColumns = Array(3, 10, 50, 8)
Open "c:\temp\Test.txt" For Output As #1
For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row
For lngColumn = 0 To 3
l = arrColumns(lngColumn)
arrOut(lngColumn) = Left(Cells(lngRow, lngColumn + 1) & Space(l), l)
Next
strOut = Join(arrOut, " ")
Print #1, strOut
Next lngRow
Close #1
End 

Sub
Er benutzt hier IngRow als Zähler, aber die Kombi aus beiden Makros gelingt mir gar nicht.
Vielen Dank im voraus
VG
Wesdi

Sub aaa() Dim arrColumns Dim lngRow As Long, lngColumn As Long Dim l As Integer Dim arrOut(0 To 3), strOut As String arrColumns = Array(3, 10, 50, 8) Open "c:\temp\Test.txt" For Output As #1 For lngRow = 1 To Cells(Rows.Count, 1).End(xlUp).Row For lngColumn = 0 To 3 l = arrColumns(lngColumn) arrOut(lngColumn) = Left(Cells(lngRow, lngColumn + 1) & Space(l), l) Next strOut = Join(arrOut, " ") Print #1, strOut Next lngRow Close #1 End Sub Er benutzt hier IngRow als Zähler, aber die Kombi aus beiden Makros gelingt mir gar nicht. Vielen Dank im voraus VG Wesdi

Beliebteste Forumthreads (12 Monate)

Aus Excel TXT-Datei erstellen VBA

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Aus Excel TXT-Datei erstellen VBA

10 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

10
Beiträge zum Forumthread

Beiträge zu diesem Forumthread