Import einer Textdatei ohne Trennzeichen

Informationen und Beispiele zu den hier genannten Dialog-Elementen:


Excel-Version: 9.0 (Office 2000)
nach unten

Betrifft: Import einer Textdatei ohne Trennzeichen
von: Bongartz
Geschrieben am: 10.07.2002 - 13:06:08

Hallo

ich möchte in Excel Textdateien über eine Userform importieren.
Die Textdateien haben keine Trennzeichen aber immer feste Feldlängen. (z.B. 14,14,14,10,5,30,12 usw.)
Die Satzlänge ist maximal 250 Zeichen.
Die Anzahl der Datensätze ist verschieden.

Wie kann ich diese Dateien in Excel per VBA einlesen?

Wie kann ich erreichen das die Daten als Text importiert werden?

Vielen Dank im voraus

Gruß
Bongartz


nach oben   nach unten

habe Lösung gefunden
von: Bongartz
Geschrieben am: 10.07.2002 - 17:00:46

So funktionierts:

Sub PricatImport()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "TEXT;C:\Dokumente\Pricat.txt", Destination:=Range("A1"))
        .Name = "Wilms"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .TextFilePromptOnRefresh = False
        .TextFilePlatform = xlWindows
        .TextFileStartRow = 1
        .TextFileParseType = xlFixedWidth
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileConsecutiveDelimiter = False
        .TextFileTabDelimiter = True
        .TextFileSemicolonDelimiter = False
        .TextFileCommaDelimiter = False
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, 2, _
        2)
        .TextFileFixedColumnWidths = Array(14, 14, 14, 10, 5, 30, 12, 7, 2, 2, 3, 3, 9, 7, 4, 7, 7, _
        8, 8, 5, 2)
        .Refresh BackgroundQuery:=False
    End With
    
End Sub
     Code eingefügt mit Syntaxhighlighter 1.13


 nach oben

Beiträge aus den Excel-Beispielen zum Thema "Import einer Textdatei ohne Trennzeichen "