Dateinamen Importieren
13.12.2004 07:09:55
Marco
Wie bekomme ich den Dateinamen einer Importierten Textdatei in Spalte "B" untereinander Importiert habe den Pfad in Zelle "A1" stehen das ganze über VBA
möchte aber nicht das der Dateiname in den Quellcode so wie es unter "B" der Fall ist geschrieben wird.
Hier mein Quellcode:
Function Erstelldat() As Date
Erstelldat = ActiveWorkbook.BuiltinDocumentProperties("Creation date")
End Function
Private Sub CommandButton1_Click()
Open ThisWorkbook.Worksheets("Tabelle1").Range("A1").Value For Input As #1
Zeile = 3
Do While Not EOF(1)
Line Input #1, s
If Trim(s) <> "" Then
Zeile = Zeile + 1
If Zeile > Rows.Count Then
Sheets.Add
Zeile = 1
End If
Range("A" & Zeile) = Erstelldat()
Range("B" & Zeile) = ("mach01")
Range("C" & Zeile) = Mid(s, 4, 18)
Range("D" & Zeile) = Mid(s, 26, 2)
Range("E" & Zeile) = Mid(s, 30, 3)
Range("F" & Zeile) = Mid(s, 35, 3)
Range("G" & Zeile) = Mid(s, 40, 8)
Range("H" & Zeile) = Mid(s, 50, 3)
Range("I" & Zeile) = Mid(s, 55, 5)
Range("J" & Zeile) = Mid(s, 62, 8)
Range("K" & Zeile) = Mid(s, 72, 2)
Range("L" & Zeile) = Mid(s, 76, 18)
Range("M" & Zeile) = Mid(s, 97, 18)
End If
Loop
Close #1
End Sub
Gruß Marco