How to retrieve data from excel to datatable

[shwetha_m]

Hi,
Please can any one let me know how to retrieve data from excel to datatable?
Regards,
Shwetha

[mohitbnsl]

Hi,

Please find the Code below:

Code:

set objexcel = createobject("Excel.application")
Set objWorkbook = objExcel.WorkBooks.Open("D:\ExcelTest.xls")
Set objDriverSheet = objWorkbook.Worksheets("Sheet1")
cc = objDriverSheet.usedrange.columns.count
rc = objDriverSheet.usedrange.rows.count
for i = 1 to rc
rname = objDriverSheet.cells(i,1).Value
if rname ="TEST_002" then
for j = 2 to cc
fieldvalue = fieldvalue & " " & objDriverSheet.cells(i,j)
next
end if
'End for
next
msgbox fieldvalue

objexcel.quit
Set objexcel=Nothing
Set objDriverSheet=Nothing
Set objWorkbook=Nothing

Also find the attached screenshot of the excel i was using.

Regards,
Mohit

[Ankesh]

Hi Shwetha,

In order to get the datas from excel to QTp datatable, QTp provides import feture...

Use the below code

Datatable.Import "C:\SampleFile.xls","<SheetNameInExcel(SourceSheet)>","<SheetNameIn Datatable(Destination Sheet)>"

please refer to QTp help for more information.

Regards,
Ankesh

[shwetha_m]

Hi Mohit,
I have created the excel which is attached by you. and copied the same script in QTP. when i run the script it displays error as :

ActiveX component can't create object: 'Excel.application'

Line (1): "set objexcel = createobject("Excel.application")".

Please help me on this.

Regards,
Shwetha

[rajpes]

shwetha, you need to install msoffice in your computer