About the authors

« Installation Interoperability | Main | Custom Tube & Pipe content unit »

05/09/2011

TrackBack

TrackBack URL for this entry:
http://www.typepad.com/services/trackback/6a01156ed841f2970c0154323506e6970c

Listed below are links to weblogs that reference Exporting All Level BOM from Inventor:

Comments

Feed You can follow this conversation by subscribing to the comment feed for this post.

hi,

how can i export bom to specific worksheet in excel by vba? thanks.

Hi sky,

For a deeper understanding on how to use VBA to export a BOM to Excel, see my otehr post here:
http://beinginventive.typepad.com/being-inventive/2011/11/export-parts-list-to-excel-in-vba.html

Thanks for your interest in this topic.
Bob

Hi there,

Is there anyway of exporting a BOM with All Levels in an iassembly containing isub assemblies?

Cheers,
Niall

I did not realize that iAssemblies cannot be expanded in the BOM. Thsnks for pointing that out.But via the API you can work around it.
Here is a VBA macro that will create a spreadsheet called BOM.XLS in your workspace. It will contain an all level BOM even for iAssemblies or iAssemblies that contain isubassemblies.Thanks.Bob

Public Sub BOMAllLevelExport()
' Set a reference to the assembly document.
' This assumes an assembly document is active.
Dim oDoc As AssemblyDocument
Set oDoc = ThisApplication.ActiveDocument
' Set a reference to the BOM
Dim oBOM As BOM
Set oBOM = oDoc.ComponentDefinition.BOM
' Set the structured view to 'all levels'
oBOM.StructuredViewFirstLevelOnly = False
' Make sure that the structured view is enabled.
oBOM.StructuredViewEnabled = True
' Set a reference to the "Structured" BOMView
Dim oStructuredBOMView As BOMView
Set oStructuredBOMView = oBOM.BOMViews.Item("Structured")
' Export the BOM view to an Excel file
oStructuredBOMView.Export ThisApplication.FileLocations.Workspace + "\BOM.xls", kMicrosoftExcelFormat
End Sub

The comments to this entry are closed.

RSS Feed

  • Subscribe

May 2012

Sun Mon Tue Wed Thu Fri Sat
    1 2 3 4 5
6 7 8 9 10 11 12
13 14 15 16 17 18 19
20 21 22 23 24 25 26
27 28 29 30 31    

Self-Service Kiosk

Did not find what you were looking for?
Give the Inventor Self-Service Kiosk a try and hit the Start button
Note: the kiosk momentarily only works with Internet Explorer
kiosk