ASCII-Datei aus Excel erzeugen - fcs hier irgendwo
18.02.2014 08:59:01
PeMoe
ich hatte Mitte letzten Jahres Hilfe von "fcs" zu einem Problem erhalten, welches im Forums-Archiv unter dem Link
https://www.herber.de/forum/archiv/1316to1320/t1317446.htm
zu finden ist.
Der entstandene VBA-Code sieht so aus:
Sub ASCII_Datei_2()
On Error GoTo Fehler
Dim ZE%, i%
Dim Datei
Dim A$, B$, C$, D$, E$, F$, G$, H$
Datei = Application.GetSaveAsFilename(InitialFileName:="ASCII-Barcode-Import.txt", _
Filefilter:="Text(*.txt),*.txt", _
Title:="Dateiname für ASCII-File auswählen/eingeben")
If Datei = False Then
MsgBox "Keine Daten erzeugt"
End
End If
ZE = InputBox("Daten ab Zeile", "Kopfzeile vorhanden", 2)
Close #1
Open Datei For Output As 1
For i = ZE To ActiveSheet.Cells(Rows.Count, 1).End(xlUp).Row
A = Format(Cells(i, 1), String(5, "0"))
B = Left(Cells(i, 2) & Space(1), 1)
C = Left(Cells(i, 3) & Space(3), 3)
D = Left(Cells(i, 4) & Space(8), 8)
E = Left(Cells(i, 5) & Space(13), 13)
F = Left(Cells(i, 6) & Space(8), 8)
Print #1, Join(Array(A, B, C, D, E, F), "/")
Next i
Close #1
MsgBox "Daten erzeugt"
Err.Clear
Fehler:
If Err.Number 0 Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description: Err.Clear
End Sub
Nun hat sich meine Anforderung folgendermaßen geändert:Das Feld "Artikelnummer", Spalte E in der Excel-Tabelle, muss nun 18, nicht mehr 13 Zeichen lang sein. Die Werte in der Spalte E der Excel-Tabelle sind immer 8 Zeichen lang und müssen mit führenden Nullen auf die 18 Zeichen Gesamtlänge aufgefüllt werden.
Kann mir jemand, vielleicht ist ja "fsc" nich da draußen, den obigen Code entsprechend anpassen bzw. erweitern?
Vielen Dank!
PeMoe