Herbers Excel-Forum - das Archiv

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
Excel-Beispiele zum Thema "Eigenschaften der Datei per Makro beschreiben"
Auslesen der Arbeitsmappeneigenschaften Ordnereigenschaften auslesen