AnsweredAssumed Answered

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

Question asked by tagibboney on Jul 27, 2015
Latest reply on Nov 11, 2015 by jjukkola

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

Outcomes