error to import from excel

[Silvio.Falconi]

in 2016 this example worked fine now it doesn't import any records from excel sheet

Code: Select all

Function Import()
   Local oRange,lOpened:=.f.


 * oRange   := GetExcelRange( ExePath() + "CLIENTI.xls" )
    oRange   := GetExcelRange( ExePath() + "CLIENTI.xls"  , , @lOpened)


 USE CLIENTI ALIAS CL
 SELECT CL


    FW_ExcelToDBF( oRange, nil, .t. )

    xbrowse()

     oRange   := NIL

return nil