Add-In Makro Erstelldatum
13.01.2016 11:20:48
Robert
ich habe ein Problem mit meinem Add-In Makro.
Dieses Add-In Makro hab ich in Excel eingefügt und kann das für jede x-beliebige Datei ausführen. Das Problem ist dabei, dass in der Zelle das Erstelldatum des Add-In Makros eingetragen wird. Ich möchte jedoch das Erstelldatum der x-beliebigen Datei, welche in dem Moment geöffnet ist, eintragen lassen. Der restliche Code kopiert dann lediglich das Datum in eine weitere Datei.
Habt ihr eine Idee wie ich das Add-In Makro so verändere, dass das Erstelldatum der x-belibigen geöffneten Datei eingetragen wird?
vielen dank schon mal für eure Hilfe
Nachfolgend mein Code:
Private Sub Workbook_AddinInstall()
Status
End Sub
Sub Status()Dim a
Dim oDateiSystem As Object
Dim oDatei As Object
Application.DisplayAlerts = False
Dim CurrentWB As Workbook
Set CurrentWB = ActiveWorkbook
Set oDateiSystem = CreateObject("Scripting.FileSystemObject")
Set oDatei = oDateiSystem.getfile(ThisWorkbook.FullName)
Debug.Print Left(oDatei.DateCreated, 10)
CurrentWB.Sheets("Status").Cells(10, 10).Value = Left(oDatei.DateCreated, 10)
CurrentWB.Sheets("Status").Cells(10, 10).Copy
Dim wb As Workbook
Set wb = Workbooks.Open("Ordnerpfad/Datei.xlsx")
wb.Sheets("Status").Select
a = wb.Sheets("Status").Cells(Rows.Count, 1).End(xlUp).Row + 1
If wb.Sheets("Status").Range("A2") = "" Then b = 1
wb.Sheets("Status").Range("A" & a).Select
wb.Sheets("Status").Paste
wb.Sheets("Status").Select
Application.CutCopyMode = False
Application.ScreenUpdating = True
Workbooks("Datei.xlsx").Close SaveChanges:=True
End Sub