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?
Try this code below as a start, you may need to create a loop for sheets.
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)
oPartslist2.Export(path_and_name & ".xls",PartsListFileFormatEnum.kMicrosoftExcel)
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.