Eigenschaften der Datei per Makro beschreiben

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Eigenschaften der Datei per Makro beschreiben
von: sansold
Geschrieben am: 07.04.2005 08:08:54
Hallo
wie kann ich die Eigenschaften einer Datei (Titel, Datei, Thema usw) mit einem MAkro beschreiben
Danke

Bild

Betrifft: AW: Eigenschaften der Datei per Makro beschreiben
von: Werner T.
Geschrieben am: 07.04.2005 08:17:37
Hallo sansold,
z. B. Titel, Autor, Firma:

Sub Dateieigenschaften()
    With ActiveWorkbook
        .BuiltinDocumentProperties("Title") = "Titel"
        .BuiltinDocumentProperties("Author") = "Autor"
        .BuiltinDocumentProperties("Company") = "Firma"
    End With
End Sub

Gruß
Werner
Bild

Betrifft: AW: Eigenschaften der Datei per Makro beschreiben
von: Xelleron (Dennis)
Geschrieben am: 07.04.2005 08:38:54
Hallo Sansold,
habe das mal mit einem Button als Abfrage gemacht:

Private Sub CommandButton2_Click()
Dim i As Integer
Dim p As Object
i = 1
For Each p In ActiveWorkbook.BuiltinDocumentProperties
    On Error GoTo fehler
    Cells(i, 1).Value = p.Name
    Cells(i, 2).Value = p.Value
    
weiter:
    i = i + 1
    
    Next
    Exit Sub
    
fehler:
    Resume weiter
End Sub

Gruß Dennis
Bild

Betrifft: AW: Eigenschaften der Datei per Makro beschreiben
von: sansold
Geschrieben am: 07.04.2005 09:17:55
Vielen dank an beide
hat geklappt danke
 Bild

Beiträge aus den Excel-Beispielen zum Thema "Eigenschaften der Datei per Makro beschreiben"