Excel Blatt in eine Textdatei exportieren

Computer: Software & Programmierung Visual Basic
#1

Hallo,
hat man mit EXCEL eine möglichkeit mit Makros oder so die Datei
als Textdatei zu exportieren und zwar so, dass die Felder am Stück
ohne ; o.ä. mit fester Länge exportiert werden.

Angenommen ich habe 5 Spalten
ID, Name, Vorname , PLZ, Ort in meiner Excel Datei und will
nun eine Textdatei daraus generieren, die unabhängig von der Länge des Eintrags alle Werte aneinander hängt mit fester Stellenanzahl
(dabei halt wenn die ID eine Stelle hat trotzdem 5 Stellen schreibt (als Leerstelle oder Steuerzeichen).

Der Datensatz z.B.:
1 Bach Peter 78990 Woderteufel

soll nach folgenden Längenkriterien exportiert werden:
id (6 Stellen), Name (10 Stellen), VN (10 Stellen), plz (5 Stellen) , Ort (15Stellen) usw… so dass folgende Datei generiert wird:

000001Bach Peter 78990Woderteufel ]ende
000231WeisenbergMatthias 32442Mannheim ]ende
usw… ]ende signalisiert hier nur das ende der Zeile

Bitte keine Fragen, warum nimmst Du nicht csv, oder haust es
in eine DB und dann per Skript exportieren, die Anforderung ist halt so, sorry :smile: Kann mir das jemand helfen, wie ich mit VBScript oder VBMakro so was aus Excel heraus oder mit einem externen VBS machen kann ???
Besten Dank :smile:

#2

Z.B. mit einem VBA-Makro der folgenden Art:

Private Sub CommandButton1\_Click()
Dim R As Long, C As Long
Open "C:\Temp\ttt.txt" For Output As #1
R = 2 ' in Zeile 2 beginnen
Do
 If Cells(R, 1).Value = "" Then Exit Do
 Print #1, \_
 Format(Cells(R, 1), String(6, "@")) & \_
 Format(Cells(R, 2), "!" & String(10, "@")) & \_
 Format(Cells(R, 3), "!" & String(10, "@")) & \_
 Format(Cells(R, 4), "!" & String(5, "@")) & \_
 Format(Cells(R, 5), "!" & String(15, "@"))
'
' nähere Info in der VBA-Hilfe zur Format-Funktion!
'
 R = R + 1
Loop
Close #1
End Sub

Gruß aus dem Norden
Reinhard Kraasch (http://www.kraasch.de - Access / VB(A) Tipps & Tricks)

#3

Hallo Reinhard,
herzlichen Dank gen Norden. Ist für mich schon mal
ein guter Anfang. Habe mir VBA Buch zugelegt und stöber da nun rum.

merci & cu
NIP