Zellformat beim Einlesen ... Schleife ?

Bild

Betrifft: Zellformat beim Einlesen ... Schleife ?
von: Michael
Geschrieben am: 04.12.2003 11:32:04

Hallo Makrospezialisten,

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
Bild


Betrifft: AW: Zellformat beim Einlesen ... Schleife ?
von: q
Geschrieben am: 04.12.2003 13:08:52

Schau mal hier nach, ob du etwas findest :
https://www.herber.de/cgi-bin/searchstruct.pl?begriff=Import
Die Excel-Recherche auf diesem server ist sehr umfangsreich :-). Gruss q


Bild

Beiträge aus den Excel-Beispielen zum Thema " Zellformat beim Einlesen ... Schleife ?"