werte von txt.Datei in Exceldatei einfügen
01.03.2019 08:29:19
txt.Datei
ich habe hier diese Code gefunden. Funktion dieser Code ist, dass er kopiert die Werte in Textdatei und einfügt sie in Excel Datei. Das funktioniert super.
Das Problem ist: er fügt jede Zeile in einer Zelle und gibt die Werte mit punkt (z.B. 0.75 usw.)
Wie kann man dieser Code anpassen, dass er:
1) Nach jeder Leerzeichen, trennt er die Werte in spalten
2) Werte mit punkt in werte mit komma umwandelt (z.B. 0.75 in 0,75)
3)Pfad in P1 lesen
4)Dateiname in P2 lesen
5)ab Spalte D sollte Zahlenformat sein und nicht als Text
Sub TextImport()
Dim iRow As Integer, iCol As Integer
Dim sFile As String, sTxt As String
Dim vntTmp As Variant
sFile = Range("P1").Value
If Dir(sFile) = "" Then
Beep
MsgBox "Datei wurde nicht gefunden!"
Exit Sub
End If
iRow = 1
iCol = 1
Open sFile For Input As #1
Do Until EOF(1)
Line Input #1, sTxt
sTxt = Replace(sTxt, ",", ".")
vntTmp = Split(sTxt, "|")
vntTmp = Application.Transpose(Application.Transpose(vntTmp))
Cells(iRow, iCol).Resize(1, UBound(vntTmp, 1)) = vntTmp
iRow = iRow + 1
Loop
Close #1
End Sub
Grüße
Ro