Option Explicit

Sub main()

    Dim swApp As SldWorks.SldWorks
    Dim swDraw As SldWorks.ModelDoc2
    Dim swSelMgr As SelectionMgr
    Dim swTable As SldWorks.TableAnnotation
    
    Set swApp = Application.SldWorks
    Set swDraw = swApp.ActiveDoc
    
    If Not swDraw Is Nothing Then
        Set swSelMgr = swDraw.SelectionManager
        If swSelMgr.GetSelectedObjectType2(1) = swSelANNOTATIONTABLES Then
            Set swTable = swSelMgr.GetSelectedObject5(1)
            swTable.SaveAsText "C:\test.csv", ","
        End If
    End If

End Sub