Paste excel into SolidWorks, and excel form of communication.
I nedd change Note in paste excel table.
Thanks.
follow code is change note in General Table, I need change note for paste Excel tabe in Solidworks.
***************************
'Get General Table Feature Example (VB)
'This example shows how to get a general table feature and its properties.
Option Explicit
Dim swApp As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swModelDocExt As SldWorks.ModelDocExtension
Dim swSelMgr As SldWorks.SelectionMgr
Dim swGeneralTableFeature As SldWorks.GeneralTableFeature
Dim swTableAnnotation As SldWorks.TableAnnotation
Dim nbrTableAnnotations As Long
Dim vTableAnnotations As Variant
Dim i As Long
Dim anchorAttached As Boolean
Dim anchorType As Long
Dim nbrColumns As Long
Dim nbrRows As Long
Sub main()
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swModelDocExt = swModel.Extension
Set swSelMgr = swModel.SelectionManager
Dim Str, ii, jj, boolStatus
' Select general table feature in FeatureManager design tree
boolStatus = swModel.Extension.SelectByID2("General Table2", "GENERALTABLEFEAT", 0, 0, 0, False, 0, Nothing, 0)
Set swGeneralTableFeature = swSelMgr.GetSelectedObject6(1, 0)
nbrTableAnnotations = swGeneralTableFeature.GetTableAnnotationCount
Debug.Print "Number of annotations = " & nbrTableAnnotations
vTableAnnotations = swGeneralTableFeature.GetTableAnnotations
For i = 0 To (nbrTableAnnotations - 1)
Set swTableAnnotation = vTableAnnotations(i)
anchorAttached = swTableAnnotation.Anchored
Debug.Print "Table anchored = " & anchorAttached
anchorType = swTableAnnotation.anchorType
Debug.Print "Anchor type = " & anchorType
nbrColumns = swTableAnnotation.ColumnCount
Debug.Print "Number of columns = " & swTableAnnotation.ColumnCount
nbrRows = swTableAnnotation.RowCount
Debug.Print "Number of rows = " & nbrRows
For ii = 0 To nbrRows
For jj = 0 To nbrColumns
swTableAnnotation.Text(ii, jj) = "A" & ii + jj '& ": m" & ChrW(179)
Next jj
Next ii
Next i
End Sub