Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1252to1256
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

import textdatei von ftp

import textdatei von ftp
ftp
hallo an alle,
ich habe ein mobiles datenerfassungsgerät welches per ftp mit meinem rechner verbunden ist
nun möchte ich mit folgendem code von diesem gerät eine textdatei in excel importieren:
Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = "ftp://192.168.0.20/Application/BC/Dat_120229.txt"
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 1
Close
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, ";") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 1
Loop
Close
End Sub
Excel gibt aber den Fehler " Laufzeitfehler 52- Dateiname nicht gefunden" aus...
kann mir jemand helfen?
mit besten Grüßen
Sascha

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Benutzer
Anzeige
AW: import textdatei von ftp
02.03.2012 22:42:10
ftp
Hallo Sacha,
ich vermute der Grund hierfür ist, das Hardcoding der Filenummer. Probiers mal so:
Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim f as Integer
sFile = "ftp://192.168.0.20/Application/BC/Dat_120229.txt"
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 1
Close
f=freefile
Open sFile For Input As #f
Do Until EOF(1)
Line Input #1, sTxt
Do While InStr(sTxt, ";")
Cells(iRow, iCol).Value = Left(sTxt, InStr(sTxt, ";") - 1)
sTxt = Right(sTxt, Len(sTxt) - InStr(sTxt, ";"))
iCol = iCol + 1
Loop
Cells(iRow, iCol).Value = sTxt
iRow = iRow + 1
iCol = 1
Loop
Close
End Sub
Gruss
Theo
Anzeige
AW: import textdatei von ftp
06.03.2012 17:56:42
ftp
hallo theo,
vielen dank für die hilfe,
leider gibt mir excel immer noch die gleiche fehlermeldung (dateiname oder -nummer falsch).
liebe grüße
sascha

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige