export per makro mit fester Breite
16.10.2014 17:22:46
Klaus
ich habe eine Tabelle, die aus 24 Spalten besteht, die mit fester Breite als Textdatei exportiert werden müssen, an die Daten liegt es nicht,
ea geht mal mit 10, mal mit 1000, aber jeweils sind es die gleichen Testdaten gewesen. Insgesamt können es so bis 6000 Zeilen sein.
Es kommt immer wieder mal ein Laufzeitfehler 13.
das makro seiht wie folgt aus
Sub textExport()
Const maxcol = 24
Dim cellLen(maxcol)
cellLen(1) = 3
cellLen(2) = 4
cellLen(3) = 3
cellLen(4) = 22
cellLen(5) = 10
cellLen(6) = 60
cellLen(7) = 5
cellLen(8) = 1
cellLen(9) = 1
cellLen(10) = 1
cellLen(11) = 1
cellLen(12) = 3
cellLen(13) = 5
cellLen(14) = 5
cellLen(15) = 60
cellLen(16) = 4
cellLen(17) = 3
cellLen(18) = 3
cellLen(19) = 10
cellLen(20) = 6
cellLen(21) = 2
cellLen(22) = 22
cellLen(23) = 64
cellLen(24) = 2
For i = 1 To Worksheets.Count
Open "x:\Anfrage_APM.txt" For Output As #1
For j = 1 To Worksheets(i).Cells.SpecialCells(xlLastCell).Row
For k = 1 To maxcol
sstr = Worksheets(i).Cells(j, k)
Select Case Len(sstr)
Case Is > cellLen(k)
Print #1, Mid(sstr, 1, cellLen(k));
Case Is wäre nett wenn hier jemand eine Idee hat, wo es hakt.
Danke Klaus
Anzeige