Get Design Table Example (VBA)

This example shows how to get a design table and its contents.

 

'---------------------------------------

'

' Preconditions: Part or assembly document is open and contains a design table.

'

' Postconditions: None

'

'----------------------------------------

Option Explicit

Sub main()

    Dim swApp                   As SldWorks.SldWorks

    Dim swModel                 As SldWorks.modelDoc

    Dim swDesTable              As SldWorks.DesignTable

    Dim nTotRow                 As Long

    Dim nTotCol                 As Long

    Dim sRowStr                 As String

    Dim i                       As Long

    Dim j                       As Long

    Dim bRet                    As Boolean

    Set swApp = CreateObject("SldWorks.Application")

    Set swModel = swApp.ActiveDoc

    Set swDesTable = swModel.GetDesignTable

    

    bRet = swDesTable.Attach

    Debug.Assert bRet

    

    nTotRow = swDesTable.GetTotalRowCount

    nTotCol = swDesTable.GetTotalColumnCount

    

    Debug.Print "File = " & swModel.GetPathName

    Debug.Print "  Title        = " & swDesTable.GetTitle

    Debug.Print "  Row          = " & swDesTable.GetRowCount

    Debug.Print "  Col          = " & swDesTable.GetColumnCount

    Debug.Print "  TotRow       = " & nTotRow

    Debug.Print "  TotCol       = " & nTotCol

    Debug.Print "  VisRow       = " & swDesTable.GetVisibleRowCount

    Debug.Print "  VisCol       = " & swDesTable.GetVisibleColumnCount

    Debug.Print ""

    

    For i = 0 To nTotRow

        sRowStr = "  |"

        For j = 0 To nTotCol

            sRowStr = sRowStr + swDesTable.GetEntryText(i, j) + "|"

        Next j

        Debug.Print sRowStr

    Next i

    

    swDesTable.Detach

End Sub

'---------------------------------------