ich komme mit einer hoffentlich einfach zu beantwortenden Frage, für die ich selber keine Lösung gefunden habe.
Ich öffne per VBA eine andere Excel-Datei um daraus Tabellenblätter zu kopieren. Gerne würde ich hierbei das Erstelldatum der Datei, die ich geöffnet habe in einer Zelle mit auslesen. Und hier ist mein Problem, das kriege ich nicht hin. Die Datei öffne ich wie folgt wobei der Dateiname immer anders sein kann:
Dim wkbExport As Workbook, wksExport As Worksheet
Dim wkbZiel As Workbook, wksZiel As Worksheet
Set wkbZiel = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte Export-Datei auswählen"
.InitialView = msoFileDialogViewDetails
.InitialFileName = "*.xlsx"
.AllowMultiSelect = False
If .Show = -1 Then
Set wkbExport = Workbooks.Open(Filename:=.SelectedItems(1), Local:=True)
Set wksExport = wkbExport.Worksheets(1)
End If
End With
If wkbExport Is Nothing Then Exit SubDim wkbExport As Workbook, wksExport As Worksheet
Dim wkbZiel As Workbook, wksZiel As Worksheet
Set wkbZiel = ActiveWorkbook
With Application.FileDialog(msoFileDialogOpen)
.Title = "Bitte Export-Datei auswählen"
.InitialView = msoFileDialogViewDetails
.InitialFileName = "*.xlsx"
.AllowMultiSelect = False
If .Show = -1 Then
Set wkbExport = Workbooks.Open(Filename:=.SelectedItems(1), Local:=True)
Set wksExport = wkbExport.Worksheets(1)
End If
End With
If wkbExport Is Nothing Then Exit SubSheets("Teilnehmer").Select
ActiveSheet.Range("F2") = Format(DieseArbeitsmappe.BuiltinDocumentProperties.Item("Creation date"), "dd.mm.yy")
Bis hierhin ist alles prima. Die Datei ist noch geöffnet und aktiv. Nun würde ich gerne das Erstelldatum dieser Datei auslesen. Das hier war mein Lösungsansatz:
Sheets("Teilnehmer").Select
ActiveSheet.Range("F2") = Format(DieseArbeitsmappe.BuiltinDocumentProperties.Item("Creation date"), "dd.mm.yy")
Leider funktioniert dies nicht. Als Datum wird mir das Erstelldatum der Datei, mit der ich die Exportdatei geöffnet habe angegeben.
Kann mir jemand sagen, was ich falsch mache?
Vielen Dank schon einmal und Grüße
Jürgen