Textdatei einlesen

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Hallo Ingrid,
du musst nur noch den Pfad und Dateinamen anpassen. Wenn du einen Open-Dialog für die Dateien wünschst, dann bau ich ihn dir gerne ein.
Dein Programm:

Public Sub Ingrid()
    Dim strtext As String
    Dim intfile As Integer, intcolumn As Integer
    Dim lngrow As Long, lngtotal As Long
    Application.ScreenUpdating = False
    Reset
    intfile = FreeFile
    intcolumn = 2
    Open "D:\Eigene Dateien\Eigene Temp\Test.tmp" For Input Access Read Lock Read Write As intfile
    Do While Not EOF(intfile)
        Input #intfile, strtext
        If IsNumeric(Left$(strtext, 3)) Then
            If CInt(Left$(strtext, 3)) >= 200 Then
                lngrow = lngrow + 1
                If lngrow > 65536 Then
                    lngrow = 1
                    intcolumn = intcolumn + 2
                End If
                lngtotal = lngtotal + 1
                Cells(lngrow, intcolumn) = CInt(Left$(strtext, 3))
                Cells(lngrow, intcolumn + 1) = Trim$(Mid$(strtext, 5))
            End If
        End If
    Loop
    Close #intfile
    Cells(1, 1) = lngtotal
    Application.ScreenUpdating = True
End Sub

Gruß
Nepumuk

Hallo Ingrid,
dann so:

Public Sub Ingrid()
    Dim strtext As String
    Dim intfile As Integer, intcolumn As Integer
    Dim lngrow As Long, lngtotal As Long
    Dim varfilename As Variant
    varfilename = Application.GetOpenFilename("Temp Files (*.tmp), *.tmp, Text Files (*.txt), *.txt")
    If VarType(varfilename) <> vbBoolean And varfilename <> False Then
        Application.ScreenUpdating = False
        Reset
        intfile = FreeFile
        intcolumn = 2
        Open varfilename For Input Access Read Lock Read Write As intfile
        Do While Not EOF(intfile)
            Input #intfile, strtext
            If IsNumeric(Left$(strtext, 3)) Then
                If CInt(Left$(strtext, 3)) >= 200 Then
                    lngrow = lngrow + 1
                    If lngrow > 65536 Then
                        lngrow = 1
                        intcolumn = intcolumn + 2
                    End If
                    lngtotal = lngtotal + 1
                    Cells(lngrow, intcolumn) = CInt(Left$(strtext, 3))
                    Cells(lngrow, intcolumn + 1) = Trim$(Mid$(strtext, 5))
                End If
            End If
        Loop
        Close #intfile
        Cells(1, 1) = lngtotal
        Application.ScreenUpdating = True
    End If
End Sub

Gruß
Nepumuk

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

Textdatei einlesen

5 Beiträge zum Forumthread Beiträge zu diesem Forumthread

302 Forumthreads zu ähnlichen Themen

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

5
Beiträge zum Forumthread

Beiträge zu diesem Forumthread