Datum aus Dateiname
23.11.2016 18:26:56
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
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("Excel-Dateien(*.xls), *.xls")
'Abbrechen falls keine Datei ausgewählt
If Importdateiname = "Falsch" Then Exit Sub
End If
'Ausgewählte Datei öffnen
Workbooks.Open Filename:=Importdateiname
End Sub
Nach diesem Teil der Routine gilt für die heutige Datei: Importdateiname="P:\GS_MO\OpRisk\Meeting\Offen 231116 ABC.xls"
Hieraus möchte ich das Datum im Format 23.11.2016 in eine Zelle schreiben (hier: Tabellenblatt ABC Zelle B2)
Wie ist das möglichst einfach darstellbar?
Danke
Robert
Anzeige