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.