Language="VBSCRIPT"

Sub CATMain()

Set productDocument1 = CATIA.ActiveDocument

Set product1 = productDocument1.Product

Set assemblyConvertor1 = product1.GetItem("BillOfMaterial")

Dim arrayOfVariantOfBSTR1(2)
arrayOfVariantOfBSTR1(0) = "Positionsnummer"
arrayOfVariantOfBSTR1(1) = "Beschaffungsart"


assemblyConvertor1.SetCurrentFormat arrayOfVariantOfBSTR1

MsgBox "Modifizierung des Ausgabeformates durchgeführt!" & vbCrLf & s 

Set assemblyConvertor2 = product1.GetItem("BillOfMaterial")

Dim arrayOfVariantOfBSTR2(2)
arrayOfVariantOfBSTR2(0) = "Positionsnummer"
arrayOfVariantOfBSTR2(1) = "Beschaffungsart"

assemblyConvertor2.SetCurrentFormat arrayOfVariantOfBSTR2

MsgBox "Auslesen der benötigten Daten beendet!" & vbCrLf & s 


Datei=CATIA.FileSelectionBox ("Datei auswählen","*.xls", CATFileSelectionModeSave)

assemblyConvertor2.Print "XLS",Datei,product1


End Sub