Read data from Microsoft Excel via PowerBuilder

string pathtospreadsheet
pathtospreadsheet = sle_1.text
 
integer result, i , j
string ls_read
 
 
OLEObject myoleobject
myoleobject = CREATE OLEObject
result = myoleobject.ConnectToObject(pathtospreadsheet)
 
myoleobject.Worksheets(1).Activate 
 
IF result = 0 THEN
//      For i = 1 to 1
	i = 1
            for j = 4 to 10
                  ls_read =  myoleobject.application.workbooks(1).worksheets(1).cells(i,j).value
                  messagebox('Spreadsheet Value for Column ' + string(i) + ' and Row ' + string(j),ls_read)
            next
//      next
//    myoleobject.application.workbooks(1).save()
END IF
 
DESTROY myoleobject