---

Moin,
ich habe versucht, das Programm aus der API-Hilfe auzuführen, bekomme aber immer die Fehlermeldung "Laufzeitfehler 5, ungültiger Prozeduraufruf oder ungültiges Argument".
Beim Debuggen bleibt er in der Zeile
Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)
stehen.

Eine Drawing habe ich im Inventor geöffnet.

Hat jemand eine Idee, was ich falsch mache????

Public Sub PartListQuery()
    ' Set a reference to the drawing document.
    ' This assumes a drawing document is active.
    Dim oDrawDoc As DrawingDocument
    Set oDrawDoc = ThisApplication.ActiveDocument

    ' Set a reference to the first parts list on the active sheet.
    ' This assumes that a parts list is on the active sheet.
    Dim oPartList As PartsList
    Set oPartList = oDrawDoc.ActiveSheet.PartsLists.Item(1)

    ' Iterate through the contents of the parts list.
    Dim i As Long
    For i = 1 To oPartList.PartsListRows.Count
        ' Get the current row.
        Dim oRow As PartsListRow
        Set oRow = oPartList.PartsListRows.Item(i)

        ' Iterate through each column in the row.
        Dim j As Long
        For j = 1 To oPartList.PartsListColumns.Count
            ' Get the current cell.
            Dim oCell As PartsListCell
            Set oCell = oRow.Item(j)

            ' Display the value of the current cell.
            Debug.Print "Row: " & i & ", Column: " & oPartList.PartsListColumns.Item(j).Title & " = "; oCell.Value
        Next
    Next
End Sub

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

---

Eine Zeichnung hast du ja geöffnet. Hast du auch eine Stückliste (PartList) drin?

Immerhin liest du jetzt schon die Hilfedatei 
------------------
Grüße daywa1k3r

FX64 Software Solutions

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

---

Vielen Dank,

das war mein Fehler.
Wer ein Programm lesen kann, ist klar im Vorteil!!!

Gruß
Marco

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