16. november 2010 - 01:14
Der er
3 kommentarer og
1 løsning
data import fra TXT kun data fra "idag"
Jeg har en txt(kommasepereret) fil som hele tiden bliver opdateret og derfor er den meget stor. denne fil vil jeg gerne kunne importere til excel så den fylder så lidt data som muligt, jeg skal kun bruge data fra txt filen som er fra dagsdato
kan jeg ved hjælp af vba trække dette data ind?
og i så fald hvordan gør jeg det...? :-)
txtfilen er opbygget således:
Dato,Tidspunkt,Omsætning,IndexTal
22-10-2010,12:30,50000kr,95%
22-10-2010,12:45,54020kr,104%
22-10-2010,13:00,56099kr,99%
16-11-2010,12:30,39900kr,46%
16-11-2010,12:45,52120kr,104%
16-11-2010,13:00,55599kr,87%
16. november 2010 - 11:33
#1
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
