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.

    tagibboney

      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

                          Excel.Workbooks.Add

      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

                Excel.Columns("A:C").AutoFit

       

      End Sub