Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
284to288
284to288
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Excel-Tabelle im txt-format (fixed length) speiche

Excel-Tabelle im txt-format (fixed length) speiche
28.07.2003 09:15:50
tk
Hallo,
wer kann mir sagen wie ich eine Tabelle (Excel 2000) als txt-file abspeichern kann, bei dem feste Spaltenbreiten im txt-file berücksichtigt sind. Beispiel: Die Exceltabelle hat drei Spalten a)Textinhalt max. 10 Zeichen, b)Zahl max. 10 Vor- und 2 Nachkommastellen c)Datum Format tt.mm.yyyy. Das txt-file soll jetzt so aussehen, daß alle Attribute hintereinander in einer Zeile stehen jedoch mit dem zuvor definierten Abstand zueinander, d.h. zunächst der Text (linksbündig), sofern er aber weniger als 10 Zeichen hat wird der Rest mit Leerzeichen aufgefüllt; dann die Zahl (rechtsbündig), sofern aber weniger als 10 Vorkommastellen ebenfalls mit Leerzeichen aufgefüllt; dann das Datum.
Sieht folgendermaßen aus:
TEXT___________12345,6728072003

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Excel-Tabelle im txt-format (fixed length) speiche
28.07.2003 09:19:25
Ivan
hi TK
deine chancen auf antwort mit nickname stehen schlecht.
aber einen tip gebe ich dir:))lol
speicher die datei unter htm.
gruss
ivan

AW: Excel-Tabelle im txt-format (fixed length) speiche
28.07.2003 09:34:03
Nepumuk
Hallo tk,
versuch es mal so:

Option Explicit
Public Sub test()
Dim hFile As Long, Zeile As Long
hFile = FreeFile
Open "D:\Eigene Dateien\Eigene Temp\Test.txt" For Output As hFile
For Zeile = 1 To Cells(65536, 1).End(xlUp).Row
Print #hFile, Trim(Cells(Zeile, 1)) & Space(10 - Len(Trim(Cells(Zeile, 1)))) & Trim(Cells(Zeile, 2)) & Space(12 - Len(Trim(Cells(Zeile, 2)))) & Trim(Cells(Zeile, 3))
Next
Close #hFile
End Sub


Code eingefügt mit: Excel Code Jeanie
Gruß
Nepumuk

Anzeige
AW: Excel-Tabelle im txt-format (fixed length) speiche
28.07.2003 13:35:19
tk
Danke Nepumuk, war ein guter Tipp. Funktioniert.

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige