Office: (Office 365) Datei als OLE-Objekt via FilePicker auswählen und speichern

Hallo zusammen,

Leider funktioniert der nachfolgende Code nicht, um eine Datei als OLE-Objekt via FilePicker auszuwählen und zu speichern. Die Dateiauswahl funktioniert soweit, nur leider das Einfügen/Importieren nicht.

Wer kann bitte helfen ?
Danke Jens

Code:

Sub InsertWordAsOLEObject()
    Dim fd As FileDialog
    Dim selectedFile As String
    Dim ws As Worksheet
    Dim oleObject As oleObject
    Dim strPfad As String

    strPfad = ActiveWorkbook.Path
  
    ' Erstelle einen Datei-Dialog (Explorer)
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
  
    ' Filter setzen, um nur Word-Dokumente -docx- anzuzeigen
    fd.Filters.Clear ' Entfernt alle Standardfilter
    fd.Filters.Add "Word-Dokumente", "*.docx"      '*.docx;*.doc;*.rtf"
  
    ' Anfangsverzeichnis festlegen (optional)
    fd.InitialFileName = strPfad ' Passen Sie den Pfad an
  
    ' Zeige den Dialog und prüfe, ob der Benutzer eine Datei ausgewählt hat
    If fd.Show = -1 Then ' Benutzer hat eine Datei ausgewählt
        selectedFile = fd.SelectedItems(1) ' Erste ausgewählte Datei
    '    MsgBox "Folgende Datei wurde ausgewählt: " & selectedFile
      
        ' Das Arbeitsblatt festlegen, in das das OLE-Objekt eingefügt werden soll
        Set ws = ThisWorkbook.Sheets("WORD") ' oder dein gewünschtes Arbeitsblatt
      
    ' Das ausgewählte Word-Dokument als OLE-Objekt einfügen
    Set oleObject = ws.OLEObjects.Add(ClassType:="Word.Document", _
        fileName:=selectedFile, _
        DisplayAsIcon:=True, _
        IconFileName:="C:\Windows\System32\winword.exe", _
        IconIndex:=0, _
        IconLabel:="Word-Dokument")

        ' Optional: Position und Größe des OLE-Objekts festlegen
        oleObject.Left = 100
        oleObject.Top = 100
        oleObject.Width = 200
        oleObject.Height = 100
      
    Else
        MsgBox "Es wurde keine Datei ausgewählt !"
    End If
  
    ' FileDialog-Objekt freigeben
    Set fd = Nothing
End Sub

 

Hallo Jens,

falls du es nicht schon selbst entdeckt hast. Um auf ein Objekt in Word zuzugreifen musst diese geöffnet sein. Dazu musst du natürlich eine Word Instanz aufmachen.

Early Binding so: Dim wdApp As New Word.Application
Late Binding so:
Dim wdApp As Object
Set wdApp = CreateObject("Word.Application")

Um die Datei zu öffnen dann so: wdApp.Documents.Open selectedFile
So auch wirklich ein OleObject enthalten ist sollte es klappen.

Gruß Uwe

 

Oh jeee ... ich hab mich a bissl falsch ausgedrückt.

Es soll natürlich im oben genannten Code-Beispiel eine Word-Datei ausgewählt werden, um sie dann als OLE-Objekt in der Excel-Datei zu speichern.