Export drw BOM (parts list) to excel

[Anonymous]

Hi.

I have a drawing with multible sheets (spool drawings) all with there owne parts list and I need to export them all to excel. This takes a long time when you have 100 sheets. So my question is how can I doo this, how should the code look like?

[Anonymous]

Try this code below as a start, you may need to create a loop for sheets.

'Export PartsList

path_and_name = ThisDoc.PathAndFileName(False) ' without extension

Dim oDoc As Inventor.DrawingDocument

oDoc = ThisDoc.Document

Dim oSheet As Inventor.Sheet

'oSheet = oDoc.Sheets(1) ' first sheet

oSheet = oDoc.Sheets("Sheet:1") ' sheet by name

'skip error in case no parts lists exist

On Error Resume Next

oPartslist1 = oSheet.PartsLists(1)

oPartslist2 = oSheet.PartsLists(2)

Dim oCol As Long

For oCol = 1 To oPartsList1.PartsListColumns.Count

'find the parts list that contains the LibRef column

If oPartslist1.PartsListColumns.Item(oCol).Title  = "LibRef" Then

' export the Partslist to Excel.

oPartslist1.Export(path_and_name & ".xls",PartsListFileFormatEnum.kMicrosoftExcel)

Else

oPartslist2.Export(path_and_name & ".xls",PartsListFileFormatEnum.kMicrosoftExcel)

End If

Next

[Anonymous]

hi. thanks for the respons. But i cant get this to work. It does not create the file. I have tried many different codes but they never manage to create the excel file.