Hallo,
ich habe folgendes Makro gefunden welches ich nutzen möchte.
######################################################################
Language="VBSCRIPT"
Sub CATMain()
Dim productDocument1 As Document
Set productDocument1 = CATIA.ActiveDocument
Dim product1 As Product
Set product1 = productDocument1.Product
Dim assemblyConvertor1 As CATBaseDispatch
Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")
'Der inhalt der unteren Variablen kann untereinander auch ausgetauscht werden
Dim arrayOfVariantOfBSTR1(4)
arrayOfVariantOfBSTR1(0) = "Überarbeitung "
arrayOfVariantOfBSTR1(1) = "Teilenummer"
arrayOfVariantOfBSTR1(2) = "Typ"
arrayOfVariantOfBSTR1(3) = "Nomenklatur "
arrayOfVariantOfBSTR1(4) = "Menge"
assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1
' Wenn man will kann man die untere Variable auch auskomentieren
Dim arrayOfVariantOfBSTR2(1)
arrayOfVariantOfBSTR2(0) = "Menge"
arrayOfVariantOfBSTR2(1) = "Teilenummer"
assemblyConvertor1.SetSecondaryFormat arrayOfVariantOfBSTR2
' Damit kann man die Stückliste als Excel-Format abspeichen
assemblyConvertor1.Print "XLS", "G:\temp\stückliste.xls", product1
End Sub
######################################################################
Der Link verweilt auf das dazugehörige Posting. http://ww3.cad.de/foren/ubb/Forum133/HTML/002368.shtml#000003
Ich hab hier mal ein neues Thema davon gemacht, da ich hier wahrscheinlich die passenderen Leute dazu anspreche.
Das Makro läuft bis auf die letzte Zeile einwandfrei. Allerdings erhalte ich die angehängte Fehlermeldung zur letzten Zeile. Parallel dazu fragt Excel mich aber nach dem gewünschten Speicherpfad. In die daraufhin gespeicherte Exceldatei wird aber nichts reingeschrieben.
Ich hatte zuerst vermutet das es an dem Laufwerk lag was eingestellt war. Voreingestellt war C: auf dem ich keine Schreibrechte habe, allerdings nach einer Umstellung auf G: das selbe Problem.
Kann mir jemand bei dem Problem weiterhelfen?
Gruß
Lars
Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP