Reading data from excel sheet

[serenediva]

Hi,

I need a script which can read data from an excel file( where the data is already given) and give the same inputs in a windows application.Is it possible to import the data from the excel sheet without using Datatable.importsheet statement ?? Please help

[vinod123]

⇒Read the data from Excel File:

Code:

Set myxl = createobject("excel.application")

'Make sure that you have created an excel file before exeuting the script.
'Use the path of excel file in the below code
'Also make sure that your excel file is in Closed state
myxl.Workbooks.Open "D:\qtp.xls"

myxl.Application.Visible = true

'this is the name of  Sheet  in Excel file "qtp.xls"   where data needs to be entered
set mysheet = myxl.ActiveWorkbook.Worksheets("Sheet1")

'Get the max row occupied in the excel file
Row=mysheet.UsedRange.Rows.Count

'Get the max column occupied in the excel file
Col=mysheet.UsedRange.columns.count

'To read the data from the entire Excel file
For  i= 1 to Row
    For j=1 to Col
        Msgbox  mysheet.cells(i,j).value
    Next
Next

'Save the Workbook
myxl.ActiveWorkbook.Save

'Close the Workbook
myxl.ActiveWorkbook.Close

'Close Excel
myxl.Application.Quit

Set mysheet =nothing
Set myxl = nothing