Excel in Excel als OLEObject per VBA
25.10.2016 10:07:18
Kühne
Ich erstelle derzeit für die lieben Kollegen ein internes "Nachschlagewerk" mit diversen teilweise schon erstellten bzw. noch zu erstellenenden Dokumenten (teils pdf, teils Excel, teils Word sowie Bilder). Die Hauptdatei habe ich ähnlich einer Homepage aufgebaut um die intuitive Navigation durch den Datenwust zu erleichtern.
Nun soll die durch die Navigation ausgewählte Datei (der Pfad liegt als Hyperlinkadresse im Netzwerk vor) als Objekt per "OleObjects.Add Filename" eingefügt werden.
Wird das Ganze manuell durchgeführt und per Makrorekorder aufgezeichnet so funktioniert das genauso wie ich es mir vorgestellt habe, aber wenn ich den aufgezeichneten Code ausführe, bekomme ich immer den Fehler "Laufzeitfehler 1004. Das Objekt kann nicht eingefügt werden".
Muss für das Einfügen eines OLEObject vom Typ Excel per VBA noch ein Verweis aktiviert werden o.Ä.?
Vielleicht kann mir ja einer der hier so zahlreich vertretenen Excel-Cracks aufzeigen wo hier mein (Denk)Fehler liegt
hier noch mein Code mit dem ich versuche das Objekt einzufügen:
Private Sub Auswahlbox_Click()
Workbooks.Open Filename:="F:\Users\Nachschlagewerk\Gleason-Score.xlsx"
ActiveWindow.Visible = False
ActiveSheet.OLEObjects.Add(Filename:="F:\Users\Nachschlagewerk\Gleason-Score.xlsx", Link:= _
False, DisplayAsIcon:=False).Select
End Sub