<?xml version="1.0" encoding="UTF-8"?>
<rss xmlns:content="http://purl.org/rss/1.0/modules/content/" xmlns:dc="http://purl.org/dc/elements/1.1/" xmlns:rdf="http://www.w3.org/1999/02/22-rdf-syntax-ns#" xmlns:taxo="http://purl.org/rss/1.0/modules/taxonomy/" version="2.0">
  <channel>
    <title>topic Re: Export certain parts on template excel in Inventor Programming - iLogic, Macros, AddIns &amp; Apprentice</title>
    <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12247707#M157887</link>
    <description>&lt;P&gt;thanks&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/7946284"&gt;@A.Acheson&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This is my code I work on, but only the first part it is working, til " 'Start listing parts from line6"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt;
&lt;SPAN&gt;oDoc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oTemplate&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oTemplate&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Cgv\OneDrive - KILDE A S Automation\Skrivebord\Packing List.xlsx"&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartTitle&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartTitle&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Title"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;)

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartRevNum&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartRevNum&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oData&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oData&lt;/SPAN&gt; = &lt;SPAN&gt;DateString&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oWSHnet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oUserName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oWSHnet&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"WScript.Network"&lt;/SPAN&gt;)
&lt;SPAN&gt;oUserName&lt;/SPAN&gt; = &lt;SPAN&gt;oWSHnet&lt;/SPAN&gt;.&lt;SPAN&gt;UserName&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlwb&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlws&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;xlApp&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"Excel.Application"&lt;/SPAN&gt;)

&lt;SPAN&gt;xlwb&lt;/SPAN&gt; = &lt;SPAN&gt;xlApp&lt;/SPAN&gt;.&lt;SPAN&gt;Workbooks&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;(&lt;SPAN&gt;oTemplate&lt;/SPAN&gt;)
&lt;SPAN&gt;xlws&lt;/SPAN&gt; = &lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Worksheets&lt;/SPAN&gt;(1)
&lt;SPAN&gt;xlApp&lt;/SPAN&gt;.&lt;SPAN&gt;Visible&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;

&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(1, 3) = &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(3, 5) = &lt;SPAN&gt;"Created: "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oData&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(3, 3) = &lt;SPAN&gt;"List created by: "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oUserName&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;name&lt;/SPAN&gt; = &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt;

&lt;SPAN&gt;' Start listing parts from line 6&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;currentRow&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt;
&lt;SPAN&gt;currentRow&lt;/SPAN&gt; = 6

&lt;SPAN&gt;' Get the BOM structure&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oBOM&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;BOM&lt;/SPAN&gt;
&lt;SPAN&gt;oBOM&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;BOM&lt;/SPAN&gt;

&lt;SPAN&gt;' Iterate through the BOM rows&lt;/SPAN&gt;
&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;BOMRow&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oBOM&lt;/SPAN&gt;.&lt;SPAN&gt;BOMRows&lt;/SPAN&gt;
    &lt;SPAN&gt;' Check if the part description matches your condition&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
    &lt;SPAN&gt;partDescription&lt;/SPAN&gt; = &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinitions&lt;/SPAN&gt;(1).&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
    
    &lt;SPAN&gt;' Check if the description starts with "Bosch Profile"&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt;.&lt;SPAN&gt;Length&lt;/SPAN&gt; &amp;gt;= 13 &lt;SPAN&gt;AndAlso&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt;.&lt;SPAN&gt;Substring&lt;/SPAN&gt;(0, 13) = &lt;SPAN&gt;"Bosch Profile"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;' Export the part information to Excel&lt;/SPAN&gt;
        &lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(&lt;SPAN&gt;currentRow&lt;/SPAN&gt;, 1) = &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt;.&lt;SPAN&gt;ItemNumber&lt;/SPAN&gt;
        &lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(&lt;SPAN&gt;currentRow&lt;/SPAN&gt;, 2) = &lt;SPAN&gt;partDescription&lt;/SPAN&gt;
        &lt;SPAN&gt;' Add more columns as needed&lt;/SPAN&gt;
        
        &lt;SPAN&gt;currentRow&lt;/SPAN&gt; = &lt;SPAN&gt;currentRow&lt;/SPAN&gt; + 1 &lt;SPAN&gt;' Move to the next row&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;Next&lt;/SPAN&gt;

