How can I use Excel to extract a Design Assembly BOM

I am currently using a an Excel macro that imports the Product Structure into the Excel sheet.  The macro prompts the user for the log in name, it then pops up a GUI asking for an assembly part number. Once the assembly part number is entered it asks for the revision level.  The macro then returns the Product Structure into the Excel sheet.

Does anyone know a similar macro that can extract the BOM from the Design Assembly and not from the Product Structure (WTPart)?