eines kleines Problem, aber ich komme nicht weiter.
Ich möchte beim Einlesen einer Textdatei prüfen, ob es die richtige Datei ist.
Aber ich meine nicht die Prüfung des Dateinamens, sondern des Inhalts.
Wenn also nicht der erwartete Inhalt vorgefunden wird, soll eine Fehlermeldung
rausgegeben werden.
Alle Versuche mit "on error resume next" oder "if ... then" bekomme ich nicht richtig hin.
Hier mein Script zur Zeit zum Einlesen der Textdaten ...
Sub Daten_Holen()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim iFile As Integer
Dim tmp As Variant, tmp2 As Variant
Dim lRow As Long
lRow = 5 'Startzeile der Einträge
sFile = Range("A1").Value
iFile = FreeFile
fileToOpen = Application _
.GetOpenFilename("Text Files (*.txt), *.txt")
If fileToOpen <> False Then
MsgBox "Open " & fileToOpen
End If
If Dir(sFile) = "" Then
Beep
MsgBox "Die Textdatei wurde nicht gefunden !!!"
Exit Sub
End If
sSearch = "Name"
Open sFile For Input As iFile
Do Until EOF(1)
Input #iFile, sTxt
If InStr(sTxt, sSearch) Then
tmp = Split(sTxt, Chr(34))
Cells(lRow, 1) = tmp(4) 'Name
Cells(lRow, 2) = tmp(14) & " / " & tmp(8)
lRow = lRow + 1
End If
Loop
Close iFile
MsgBox "Datenimport aus Datei # event.txt # war erfolgreich !!! ", vbInformation, "Hinweis ..."
End Sub
Kann mit jemand weiterhelfen, wie man eine Eingabeprüfung vornimmt?
Danke und Grüße, Axel