Office: (Office 365) Datei als OLE-Objekt importieren

Hallo zusammen,

leider funktioniert im nachfolgenden Code, um eine Word-Datei via Dateiauswahl/FilePicker auszuwählen und als OLE-Objekt zu speichern, der Teil des Importierens nicht.

Fehler 400: Die Add-Eigenschaft des OLEObjects-Objektes kann nicht zugeordnet werden.

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

    ' Hole den Pfad der aktuellen Arbeitsmappe
    strPfad = ActiveWorkbook.Path

    ' Prüfe, ob das Arbeitsblatt "WORD" existiert
    On Error Resume Next
    Set ws = ThisWorkbook.Sheets("WORD")
    On Error GoTo 0
    
    If ws Is Nothing Then
        MsgBox "Der Reiter namens 'WORD' ist ggf. ausgeblendet oder existiert nicht!", vbCritical
        Exit Sub
    End If

    ' Gehe durch alle OLE-Objekte und lösche sie
    On Error Resume Next ' Fehlerbehandlung, falls keine OLE-Objekte existieren
    For Each oleObject In ws.OLEObjects
        oleObject.Delete
    Next oleObject
    On Error GoTo 0 ' Fehlerbehandlung zurücksetzen

    MsgBox "Es wurden alle OLE-Objekte erfolgreich gelöscht.", vbInformation

    ' 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" ' Oder auch "*.docx;*.doc;*.rtf"

    ' Anfangsverzeichnis festlegen (optional)
    fd.InitialFileName = strPfad ' Der Pfad der aktuellen Arbeitsmappe als Startverzeichnis

    ' 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

        On Error GoTo FehlerHandler ' Fehlerbehandlung aktivieren

        ' Anzeigen des ausgewählten Dateipfads
        MsgBox "Ausgewähltes Word-Dokument: " & selectedFile

        ' Das Word-Dokument als OLE-Objekt einfügen
        Set oleObject = ws.OLEObjects.Add(ClassType:="Word.Document", _
            fileName:=selectedFile, _
            DisplayAsIcon:=False) ' Kein benutzerdefiniertes Icon verwenden

        ' Optional: Position und Größe des OLE-Objekts festlegen
        oleObject.Left = 100
        oleObject.Top = 100
        oleObject.Width = 200
        oleObject.Height = 100

        MsgBox "Das Word-Dokument wurde erfolgreich als OLE-Objekt eingefügt.", vbInformation, "Angebotsvorlage erfolgreich importiert !"
        
        Exit Sub ' Erfolgreicher Abschluss

    Else
        MsgBox "Es wurde keine Datei ausgewählt!", vbExclamation
    End If

FehlerHandler:
    MsgBox "Fehler 400: " & Err.Description, vbCritical
    Set fd = Nothing
    Set ws = Nothing
End Sub

 

Hallo,

das passiert, wenn du nach dem erstmaligen Anlegen dieses OleObject selbiges mit Strg./Entf. aus dem Tabellenblatt entfernst. Ach ja ClassType sagt mein Makrorecorder braucht es in meiner Office Version 2019 nicht.

Gruß Uwe

 

Hallo Uwe und danke für Deine Antwort.

Wie kann denn die Code entsprechend umgebaut werden, so das der Fehler nicht auftritt und man vor dem einfügen eines neuen Objektes das bestehende trotzdem entfernen kann ?

 

Wenn ich das OleObjekt bei mir (2019) entferne dreht sich Excel im Kreis bis Abbruch. Beim Versuch ein neues OleObjekt zu erzeugen kommt es dann zum Fehler.
Ob das in einer anderen Version funktioniert weiß ich nicht.

Gruß Uwe

 

Hiermit hat's funktioniert:

Set oleObject = ws.OLEObjects.Add( _
fileName:=strPfad & "\Angebotsvorlage.docx", _
DisplayAsIcon:=True, _
IconFileName:="C:\Program Files (x86)\Microsoft Office\root\Office16\WINWORD.EXE", _
IconIndex:=0, _
IconLabel:="Angebotsvorlage")