Sub neu()
Workbook("E:\n1.xls").BuiltinDocumentProperties(3).Value
End Sub
hier ein vorschlag. über pfad und pattern wählst du welche dateien (so = alle dateien in c:\windows). nach der loop-anweisung hast du alle autoren im array autoren() und kannst damit weiterarbeiten.
mfg
Sub autoren()
Dim fname As String, pfad as Sttring, pattern As String
Dim autoren(), i%
pfad = "c:\windows\"
pattern = "*.*"
fname = Dir(pfad & pattern)
Do While (fname <> "")
Workbooks.Open fname
i = i + 1
ReDim Preserve autoren(1 To i)
autoren(i) = ActiveWorkbook.BuiltinDocumentProperties(3).Value
fname = Dir()
Loop
End Sub
mfg
Private Function FileArray(path As String, strPattern As String)
Dim arrDateien()
Dim strDatei As String
strDatei = Dir(path & strPattern)
Do While (strDatei <> "")
i = i + 1
ReDim Preserve arrDateien(1 To i)
arrDateien(i) = strDatei
strDatei = Dir()
Loop
FileArray = arrDateien
End Function