Fehler bei Datei einlesen, Pfad nicht gefunden
03.07.2014 10:38:32
shup
Hallo Forum,
ich will über eine Funktion von mehreren .txt Dateien Informationen einlesen und in meine Excel-Tabelle einpflegen. Jetzt bekomme ich aber immer an der Stelle Open f1 For Input As #LstFile einen Fehler ("Laufzeitfehler 75: Fehler beim Zugriff auf Pfad/Datei"). Ich hab schon einiges probiert und finde den Fehler nicht.
Vielen Dank schon Mal!
Euer shup
Function FillNewLabel(ByVal labelCol)
Dim LstFile As Byte
Dim text2 As String
i = 5
Do Until Tabelle1.Cells(i, 1).Value = ""
MsgBox (Tabelle1.TextBox1.Value & "\" & Tabelle1.Cells(i, 1).Value)
fl = (Tabelle1.TextBox1.Value & "\" & Tabelle1.Cells(i, 1).Value)
LstFile = FreeFile
Open f1 For Input As #LstFile
Do While Not EOF(1) ' Schleife bis Dateiende.
Line Input #LstFile, text2
On Error Resume Next
'Tabs durch Leerzeichen ersetzen
text2 = Replace(text2, vbTab, " ")
Tabelle1.Cells(i, labelCol).Value = text2
Close #LstFile
i = i + 1
Loop
End Function