Zellformat beim Einlesen ... Schleife ?
04.12.2003 11:32:04
Michael
nachfolgendes Makro dient dem Einlesen einer Textdatei.
Soweit funktioniert auch alles.
Bis auf das die Anzahl der Spalten variieren kann und es u.U. auch mal mehr als 50 werden können.
Ich möchte jetzt aber nicht alle 256 Spalten per array definieren.
Geht das nicht auch über eine Schleife?
Hintergrund ist, dass Werte wie 0E1 eigelesen werden könnten.
Die würden, definiert man die auszugebenden Spalten nicht als Text, in der Form 0,00E+00 ausgegeben werden.
Programmiert ist das ganze zu 95% mit dem Makrorecorder.
Meine VBA-Kenntinisse sind äußerst dürftig.
Über eine kleine Hilfestellung wäre ich sehr dankbar.
>Makro
Sub VDSSI()
ChDrive "C:\"
ChDir "C:\temp"
datei = Application.GetOpenFilename(".txt Dateien, *.txt")
If datei = False Then End
Workbooks.OpenText Filename:=datei, Origin:=xlWindows, StartRow:=1, DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote _
, ConsecutiveDelimiter:=False, Tab:=False, Semicolon:=True, Comma:= _
False, Space:=False, Other:=False, FieldInfo:=Array(Array(1, 2), Array(2, 2), _
Array(3, 2), Array(4, 2), Array(5, 2), Array(6, 2), Array(7, 2), Array(8, 2), Array(9, 2), _
Array(10, 2), Array(11, 2), Array(12, 2), Array(13, 2), Array(14, 2), Array(15, 2), Array( _
16, 2), Array(17, 2), Array(18, 2), Array(19, 2), Array(20, 2), Array(21, 2), Array(22, 2), _
Array(23, 2), Array(24, 2), Array(25, 2), Array(26, 2), Array(27, 2), Array(28, 2), Array( _
29, 2), Array(30, 2), Array(31, 2), Array(32, 2), Array(33, 2), Array(34, 2), Array(35, 2), _
Array(36, 2), Array(37, 2), Array(38, 2), Array(39, 2), Array(40, 2), Array(41, 2), Array( _
42, 2), Array(43, 2), Array(44, 2), Array(45, 2), Array(46, 2), Array(47, 2), Array(48, 2), _
Array(49, 2), Array(50, 2)), TrailingMinusNumbers:=True
End Sub
Gruss Michael