change text on CAD by excel sheet

[grobnik]

Hi,
We don't know the reasons because he would like to unload the procedure, however the procedure to unload it's correct.
We suggested how to fix the first point he highlighted concerning the SelectionSet, declaring as general object instead AcadSelectionSet.

If you have time try to download my solution and give me a feedback.
What I understand is:
He has inside the drawing several text related to a TAG, and would like to change based an excel list before created by himself or somebody.
So I created a selection set containing all text found in the drawing (Text are placed in a specific LAYER, named TAG), and a loop for comparing and substituting when comparison matches the excel cell.
Let me know your impression.

[eng.mohammedaly90788240]

hi grobnik
i really appreciate your support
as i said before i am little knowledge of VBA
so what i did
1- i open autcad dwg.
2- select what i need to change.
3- open the excel file.
4- load .bas file.
5- run the VBA.
and that is the error i face now.
50.PNG

[grobnik]

this part of procedure it has been used to find the final row address of Excel file,
MaxRowProcedure.jpg
procedure check from row 1 to row n inside excel file, until the cells contains an empty value checked by "", if found we can retrive the maximum row used in the excel file, and we can save time instead check the entire worksheet cells inside column A.
Of course in order to do this, it is necessary to have excel opened, with current worksheet containing value to find and value for substitution.
Please note that we are inside autocad workplace and we are pointing to excel by object WKRS object variable, defined as Global inside main procedure, if this it's not working properly we cannot have the access to Excel file.
Let me know