data import fra TXT kun data fra "idag"

Til inspiration - forudsætter at fil er sorteret og 'idag' står først:

Sub ReadLines()
  Dim fso: Set fso = CreateObject("Scripting.FileSystemObject")
  Dim InputLine, SplitLine, Today
  Dim i: i = 1
  Dim col
  Const ForReading = 1
  InputLine = ""
 
  For col = 1 To 4
      ThisWorkbook.Sheets(1).Columns(col).Clear
  Next
 
  With fso.GetFile("C:\ReadCSVOnDate.txt").OpenAsTextStream(ForReading)
      Do While Not .AtEndOfStream
        InputLine = .readline
        If Left(InputLine, 10) = "22-10-2010" Then
            SplitLine = Split(InputLine, ",")
            ThisWorkbook.Sheets(1).Range( _
                  ThisWorkbook.Sheets(1).Cells(i, 1), _
                  ThisWorkbook.Sheets(1).Cells(i, 4)).Value2 = SplitLine
            i = i + 1
        Else
            Exit Do
        End If
      Loop
      .Close
  End With
End Sub

Lukker denne...

Sender du et svar :-)

Et svar.. :-)