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
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 …
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