Textdatei importieren (VBA)
Daniel
vlt. könnt ihr mir auf die Sprünge helfen.
Ich exportiere aus einer Excel Datei Datensätze in eine Textdatei, Datenfelder werden mit dem pipe
( | ) getrennt.
Datensatz ist wie folgt aufgebaut
abc|KDNR|1,5|100|...
def|KDNR||50...
Diesen Export lade ich nun in eine bestehende Tabelle.
Import funktionert, leider bekomme ich den Wert '1,5' als Zeichenfolge in die Zelle eingetragen und kann mit diesem Wert nun nicht weiterrechnen.
Kann ich vor dem Import die '1,5' als Wert 'deklarieren' bspw. mit CDbl?
Der Code den ich für den Import hier gefunden habe und verwende:
Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
sFile = Range("P1").Value
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
Für eine Rücksprache besten Dank im Voraus.
Grüße, Daniel