---

Hallo zusammen,
ich benötige für mein kleines Projekt ein Excel sheet welches in die IDW einbette.
Das funktioniert auch so weit.
[Code]
Dim oInventorApp As Inventor.Application
        oInventorApp = CType(GetObject(, "Inventor.Application"), Application)
        Dim oDoc As Inventor.DrawingDocument
        oDoc = CType(oInventorApp.ActiveDocument, DrawingDocument)
        Dim oref As ReferencedOLEFileDescriptor
        oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject)
        oref.Visible = True
        oDoc.Update()
        oref.BrowserVisible = True
        oref.DisplayName = "Aufgabenplanung"[CODE]

Ich möchte aber abfragen ob eine gleichnamige Datei schon eingebettet ist.
Hat da jemand ne Idee?

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Durch alle ReferenceOLEFileDescriptors laufen und den DisplayName kontrollieren?

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

habs jetzt mal so versucht und es tut sich nix im Bezug auf den
For each Befehl

[Code]
For Each oref In oDoc.ReferencedOLEFileDescriptors
            If oref.DisplayName <> "" Then
                MsgBox("Schon vorhanden")
            Else                ' Next
                oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject)
                oref.Visible = True
                oDoc.Update()
                oref.BrowserVisible = True
                oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung"
            End If
        Next
[Code]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Moin

Kann auch nicht, da dein For Each gar nicht durchlaufen wird, wenn keine Referenz da ist.

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

moin moin,
wenn ref.DisplayName <> "" sollte
else
ausgeführt werden oder?
Also wenn keine Datei eingebettet ist.
Tu mich noch n bissel schwer mit den Schleifen.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hi

Nein, du kommst gar nicht an die Stelle. Im Debugger müßtest du sehen können, das das Programm direkt von for each auf next springt und die Schleife beendet, wenn es keine referenzierten Objekte gibt.

Also z.B.:

Code:

---

Dim bfound as Boolean = False
For Each oref In oDoc.ReferencedOLEFileDescriptors
  If oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung" Then
      MsgBox("Schon vorhanden")
      bfound=true
      Exit For
  End If
Next

If bfound = False Then
  oref = oDoc.ReferencedOLEFileDescriptors.Add("C:\Users\Public\Documents\Aufgabenpfad\test.xlsx", OLEDocumentTypeEnum.kOLEDocumentEmbeddingObject)
  oref.Visible = True
  oDoc.Update()
  oref.BrowserVisible = True
  oref.DisplayName = txtDrawingNumber.Text & "-Aufgabenplanung"
End If

---

------------------
MfG
Ralf

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Klasse; Danke.
Wenn man es sieht ist es sofort logisch.

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP