Thomas Risi Softwareentwicklung

Eingebettete OLEObjects entpacken

Aus einer Frage in einem Forum ...

Es soll eine eingebettete Datei OLEObject (z.B. *.zip oder *.msi) in ein Verzeichnis entpackt werden. Hier mal ein Ansatz, der beim Öffnen der Datei das Gewünschte erledigt.


Quellcode für DieseArbeitsmappe ...

Option Explicit Private Sub Workbook_Open() ' Entpackt alle OLEObjects aus Tabelle1 in das Verzeichnis der Arbeitsmappe. Dim item As OLEObject For Each item In Worksheets("Tabelle1").OLEObjects Call ExtractEmbeddedObject(item) Next End Sub Sub ExtractEmbeddedObject(oo As Excel.OLEObject) oo.Copy CreateObject("Shell.Application").Namespace(ActiveWorkbook.Path).Self.InvokeVerb "Paste" End Sub

Bewerten Sie bitte dieses Programm.
1 2 3 4 5
Weniger nützlich Sehr nützlich
Bitte teilen Sie uns mit, warum Sie das Programm so bewertet haben. (optional)