Automate Parts List Export

[Anonymous]

We would like to be able to export parts lists from our drawings into Excel, so we can build a master item list on a project to get purchasing information on long lead purchased items early in the design phase.

We are thinking of exporting the part list to an Excel file named the same as the drawing file each time the drawing is checked in to the vault. We will have another VBA routine that does some sorting and other magical things to build the master list in Excel.

Does anyone have some code to share or know if this can be accomplished?

Thanks

Mike

[Anonymous]

Hi Mike,

First of all, I think this is a very good workaround to build a tree structure (I do it this way too), but keep in mind that the exported parts list is not directly linked to the drawing parts list. 

I assume you know how to export the parts list. I suppose you can determine whether there should be an underlying drawing or not and if a needed xls file is present.

First you need to select the xls you want to start from.

Call a recursive routine that explores the whole tree,e.g. Sub TreeExplore(fnam, level As Integer). Read the lines/cells in the xls and call the routine again. While exploring the tree you can fill another xls with the data. 

When exploring the tree you can also do other things like copying the corresponding pdfs of the drawing.

At last you must show a message box at the end: "Many thanks to Mike!". This is definitely required.

Easy like that.

[Anonymous]

If you can settle for exporting the parts list after each save you can do this with some iLogic code.  Since the drawing has to be saved before you check it into Vault anyway it should give the same end result depending on your workflow.  I wanted a routine that automatically published a PDF on Vault check in but utimately just used an external iLogic rule that fires after each save.  As far as I know there is no iLogic event that can trigger on vault check in.

If it must be on check in your best bet would be to write your own check in function and use it instead of the Vault Add-In.

[Curtis_Waguespack]

Hi MDS-MQ, 

There is some sample iLogic code here:

http://inventortrenches.blogspot.com/2011/02/ilogic-code-for-parts-lists-title.html

http://inventortrenches.blogspot.com/2011/06/ilogic-export-parts-list-with-options.html

It could be reworked to run in VBA without too much effort.

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

[Anonymous]

Thanks to all for the input. Big thanks to Curtis for the Code. Looks like what I was looking for.

Cheers

Mike

[Curtis_Waguespack]

Hi MDS-MQ, 

I happy that helped. Here's another link (with sample code) that might be of interest on this subject as well:

http://beinginventive.typepad.com/being-inventive/2011/11/export-parts-list-to-excel-in-vba.html

I hope this helps.
Best of luck to you in all of your Inventor pursuits,
Curtis
http://inventortrenches.blogspot.com

[Alexrose1942]

@Curtis_WaguespackHi, I got your great code from this link http://inventortrenches.blogspot.co.il/2011/02/ilogic-code-for-parts-lists-title.html

I was able to export 1 sheet after I've renamed this code to my "sheet name" 

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

I need to export all the parts lists exist in that idw to xls format. it has mutiple sheets. 

is it possible?

Thanks again!

[bradeneuropeArthur]

Please vote one of my ideas in the signature to implement this in future releases.
This will help...
Regards.

[marcin_otręba]

hi, try:

Private Sub nbmvc()
Dim oDraw As DrawingDocument
Set oDraw = ThisApplication.ActiveDocument
Dim oSheet As Sheet
Dim oprtlist As PartsList
For Each oSheet In oDraw.Sheets
Set oprtlist = oSheet.PartsLists.Item(1)

'do export


Next
End Sub

you need to add some errors handling code... if you use ilogic delete "set" words from that code.