The test run cannot continue due to an unrecoverable error

[neerndg123]

Hi,

I am getting the error mentioned in subject. No matter what is the first line of the code, it fails at that part only by giving this error. Following is the starting piece of code.
-----------------------

Code:

Set ExcelApp = CreateObject("Excel.Application") ExcelApp.Visible=true

-----------------------
Following is the code where I am getting error: Object required: 'God'
-----------------------

Code:

TheDate = Date( ) msgbox TheDate GetDay = DatePart("d", TheDate) GetMonth = DatePart("m", TheDate) GetYear = DatePart("yyyy", TheDate) MyDate = GetMonth & "/" & GetDay & "/" & GetYear msgbox MyDate With ExcelWS.UsedRange Set c = .Find (MyDate) For each c in ExcelWS.UsedRange If c = MyDate then God = ExcelWS.UsedRange.Find(c) msgbox God End If Set c = .FindNext(c) Next End With FirstAddress= God.Address SecondAddress = God.Column msgbox FirstAddress msgbox SecondAddress

I am opening an excel application in which I want to write some results, which is later part. I am not able to do this. Please help!!!

[Ankesh]

if the value that you are looking for is not found, it will throw the error.

You can try the below code

Code:

intStartRange="A1" intEndRange="A50" intFoundRow=ExcelApp.Range(intStartRange,intEndRange).Find(<ValueBeingSearched>).Row

Please note this will always return the row number where the value was first found. To get the next occurance row, you need to set the range again.

Let me know if you need more help.

Regards,
Ankesh

[neerndg123]

Hi Ankesh,

Thanks a lot for your reply. I will check and let you know whether it works or not.

Regards,
Neeraj

---

Hi,

By following, I am able to search the string I wanted to i.e. today's date in the excel sheet.

Code:

intNeer=ExcelWS.UsedRange.Find(MyDate)

It returns correct value. But I want to know the address of the Column+row where it is found. How to do that?

Regards,
Neeraj

[ananthakumarbe]

I'm getting a General run error while executing the following script:

Code:

Set objtab=description.create Objtab(“MicClass”).value=”WebTable” Set a=Browser("name:= ").Page("title:= ”).childobjects(objtab) Msgbox a.count For i=0 to a.count-1 B=a(i).tostring Print b next

Please help to resolve this.