Hallo zusammen,
ich habe ewig nichts mehr in CATIA programmiert und mache auch nichts kompliziertes in Excel-vba, daher möge man mir bitte verzeihen, dass die Lösung eventuell völlig offensichtlich ist.
Mit unterschiedlichen Kombinationen der Suchbegriffe "type mismatch parameter catia excel" habe ich mich jetzt 70 Minuten halb tot gesucht und nichts ähnliches gefunden.
Ich bekomme einen "Run-Time Error 13 Type mismatch" angezeigt, wenn ich versuche folgendes Sub innerhalb eines Excel_makros auszuführen, das mir von einem geöffneten Exceldokument in ein ebenfalls geöffnetes CATPart Werte von Parametern setzen soll:
Sub Catia_Transfer()
Dim CATIA As Object
Dim productDocument1 As Document
Dim partDocument1 As Document
Dim part1 As Part
Dim parameters1 As Parameters
Dim parameterSet1, parameterSet2 As ParameterSet
Dim parameterSets1 As ParameterSets
Set WB_Ziel = ThisWorkbook.Worksheets("PAX")
Set CATIA = GetObject("", "CATIA.Application")
AppActivate "CATIA V5"
Set partDocument1 = CATIA.ActiveDocument
Set part1 = partDocument1.Part
Set parameters1 = part1.Parameters <- hier kommt der Fehler (der Block stammt so aus dem Catia Makrorecorder)
Set parameterSet1 = parameters1.RootParameterSet
Set parameterSets1 = parameterSet1.ParameterSets
Set parameterSet2 = parameterSets1.GetItem("BEAM1")
For m = 1 To 8
Set paras1 = parameterSet2.Item(m)
WB_Ziel.Cells(5, 2 + m).Value = parameterSet2.Item(m).Value
Next
End Sub
Für einen hilfreichen Tip wäre ich sehr dankbar.
Grüße
Caprivi
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP