Metadaten einer Excel Arbeitsmappe auslesen

Metadaten einer Excel Arbeitsmappe

können entweder mit

Methode 1 VBA (Metadaten einer Excel Datei)

---- SCHNIPP ---

Sub Dokument_Metadaten()
'Liest die Items der Dateieigenschaften / Metadaten aus
On Error Resume Next

With ActiveWorkbook
    .Worksheets(1).Activate
    Range("A1:B30").ClearContents
        For i = 1 To 40
            Cells(i, 1).Value = ActiveWorkbook.BuiltinDocumentProperties(i).Name
            Cells(i, 2).Value = ActiveWorkbook.BuiltinDocumentProperties(i).Value
        Next
End With

End Sub

--- SCHNAPP ---

oder

Methode 2 Power Query / Language M (Metadaten mehrerer Excel Dateien in einem Ordner)

= Folder.Files("Laufwerk:\Verzeichnis")

ausgelesen werden.


--- SCHNIPP wiederverwendbare Language M Funktion für Metadatum [letztes Änderungsdatum] ---

(Ordnerpfad as text, DateiName as text) =>
let
    Quelle = Folder.Files(Ordnerpfad),
    ZeileDatei = Table.SelectRows(Quelle, each ([Name] = DateiName)),
    Aenderungsdatum = ZeileDatei[Date modified]{0}
 in
    Aenderungsdatum

--- SCHNAPP ---


--- SCHNIPP wiederverwendbare Funktion alternative Syntax

let
fxMetadaten = (Ordnerpfad as text, DateiName as text) =>
let
    Quelle = Folder.Files(Ordnerpfad),
    ZeileDatei = Table.SelectRows(Quelle, each ([Name] = DateiName)),
    Aenderungsdatum = ZeileDatei[Date modified]{0}
in
    Aenderungsdatum
in fxMetadaten

--- SCHNAPP