BuiltInDocumentProperties

[Kristinho1978]

Hoi hoi,


Ik wil graag via een macro (o.a.) de bestandsnamen van excelfiles uit een bestaande map binnenhalen, plus de bijbehorende auteurs.

Op dit moment heb ik (zie vetgedrukt):

Sub ListOfFiles()

Dim objFSO As Object
Dim objFolder As Object
Dim objSubFolder As Object
Dim objFile As Object
Dim i As Integer

Sheets("List2").Select
Sheets("List2").Range("A2:B1000").ClearContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("C:\testfolder1")
i = 1
For Each objSubFolder In objFolder.subfolders
For Each objFile In objSubFolder.Files
Cells(i + 1, 1) = objSubFolder.Name
Cells(i + 1, 2) = objFile.Name
i = i + 1
Next objFile
Next objSubFolder
Set objFolder = objFSO.GetFolder("C:\testfolder2")
For Each objFile In objFolder.Files
Cells(i + 1, 1) = objFile.Author
Cells(i + 1, 2) = objFile.Name
i = i + 1
Next objFile
End Sub

"objFile.Author" werkt helaas niet. Ik heb al gegoogled en gezien dat ik dit waarschijnlijk moet oplossen met een "BuiltInDocumentProperty". Maar hoe, da's de vraag... Wie kan me daarmee helpen?

 

[snb]

Kijk eens hier:

http://www.snb-vba.eu/VBA_Bestanden.html#L_41

 

[Kristinho1978]

Dankjewel. Ja, ik geloof zeker dat de macro op zich goed werkt en het een goed resultaat oplevert. Ik heb ook al goedwerkende oplossingen gezien op andere pagina's. Maar hoe kan ik 'm gemakkelijk integreren in de macro die ik al heb staan? De rest van mijn macro werkt nl prima dus die zou ik graag zo behouden

 

[Kristinho1978]

Niemand die me kan helpen?

 

[OctaFish]

Doe er eens wat bestandjes bij.

 

[Kristinho1978]

Sorry, vakantie

Oke, hier is een bestandje met de macro (die dus nu nog niet werkt).
Wat je even moet doen is een map H:\Testfolder aanmaken en daar twee willekeurige excelbestandjes in doen. De macro verwijst daar nl. naar.

De macro zou dan de naam van deze twee bestandjes en de auteur moeten ophalen.

Ik hoop dat je 'm werkend krijgt

Alvast bedankt voor de moeite!Bekijk bijlage Consolidation.xlsm

 

[VenA]

En het wachtwoord is?

 

[Kristinho1978]

Sorry

Nu zou het moeten lukken...Bekijk bijlage Consolidation.xlsm