String ifn, ifp, s, msg
Long res
any a
oleobject xls, rng
res=GetFileOpenName ( 'Выберите файл', ifp, ifn,'xls','Excel,*.xls')
if res< 1  then return
xls = create oleobject
xls.ConnectToNewObject('Excel.Application')
xls.WorkBooks.Open(ifp, 0 ,true)
rng = xls.ActiveSheet.Cells(i_row, i_column) 
// был тип данных в ячейке  общий, поставил числовой  11 . 00 , сделал  0  знаков после
// точки - need правильно выбрать CASE  "double"
a = rng.Value
// надо проверять что в ячейке - число или текст
any la_spreadsheetdata
la_spreadsheetdata = rng.Value
CHOOSE CASE ClassName(la_spreadsheetdata)
    CASE  "double"  		 //  не подошло "float"  // "integer"
		s = string(a)
	CASE "string"
        s = a // for text - OK!
END CHOOSE

msg = "тип данных в ячейке:~nCell ( " + string(i_row) + " , " + string (i_column) + " )~n" + &
	ClassName(a) + ': ~n'+ s
MessageBox('Отладка', msg)

i_column ++  // чтобы печатать только первую и  2 -ую колонку
if i_column >  2  then
	i_column =  1 
end if

xls.DisplayAlerts=false
xls.Quit
destroy xls