&lt;SPAN&gt;' Save and close the Excel workbook&lt;/SPAN&gt;
&lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Save&lt;/SPAN&gt;
&lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;We do not do it manualy, it is some thing we want to do.&amp;nbsp;&lt;/P&gt;&lt;P&gt;Actualy the plan it is to do a "Paching list". A list whit all the bosch profile placed in the project, so we can order them all in one time, and as many are neded. Right now we have a problem whit that.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;We would like it to be an excel sheet, on which there is more information about the project at the top. the name of the project, the name of the person who made the list, After the order arrives, the name of the person who took the order and the name of the person who will assemble the parts will be filled in by hand... (This is what I managed to do with this code)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Many thanks....&lt;/P&gt;</description>
    <pubDate>Mon, 18 Sep 2023 10:09:55 GMT</pubDate>
    <dc:creator>CGVJM6DF</dc:creator>
    <dc:date>2023-09-18T10:09:55Z</dc:date>
    <item>
      <title>Export certain parts on template excel</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12218863#M157233</link>
      <description>&lt;P&gt;Hello,&lt;/P&gt;&lt;P&gt;I tried to do it myself but not succeed...&lt;/P&gt;&lt;P&gt;I want to export on an excel template all the parts from all the subassemblies which has the iProperties&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Left&lt;/SPAN&gt;(&lt;SPAN&gt;iProperties&lt;/SPAN&gt;.&lt;SPAN&gt;Value&lt;/SPAN&gt;(&lt;SPAN&gt;"Project"&lt;/SPAN&gt;, &lt;SPAN&gt;"Description"&lt;/SPAN&gt;),13)&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;And the list must beguine from Row 6, there are another info on the top of the sheet.&lt;/P&gt;&lt;P&gt;If there can be also the thumbnail that will be a +&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Many thanks!&lt;/P&gt;</description>
      <pubDate>Tue, 05 Sep 2023 12:02:56 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12218863#M157233</guid>
      <dc:creator>CGVJM6DF</dc:creator>
      <dc:date>2023-09-05T12:02:56Z</dc:date>
    </item>
    <item>
      <title>Re: Export certain parts on template excel</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12236390#M157644</link>
      <description>&lt;P&gt;Hi &lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/12308665"&gt;@CGVJM6DF&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Can you attach the code you have worked on as it might just need some review. Where did you have trouble in making it work?&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Can you explain currently how you are doing this process manually? Can you share the screenshots of the process?&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;If you only want to target the subassembly parts then you can open the subassembly exclusively and export the bom from there.&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;</description>
      <pubDate>Wed, 13 Sep 2023 05:09:21 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12236390#M157644</guid>
      <dc:creator>A.Acheson</dc:creator>
      <dc:date>2023-09-13T05:09:21Z</dc:date>
    </item>
    <item>
      <title>Re: Export certain parts on template excel</title>
      <link>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12247707#M157887</link>
      <description>&lt;P&gt;thanks&amp;nbsp;&lt;a href="https://forums.autodesk.com/t5/user/viewprofilepage/user-id/7946284"&gt;@A.Acheson&lt;/a&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;This is my code I work on, but only the first part it is working, til " 'Start listing parts from line6"&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;PRE&gt;&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oDoc&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;AssemblyDocument&lt;/SPAN&gt;
&lt;SPAN&gt;oDoc&lt;/SPAN&gt; = &lt;SPAN&gt;ThisApplication&lt;/SPAN&gt;.&lt;SPAN&gt;ActiveDocument&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oTemplate&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oTemplate&lt;/SPAN&gt; = &lt;SPAN&gt;"C:\Users\Cgv\OneDrive - KILDE A S Automation\Skrivebord\Packing List.xlsx"&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartTitle&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartTitle&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Title"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt; = &lt;SPAN&gt;ThisDoc&lt;/SPAN&gt;.&lt;SPAN&gt;FileName&lt;/SPAN&gt;(&lt;SPAN&gt;False&lt;/SPAN&gt;)

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oPartRevNum&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oPartRevNum&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Revision Number"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oData&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oData&lt;/SPAN&gt; = &lt;SPAN&gt;DateString&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oWSHnet&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oUserName&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
&lt;SPAN&gt;oWSHnet&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"WScript.Network"&lt;/SPAN&gt;)
&lt;SPAN&gt;oUserName&lt;/SPAN&gt; = &lt;SPAN&gt;oWSHnet&lt;/SPAN&gt;.&lt;SPAN&gt;UserName&lt;/SPAN&gt;

&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlApp&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlwb&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;xlws&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Object&lt;/SPAN&gt;
&lt;SPAN&gt;xlApp&lt;/SPAN&gt; = &lt;SPAN&gt;CreateObject&lt;/SPAN&gt;(&lt;SPAN&gt;"Excel.Application"&lt;/SPAN&gt;)

&lt;SPAN&gt;xlwb&lt;/SPAN&gt; = &lt;SPAN&gt;xlApp&lt;/SPAN&gt;.&lt;SPAN&gt;Workbooks&lt;/SPAN&gt;.&lt;SPAN&gt;Open&lt;/SPAN&gt;(&lt;SPAN&gt;oTemplate&lt;/SPAN&gt;)
&lt;SPAN&gt;xlws&lt;/SPAN&gt; = &lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Worksheets&lt;/SPAN&gt;(1)
&lt;SPAN&gt;xlApp&lt;/SPAN&gt;.&lt;SPAN&gt;Visible&lt;/SPAN&gt; = &lt;SPAN&gt;True&lt;/SPAN&gt;

&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(1, 3) = &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(3, 5) = &lt;SPAN&gt;"Created: "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oData&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(3, 3) = &lt;SPAN&gt;"List created by: "&lt;/SPAN&gt; &amp;amp; &lt;SPAN&gt;oUserName&lt;/SPAN&gt;
&lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;name&lt;/SPAN&gt; = &lt;SPAN&gt;oPartNumProperty&lt;/SPAN&gt;

&lt;SPAN&gt;' Start listing parts from line 6&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;currentRow&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;Integer&lt;/SPAN&gt;
&lt;SPAN&gt;currentRow&lt;/SPAN&gt; = 6

&lt;SPAN&gt;' Get the BOM structure&lt;/SPAN&gt;
&lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;oBOM&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;BOM&lt;/SPAN&gt;
&lt;SPAN&gt;oBOM&lt;/SPAN&gt; = &lt;SPAN&gt;oDoc&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinition&lt;/SPAN&gt;.&lt;SPAN&gt;BOM&lt;/SPAN&gt;

&lt;SPAN&gt;' Iterate through the BOM rows&lt;/SPAN&gt;
&lt;SPAN&gt;For&lt;/SPAN&gt; &lt;SPAN&gt;Each&lt;/SPAN&gt; &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;BOMRow&lt;/SPAN&gt; &lt;SPAN&gt;In&lt;/SPAN&gt; &lt;SPAN&gt;oBOM&lt;/SPAN&gt;.&lt;SPAN&gt;BOMRows&lt;/SPAN&gt;
    &lt;SPAN&gt;' Check if the part description matches your condition&lt;/SPAN&gt;
    &lt;SPAN&gt;Dim&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt; &lt;SPAN&gt;As&lt;/SPAN&gt; &lt;SPAN&gt;String&lt;/SPAN&gt;
    &lt;SPAN&gt;partDescription&lt;/SPAN&gt; = &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt;.&lt;SPAN&gt;ComponentDefinitions&lt;/SPAN&gt;(1).&lt;SPAN&gt;Document&lt;/SPAN&gt;.&lt;SPAN&gt;PropertySets&lt;/SPAN&gt;(&lt;SPAN&gt;"Inventor Summary Information"&lt;/SPAN&gt;)(&lt;SPAN&gt;"Description"&lt;/SPAN&gt;).&lt;SPAN&gt;Value&lt;/SPAN&gt;
    
    &lt;SPAN&gt;' Check if the description starts with "Bosch Profile"&lt;/SPAN&gt;
    &lt;SPAN&gt;If&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt;.&lt;SPAN&gt;Length&lt;/SPAN&gt; &amp;gt;= 13 &lt;SPAN&gt;AndAlso&lt;/SPAN&gt; &lt;SPAN&gt;partDescription&lt;/SPAN&gt;.&lt;SPAN&gt;Substring&lt;/SPAN&gt;(0, 13) = &lt;SPAN&gt;"Bosch Profile"&lt;/SPAN&gt; &lt;SPAN&gt;Then&lt;/SPAN&gt;
        &lt;SPAN&gt;' Export the part information to Excel&lt;/SPAN&gt;
        &lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(&lt;SPAN&gt;currentRow&lt;/SPAN&gt;, 1) = &lt;SPAN&gt;oBOMRow&lt;/SPAN&gt;.&lt;SPAN&gt;ItemNumber&lt;/SPAN&gt;
        &lt;SPAN&gt;xlws&lt;/SPAN&gt;.&lt;SPAN&gt;Cells&lt;/SPAN&gt;(&lt;SPAN&gt;currentRow&lt;/SPAN&gt;, 2) = &lt;SPAN&gt;partDescription&lt;/SPAN&gt;
        &lt;SPAN&gt;' Add more columns as needed&lt;/SPAN&gt;
        
        &lt;SPAN&gt;currentRow&lt;/SPAN&gt; = &lt;SPAN&gt;currentRow&lt;/SPAN&gt; + 1 &lt;SPAN&gt;' Move to the next row&lt;/SPAN&gt;
    &lt;SPAN&gt;End&lt;/SPAN&gt; &lt;SPAN&gt;If&lt;/SPAN&gt;
&lt;SPAN&gt;Next&lt;/SPAN&gt;

&lt;SPAN&gt;' Save and close the Excel workbook&lt;/SPAN&gt;
&lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Save&lt;/SPAN&gt;
&lt;SPAN&gt;xlwb&lt;/SPAN&gt;.&lt;SPAN&gt;Close&lt;/SPAN&gt;&lt;/PRE&gt;&lt;P&gt;&amp;nbsp;We do not do it manualy, it is some thing we want to do.&amp;nbsp;&lt;/P&gt;&lt;P&gt;Actualy the plan it is to do a "Paching list". A list whit all the bosch profile placed in the project, so we can order them all in one time, and as many are neded. Right now we have a problem whit that.&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;We would like it to be an excel sheet, on which there is more information about the project at the top. the name of the project, the name of the person who made the list, After the order arrives, the name of the person who took the order and the name of the person who will assemble the parts will be filled in by hand... (This is what I managed to do with this code)&lt;/P&gt;&lt;P&gt;&amp;nbsp;&lt;/P&gt;&lt;P&gt;Many thanks....&lt;/P&gt;</description>
      <pubDate>Mon, 18 Sep 2023 10:09:55 GMT</pubDate>
      <guid>https://forums.autodesk.com/t5/inventor-programming-ilogic/export-certain-parts-on-template-excel/m-p/12247707#M157887</guid>
      <dc:creator>CGVJM6DF</dc:creator>
      <dc:date>2023-09-18T10:09:55Z</dc:date>
    </item>
  </channel>
</rss>

