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

Wie nützlich finden Sie diesen Tipp?

	1	2	3	4	5
Weniger nützlich						Sehr nützlich

Bitte teilen Sie uns mit, warum Sie die Seite so bewertet haben. (optional)