Erstelldatum
15.12.2004 14:10:23
Marco
Ich habe ein Problem ich Importiere eine Textdatei in Excel möchte mir jetzt in Spalte "A" das Erstelldatum von der Textdatei anzeigen lassen so wie ich es jetzt habe bringt er nir das Erstelldatum der Exceldatei ich stehe ein bisschen auf dem Schlauch wer kann mir helfen.
Hier mein Quellcode:
Function Erstelldat() As Date
Erstelldat = ActiveWorkbook.BuiltinDocumentProperties("Creation date")
End Function
Private Sub CommandButton1_Click()
Open ThisWorkbook.Worksheets("Tabelle1").Range("A2").Value For Input As #1
Zeile = 4
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) = ThisWorkbook.Worksheets("Tabelle1").Range("D2").Value
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
Anzeige