Text-Datei in Excel einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo,
persönlich bin ich kein so großer freund dieser Abfrage, aber versuche es mal hiermit.
Habe dies mit dem Makrorekorder aufgezeichnet und noch etwas modifiziert,
vielleicht reicht es ja so schon.
Erstellt unter xl2007, gehts auch unter xl2000?

Sub TextFileLesen()
Dim strFile As String
Dim iCalc As Integer


strFile = Application.GetOpenFilename("All TextFile (*.txt), *.txt")
    
If Not strFile = CStr(False) Then
   With Application
     
     iCalc = .Calculation
     .ScreenUpdating = False
     .EnableEvents = False
     .Calculation = xlCalculationManual
    
        Range("A15", Cells(Rows.Count, 2)).Value = ""
        With ActiveSheet.QueryTables.Add(Connection:="TEXT;" & strFile _
            , Destination:=Range("$A$15"))
            .Name = "Text File"
            .FieldNames = True
            .RowNumbers = False
            .FillAdjacentFormulas = False
            .PreserveFormatting = True
            .RefreshOnFileOpen = False
            .RefreshStyle = xlOverwriteCells
            .SavePassword = False
            .SaveData = True
            .AdjustColumnWidth = True
            .RefreshPeriod = 0
            .TextFilePromptOnRefresh = False
            .TextFilePlatform = 850
            .TextFileStartRow = 1
            .TextFileParseType = xlDelimited
            .TextFileTextQualifier = xlTextQualifierDoubleQuote
            .TextFileConsecutiveDelimiter = False
            .TextFileTabDelimiter = True
            .TextFileSemicolonDelimiter = False
            .TextFileCommaDelimiter = False
            .TextFileSpaceDelimiter = False
            .TextFileColumnDataTypes = Array(1, 1)
            .TextFileTrailingMinusNumbers = True
            .Refresh BackgroundQuery:=False
          
          Do Until ActiveSheet.QueryTables.Count = 0
            ActiveSheet.QueryTables(1).Delete
          Loop
        End With 'QueryTables 

     .Calculation = iCalc
     .ScreenUpdating = False
     .EnableEvents = False
    
    End With 'Application 
End If
End Sub

Gruß Tino

Sub TextFileLesen() Dim strFile As String, sInhalt As String Dim myAr1, myAr2() Dim A As Long Dim iCalc As Integer strFile = Application.GetOpenFilename("All TextFile (*.txt), *.txt") If Dir$(strFile, vbNormal) <> "" Then With Application iCalc = .Calculation .ScreenUpdating = False .EnableEvents = False .Calculation = xlCalculationManual Range("A15", Cells(Rows.Count, 2)).Value = "" F = FreeFile Open strFile For Binary As #F sInhalt = Space$(LOF(F)) Get #F, , sInhalt Close #F myAr1 = Split(sInhalt, vbNewLine) Redim myAr2(Ubound(myAr1), 1) On Error Resume Next For A = Lbound(myAr1) To Ubound(myAr1) myAr2(A, 0) = Split(myAr1(A), vbTab)(0) myAr2(A, 1) = Split(myAr1(A), vbTab)(1) Next A On Error GoTo 0 Range("A15").Resize(Ubound(myAr2, 1) + 1, 2) = myAr2 .Calculation = iCalc .ScreenUpdating = False .EnableEvents = False End With 'Application End If End Sub

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Text-Datei in Excel einlesen

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

301 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread