Text dotazu:
Dobrý den,
zkoušim napsat macro, ktere načte parametr z partu/productu a zapíše ho do Excelu.
Problem mám v tom, že mě makro přeskakuje produkty. Nemůžu přijit na to v čem je zádrhel..

Poradí mě někdo?

Díky

Sub CATMain()

    Dim oProduct

    Set oProduct = CATIA.ActiveDocument.Product

    i = 0

    Call StartEXCEL

    Explore oProduct

    MsgBox "Done"



    End Sub

    Sub Explore(oProduct)

     Dim oSubProduct

     Dim oName As String



   For Each oSubProduct In oProduct.Products

    Err.Clear

    On Error Resume Next

    oName = oSubProduct.PartNumber

    parametr1 = oSubProduct.Parameters.GetItem("parametr1").Value

    parametr2 = oSubProduct.Parameters.GetItem("parametr2").Value

    i = i + 1

    objGEXCELSh.Cells(i + 1, "A") = oName

    objGEXCELSh.Cells(i + 1, "B") = parametr1

    objGEXCELSh.Cells(i + 1, "C") = parametr2

    

   If oSubProduct.Products.Count > 0 Then

      Explore oSubProduct

   End If

 Next

End Sub