How to handle opening an excel during run time?

[Ravi_Chandra]

Hi,

Below is the scenario:

I have to open an excel file from the application during run time. And I have to get the record count from that excel sheet.
It is taking more seconds to open the excel sheet when data is more.

Used below code but did not work:

Code:

Public Function Export_Debug() Browser("X").Dialog("File Download").WinButton("Open").Click Do Wait(2) On Error Resume Next Set objExcel = Getobject(,"Excel.Application") Loop Until objExcel.Visible = True rowCount = objExcel.ActiveWorkbook.ActiveSheet.usedrange.rows.count Reporter.ReportEvent micDone, "Record Count in Excel", "Record Count is: " & rowCount objExcel.Quit End Function

Can anyone help me with solution?

Thanks,
Ravi.

[tester_rahul]

I have an alternative solution.
Try doing this.
use datatable.importsheet "<Path of xlx file> and then
count number of rows of the data table

[Rekhapramod]

Hi,

Try to use the below code

Code:

strFileName="C:\Documents and Settings\qtp\Desktop\Login_Details.xls" strSQLStatement="Select * from [Dummy$]'" Dim objAdCon, objAdRs Set objAdCon = CreateObject("ADODB.Connection") objAdCon.Open "DRIVER={Microsoft Excel Driver (*.xls)};DBQ="&strFileName &";Readonly=True" Set objAdRs = CreateObject("ADODB.Recordset") objAdRs.Open strSQLStatement, objAdCon,3 MsgBox objAdRs.RecordCount

Regards,
RP