Hallo liebe User,
eine kurze Frage:
Wie kann ich eine Excel-Tabelle als Textdatei mit fixer Spaltenlänge abspeichern. Die Spaltenlänge soll wählbar sein. Geht das ohne Script?
Danke im Voraus.
LG, Helmut
Hallo Helmut,
ohne VBA geht das nicht.
Die ganze Tabelle, oder einen bestimmten Bereich?
Alle Spalten mit gleicher länge, der unterschiedliche Spaltenbreiten?
Gruß Sepp
AW: Excel als Textdatei abspeichern
23.02.2011 09:21:37
Helmut
Hallo Sepp,
ok, dann mit VBA.
Die ganze Tabelle wäre abzuspeichern. Alle Spalten mit gleicher Zeichenlänge, also z.B. 30. Wenn ich als prn-File speichere, bekomme ich ein schon recht gewünschtes Ergebnis, aber hier kann ich keine Zeichenlänge eingeben, die ist verschieden im prn-File.
LG, Helmut
Anzeige
AW: Excel als Textdatei abspeichern
23.02.2011 17:10:04
Josef
Hallo Helmut,
manuell als .prn geht schon, du musst nur vorher die Spaltenbreite auf deine gewünschte Breite einstellen.
Allerdings werden Inhalte die länger sind nicht gekürzt!
Mit VBA geht es z. B. so.
Sub exportFixedLength() Dim strFile As String, strTmp AsString * 30, strOut AsString Dim lngRow As Long, lngLastRow As Long, lngCol As Long, lngLastCol AsLong Dim FF AsInteger
Open strFile For Output As #FF Len = lngLastCol * 30 For lngRow = 1 To lngLastRow strOut = "" For lngCol = 1 To lngLastCol strTmp = .Cells(lngRow, lngCol).Text strOut = strOut & strTmp Next Print #FF, strOut Next Close FF EndWith