Super, vielen Dank.
mußte den Code nur auf VB.net umschreiben dann gings.
Hier mal der Code dazu, wenn ihn jemand benötigt.
Public Sub AddCustomTable()
Dim oInventorApp As Inventor.Application
oInventorApp = CType(GetObject(, "Inventor.Application"), Application)
Dim oDrawDoc As DrawingDocument
oDrawDoc = CType(oInventorApp.ActiveDocument, DrawingDocument)
Dim oPoint As Point2d
oPoint = CType(GetObject(, "Inventor.Application"), Application).TransientGeometry.CreatePoint2d(15, 15)
Dim oCTableColumnTitles(0 To 9) As String
oCTableColumnTitles(0) = "A"
oCTableColumnTitles(1) = "B"
oCTableColumnTitles(2) = "C"
oCTableColumnTitles(3) = "D"
oCTableColumnTitles(4) = "E"
oCTableColumnTitles(5) = "F"
oCTableColumnTitles(6) = "G"
oCTableColumnTitles(7) = "H"
oCTableColumnTitles(8) = "I"
oCTableColumnTitles(9) = "J"
Dim oCTable As CustomTable
Dim bfound As Boolean '= False
Dim oref As ReferencedOLEFileDescriptor
For Each oref In oDrawDoc.ReferencedOLEFileDescriptors
If oref.DisplayName = txtDrawingNumber.Text & DatZusatz & ".xlsx" Then
bfound = True
Exit For
End If
Next
If bfound = True Then
Return
Else
oCTable = oDrawDoc.ActiveSheet.CustomTables.Add("ToDoList", oPoint, 10, 10, oCTableColumnTitles)
Dim sLinkedFile As String
sLinkedFile = HPfad & txtDrawingNumber.Text & DatZusatz & ".xlsx"
Call oCTable.AddLink(sLinkedFile)
End If
End Sub
Das mit dem eingebetteten Objekt hat glaub ich mit dem Dateiverwaltungssystem nix zu tun.
Bei meiner 1. Variante hatte ich anscheinend falsch "eingebettet".
Kanns auch nicht richtig erklären warum, aber gemerkt hab ich s daran dass Inv. nicht angemeckert hat das die Excel Datei nicht im Projektpfad liegt.
Mit der neuen Verknüpfung als linked objekt fragt Inv. genau dieses an.
------------------
Gruß
Klaus
[Diese Nachricht wurde von Rodario7 am 17. Feb. 2013 editiert.]
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP