Dateiinfo im Explorer von xls-Dateien auslesen und per VBA erfassen

Im Laufwerk „c:\Test“ ist die Datei „Teilnehmer.xls“ mit dem ‚Kommentar‘ „Verein blau“ gespeichert. Wie kann ich diesen ‚Kommentar‘ aus der geschlossenen Excel-Datei mit Excel-VBA auslesen und in einer anderen Tabelle speichern.

Wolfgang

Hallo Wolfgang,

in dem Bereich habe ich keine Erfahrung und kann dir deshalb leider nicht weiter helfen.

Viele Grüße
Philipp

Hallo Wolfgang,

ich dachte, ich bekomme das raus, aber es funzt nicht so richtig. Die Dateiinfos, speziell die Kommentare, bekommt man mit
Workbooks(dateiname).BuiltinDocumentProperties(5)

Aber nur bei geöffneten Dateien. Bei noch geschlossenen Dateien habe ich noch nix Passendes gefunden. Google doch mal weiter, wenn du „BuiltinDocumentProperties“ als Suchbegriff eingibst.

Gruß Jürgen

Servus Wolfgang,

hier ein kleines Skript zum Weiterbasteln … :wink:

Sub Kommentar\_einer\_Datei\_auslesen()
 Dim objFolder As Object
 Dim objFolderItem As Object
 Dim objShell As Object

 Set objShell = CreateObject("Shell.Application")
 Set objFolder = objShell.Namespace("C:\Test")
 Set objFolderItem = objFolder.ParseName("Teilnehmer.xls")

 If Not objFolderItem Is Nothing Then
 MsgBox objFolder.GetDetailsOF(objFolderItem, 24)
 End If

 Set objShell = Nothing: Set objFolder = Nothing
 Set objFolderItem = Nothing
End Sub

LG Gerd

Danke,
genau das habe ich gesucht.
Nr.25 ist der Kommentar!
Wolfgang

Hallo Wolfgang,
leider bin ich erst gestern vom Urlaub zurückgekommen und muss nun an die 100 E-Mails abarbeiten. Aus diesem Grund kann ich die nächsten Tage nichts zu Problemlösung beitragen. Ich hoffe, du findest jemand, der dir helfen kann.
Gruß
Mario

Auch die danke, vielleicht hast du später noch Zeit dazu. Wenn nicht, isses auch gut.
Wolfgang