I have only been using SW2018 for a couple of months and I have only started creating VBA code in the past week.
I have been working on a project which has taken a design task from ~1 hour to complete long-hand to ~20 seconds with VBA . To finish of the project I would like to take some data from Excel and paste it into a drawing as a general table (not as an embedded OLE object).
I can create a table of the correct size (columns and rows) and I can rename it to what I want (in this case "Tube Bend Table").
What I can't do is add the text I require into the cells that I want via VBA.
I have worked out the following: -
1. Even though I have renamed the table "Tube Bend Table" and is listed in the feature manages as such it is actually "DetailItem58@Sheet1".
2. I can add the text I require into the cells as long as I call up "DetailItem58@Sheet1"
example code (obtained from recording a macro in SW): -
boolstatus = Part.Extension.SelectByID2("DetailItem58@Sheet1", "ANNOTATIONTABLES", 0, 0, 0, False, 0, Nothing, 0)
Set myTable = Part.SelectionManager.GetSelectedObject5(1)
myTable.Text(0, 0) = "Text in cell 0,0"
myTable.Text(1, 2) = "Text in cell 1,2"
3. Changing the the first line of the code to: boolstatus = Part.Extension.SelectByID2("Tube Bend Table", "ANNOTATIONTABLES", 0, 0, 0, False, 0, Nothing, 0) does not work.
Can a clever guru point me in the correct direction (i.e. write the code) for me to be able to create a table, rename it, add text to cells? I know I've done some of this already, but it would be nice to know how a programmer would do it rather than a googled code copier like me.