AW: Datei pfad name Dateieingeschaften und .. auslesen
OttoH
Hallo Viktor,
das Makro könnte etwa folgendermaßen aussehen:
Sub Dateieigenschaften()
Dim Pfad As String
Dim Dateiname As String
Dim i As Long
Dim Autor As String
Dim Kategorie As String
Dim Stichwort As String
Dim Kommentar As String
Pfad = "d:\Daten\Excel7\Kurs\"
Dateiname = Dir(Pfad & "*.xls")
i = 2
Do While Dateiname <> ""
Workbooks.Open Filename:=Pfad & Dateiname
Autor = ActiveWorkbook.BuiltinDocumentProperties(3)
Kategorie = ActiveWorkbook.BuiltinDocumentProperties(18)
Stichwort = ActiveWorkbook.BuiltinDocumentProperties(2)
Kommentar = ActiveWorkbook.BuiltinDocumentProperties(5)
ActiveWorkbook.Close (False)
Cells(i, 1).Activate
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:=Pfad & Dateiname
Cells(i, 2) = Left(Dateiname, Len(Dateiname) - 4)
Cells(i, 3) = Autor
Cells(i, 4) = Kategorie
Cells(i, 5) = Stichwort
Cells(i, 6) = Kommentar
Dateiname = Dir
i = i + 1
Loop
End Sub
Sub PropertyNames()
Dim rw As Integer
Dim p As Object
rw = 1
Worksheets(1).Activate
For Each p In ActiveWorkbook.BuiltinDocumentProperties
MsgBox (rw & " " & p.Name)
rw = rw + 1
Next
End Sub
Gebraucht wird nur das erste Modul; das zweite habe ich nur angehängt, um die Nummern für die Eigenschaften angezeigt zu bekommen.
Gruß OttoH