Datum aus Dateiname (*.csv - Datei)
24.11.2016 15:47:21
Robert
ich importiere mal wieder diverse Exceldateien, um diese auszuwerten. Derzeit habe ich das Problem, das ein wichtiges Datum nicht in der Tabelle enthalten ist, sondern im Dateinamen.
Meine Routine zum Öffnen der Datei:
Sub Datum()
Dim Importdateiname As String
Dim Importdaten As Worksheet
Dim RecDate As Date
Set Importdaten = ThisWorkbook.Worksheets("ABC")
'Laufwerk und Pfad definieren, welcher geöffnet werden soll
ChDrive "P"
ChDir "P:\GS_MO\OpRisk\Meeting"
'Dialog "Datei öffnen" anzeigen
Importdateiname = Application.GetOpenFileName("Text Files(*.csv), *.csv")
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Importdateiname
RecDate = CDate(Format(Split(ActiveWorkbook.Name)(1), "00"".""00"".""0000"))
End Sub
Hieraus möchte ich das Datum im Format 23.11.2016 in eine Zelle schreiben (hier: Tabellenblatt ABC Zelle B2)
Die Formel RecDate = ... funktioniert bei diesem Import leider nicht.
Wie ist das möglichst einfach darstellbar?
Danke
Robert