Hallo!
Da ich absolute Anfänger im VB bin, brauche ich Eure Hilfe. Ich versuche gerade ein Makro zu basteln, das aus Excel Catia öffnet, Parameter ändert, speichert und Catia schließt.
So sieht es im Excel aus:
'Catia öffnen
Dim CATIA As Object
On Error Resume Next
Set CATIA = GetObject(, "CATIA.Application")
If Err.Number <> 0 Then
Set CATIA = CreateObject("CATIA.Application")
CATIA.Visible = True
End If
'Teil öffnen
Set documents1 = CATIA.Documents
Set partDocument1 = documents1.Open(„C:\Teil.catpart“)
Set productDocument1 = CATIA.activedocument
Set product1 = productDocument1.Product
'Revision ändern
product1.Revision = product1.Revision + 1
productDocument1.Save
CATIA.Application.Quit
Das Makro funktioniert nur wenn ich aus VB in Debug-Mode (F8) laufen lasse.
Automatisch funktioniert Befehl ''productDocument1.Save'' nicht.
Was mache ich falsch? Wie kann man das ändern?
Viele Grüße,
Denis
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP