topic How to change or add the table cell values in a drawing using VBA? in VBA Forum

How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 12:34:40 GMT

I have a table in my drawing and I want to change or add the cell values using VBA.

The following is my requirement:

Existing "A1 cell" value: XXXXX

New "A1 cell" value needed: YYYYY

Please help me with the code.

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 15:11:21 GMT

First of all you have to point to your table object inside the drawing:

For Each Object in thisdrawing.modelspace If Object.ObjectName="AcadTable" then Set MyTable=Object end if Next .... Apply here the example for cells manipulation ...

Later you can use the online help related to Cells managing inside the drawing, removing AddTable.

Or If you want to add a Table and manipulate the cells use the entire code below coming from online help.

Sub Example_CellManipulation() ' This example adds a table in model space and sets and gets a column name Dim MyModelSpace As AcadModelSpace Set MyModelSpace = ThisDrawing.modelSpace Dim pt(2) As Double Dim MyTable As AcadTable Dim cName As String ' Set MyTable = MyModelSpace.AddTable(pt, 5, 5, 10, 30) ' here you add Table Call MyTable.SetCellDataType(2, 2, acLong, acUnitDistance) Call MyTable.SetCellFormat(1, 3, "testFormat") Call MyTable.SetCellState(4, 3, acCellStateContentLocked) Call MyTable.SetCellValue(1, 4, 5) MsgBox MyTable.GetCellValue(1, 4) & " is the test cell's value " ZoomExtents End Sub

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 15:25:24 GMT

Hi Grobnik!

Thanks for your response.

I already have a table in my drawing which has some values in each cell. I want to replace those values with new ones.

For example:

Existing "A1 cell" value: XXXXX

New "A1 cell" value needed: YYYYY

Existing "A2 cell" value: AAAAA

New "A1 cell" value needed: BBBBB

Please help with the code to exactly match my requirement as I am new to AutoCAD VBA.

Thanks in advance!

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 15:39:51 GMT

Here

Sub ChangeTableCell() For Each Object in thisdrawing.modelspace If Object.ObjectName="AcadTable" then Set MyTable=Object exit for end if Next 'object.SetCellValue row, col, val <----Function for modify cell value ' Object is the Table object in your drawing, ' row is the Table row, ' col is the Table column, ' val is the value. Call MyTable.SetCellValue(1, 1, "YYYY") Call MyTable.SetCellValue(2, 1, "ZZZZ") end sub

If your Table have an heading row, the number of first row could change, and shifted by 1 unit.

Try an let us know.

As second issue I'm suggesting you to read some ebook also available on line for free about Autocad VBA.

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 17:09:02 GMT

Hi Grobnik,

The code which you have given is not working for me.

Tried changing the rows & columns numbers also. Please try and give me a different code.

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 17:21:11 GMT

Here the code,

In any case when you say " is not working for me" usually it's better to clarify where the code hangs, or message error showed, this can help the code debug, for you and for the other.

Sub ChangeTableCell() For Each Object In ThisDrawing.ModelSpace If Object.ObjectName = "AcDbTable" Then Set MyTable = Object Exit For End If Next 'object.SetCellValue row, col, val <----Function for modify cell value ' Object is the Table object in your drawing, ' row is the Table row, ' col is the Table column, ' val is the value. Call MyTable.SetCellValue(1, 1, "YYYY") Call MyTable.SetCellValue(2, 1, "ZZZZ") End Sub

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 18:01:13 GMT

Hi Grobnik,

The code which you have given is the same as the previous one. As I already told you this code isn't working for me.

There is no error as such when I try to run it. It make the drawing and table unchanged.

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 18:02:35 GMT

Can anyone help me with the VBA code please?

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 18:05:54 GMT

The code it's different from previous one check in deep before to judge.
The test of type of object it's differents.

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 18:11:13 GMT

How many tables do you have in the drawing? Which is the cad version do you have ?

Run step by step the code, debug the object name variable inside the for next loop.

Share the drawing.

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Thu, 21 Jan 2021 18:28:26 GMT

Hi Grobnik,

Sorry I didn't notice that change. But still it isn't working for me. The code passes through, without affecting the table.

Is there any code to find and replace the cell values?

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Thu, 21 Jan 2021 19:17:32 GMT

The code is that I showed you.
On my Autocad it's working fine.
Did you been able to debug step by step the variable "Object.ObjectName" ?

In editing mode highlight the above part of code, click right mouse button
on it, select ADD WATCH, then on menu click on "view" and "Watch Window".
Run the code step by step with F8 function key, and look at watch windows to
Object.ObjectName value, check if object name will contain "Table" word,
could be AcDbTable, or AcadTable value.
On the opposite table in the drawing is not a table but it's another type of
object, perhaps a block or an ole object such as excel sheet imported.
Share the DWG.

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Fri, 22 Jan 2021 03:40:19 GMT

Hi Grobnik,

Yes, its working fine now. Had to remove the excel data reference from the table in my template drawing.

Now its perfect. Thanks to you!

Regards,

Mohammed Shuaib

Re: How to change or add the table cell values in a drawing using VBA?

grobnik — Fri, 22 Jan 2021 07:11:49 GMT

@shuaib_cad

I'm happy that you solved your issue, but it seems that you are in a hurry to do things and judge too quickly the support that is provided to you, without trying to understand why certain procedures in VBA, even if you are at the beginning (from what I heard).

When I pointed you to the second version of the code in order to change the contents of a table cell, you immediately sought support elsewhere, asking the forum for help again, instead of understanding why it wasn't working properly. The problem was actually within your drawing.

This not the correct approach.

Bye

Re: How to change or add the table cell values in a drawing using VBA?

shuaib_cad — Fri, 22 Jan 2021 11:32:16 GMT

Thanks for your support!

Regards,

Mohammed Shuaib