Ich gestehe – es hat mich etwas Mühe gekostet.
Das Einbetten eines Objektes (Exceltabelle) nach Visio ist per Programmierung nicht sehr schwierig – der Makrorekorder hilft dabei:
vsBlattDaten.InsertFromFile Dateiname, visInsertAsEmbed
oder
vsBlattDaten.InsertFromFile Dateiname, visInsertAsEmbed + visInsertIcon
Das kann man leicht mit Hilfe des Makrorekorders herausfinden.
ObjekteDer umgekehrte Weg jedoch: wie kann man dieses Objekt auf die Festplatte speichern oder: wie kann man auf die Daten zugreifen, ohne sie zu öffnen, ist etwas kniffliger. Es geht folgendermaßen:
1. ActiveDocument.Pages(Blattname).OLEObjects(1).Object.SaveAsDateiname
Will man die Exceldatei mit Makros speichern, muss man noch einen Parameter hinzufügen:
ActiveDocument.Pages(Blattname).OLEObjects(1).Object.SaveAsDateiname, xlOpenXMLWorkbookMacroEnabled
2. Der Zugriff funktioniert analog:
ActiveDocument.Pages(Blattname).OLEObjects(1).Object.Sheets(1).Range(„A1“).Value
Wenn man es weiß, ist es ganz einfach.