How to retrieve data from excel to datatable

[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