Textdatei per VBA ohne leere Zeilen einlesen
06.03.2015 16:55:47
Tobias
Ich habe ein kleines Problem...und zwar speichere ich per Str+A
gewisse Daten aus dem Browser in einer Textdatei
und möchte diese dann in Excel einlesen, um den Input weiter zu verarbeiten
(per VBA über ein Modul).
Nun ist es so, dass verschiedene Browser
mal mehr und mal weniger Absätze mitkopieren...
zudem auch noch Leertasten/Tabs.
Um nun diese Dateien einheitlich in Excel einzulesen, muss ich zu
meinem vorhandenen Code irgendwie beim einlesen die leeren Zeilen
sowie Leertasten und Tabs, ja auch noch Punkte (.) entfernen.
Die Punkte habe ich schon wegbekommen, den Rest leider nicht.
Habe viel gegoogelt, leider bin ich nicht fündig geworden.
Mein bisheriger VBA Code lautet:
Sub Planet_importieren()
Application.ScreenUpdating = False
Dim Datei As String, Text As String
Dim Zeile As Long
On Error GoTo Fehler
'Quelldatei festlegen
Datei = ThisWorkbook.Path & "\Import Planet.txt"
Open Datei For Input As #1 ' Quelldatei öffnen.
Zeile = 5
Do While Not EOF(1) ' Schleife bis Dateiende
Line Input #1, Text ' Text lesen
ActiveSheet.Cells(Zeile, 21) = Replace(Text, ".", "")
Zeile = Zeile + 1
Loop
Close #1 'Quelldatei schließen
Application.CutCopyMode = False
Exit Sub
Fehler:
Close #1
MsgBox "FehlerNr.: " & Err.Number & vbNewLine & vbNewLine _
& "Beschreibung: " & Err.Description _
, vbCritical, "da ist leider ein Fehler aufgetreten"
Application.ScreenUpdating = True
End Sub
Beispiel:
aaaaa
[Tab]bbbbb
ccccc
ddddd
eeeee
fffff
ggggg
hh.hhh.hh
iii
j
kkk
aussehen sollte es dann so:
aaaaa
bbbbb
ccccc
ddddd
eeeee
fffff
ggggg
hhhhhhh
iii
j
kkk
Ich hoffe, dass ihr mir (und natürlich auch allen mit einem ähnlichen Problem)
weiterhelfen könnt. Bis dahin, danke für die Aufmerksamkeit!
Beste Grüße
Tobias