Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
552to556
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
552to556
552to556
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Ausgabe Daten in Ascii-Datei mit festen Feldlängen

Ausgabe Daten in Ascii-Datei mit festen Feldlängen
25.01.2005 15:20:53
Flow23
Hallo zusammen,
habe heute die Aufgabe bekommen, eine Daten einer Excel-Tabelle über ein VBA-Makro in eine Ascii-Datei mit festen Feldlängen auszugeben. Dabei müssen nummerische Spalten rechtsbündig ausgegeben werden. Wenn die Zahl kleiner ist als die angegebenen Stellen, dann wird die Zahl links mit "Nullen" aufgefüllt.
Alphanumerische Felder müssen immer linksbündig ausgegeben werden. Wenn der Ausdruck weniger Stellen hat, als die angegebene Feldlänge, dann soll der Rest des Feldes rechts mit "Leerzeichen" aufgefüllt werden.
Wie kann man diese Problematik am besten in einem Makro lösen??
Sollte ich bereits in Excel die Werte mit Nullen und Leerzeichen auffüllen??
Mir fehlt da der richtige Ansatz!
Bitte helft mir.
Gruß Flow23

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ausgabe Daten in Ascii-Datei mit festen Feldlä
25.01.2005 17:09:11
Josef Ehrensberger
Hallo ? (realnames sind hier üblich und erwünscht!)
Meinst du in der art?


      
Option Explicit

Sub exportText_festeLänge()
Dim strL As String * 20
Dim lastRow As Long, lrow As Long
Dim sfile As String
sfile = 
"D:\Temp\laenge.txt"
lastRow = IIf(Range(
"A65536") <> "", 65536, Range("A65536").End(xlUp).Row)
Open sfile For Output As #1

   
For lrow = 1 To lastRow
   
      
If IsNumeric(Cells(lrow, 1)) Then
         strL = Format(Cells(lrow, 1), 
"00000000000000000000")
      
Else
         strL = Cells(lrow, 1)
      
End If
   
      
Print #1, strL
   
   
Next
Close #1
End Sub 

     Code eingefügt mit Syntaxhighlighter 3.0


Gruß Sepp
P.S.: Rückmeldung nicht vergessen!
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige