3 Replies Latest reply on Nov 11, 2015 1:47 PM by jjukkola

    PADS VB script to output the various loaded libraries with the PartType & Decal to an excel spreadsheet.


      I have been able to get the PartType and Library Name but I have been unable to get the Decal associated with the PartType. The following is the code that I have gotten to work so far

      Can't seem to figure out how to get the decal information.


      Dim Excel As Object

      Dim Row As Integer

      Dim Col As Integer

      Sub Main

      Set Excel = CreateObject("Excel.Application")  'open Excel-sheet


      Set cell = Excel.ActiveCell

      Row = 2

      Col = 1

                     cell.Item(1, 1) = "PartType"

                     cell.Item(1, 2) = "Decal"

                     cell.Item(1, 3) = "Library"


      Set items = GetLibraryItems()


      For Each item In items

                     cell.Item(Row, 1) = item

        'cell.Item(Row, 2) = item.Decal

                     cell.Item(Row, 3) = item.Library

      Row = Row+1

      Next item


                Excel.Visible = True



      End Sub