DELETE FILE (lcFile)

XLApp.DisplayAlerts = .F.
XLApp.ActiveWorkbook.SaveAs(lcFile, 1)
XLApp.DisplayAlerts = .T.

cNameXLSFile=GETFILE('XLS','Файл XLS','Выбрать',0,'Выберите файл учета поступлений')
IF EMPTY(cNameXLSFile)
    WAIT 'Действие отменено пользователем' WINDOW AT 20,80 NOWAIT 
    RETURN
ENDIF 
SET SAFETY OFF 
SET ESCAPE ON 
SET TALK OFF
SET EXACT ON
SET NEAR OFF 
*"Номер строки" "Номер телефона" "Дата платежа"    "Сумма платежа" "Тип платежа"
CREATE CURSOR tmp(n_stroki N(5,0), fon C(10), date_plat D, summavzn N(9,2),sposob C(80))

XLRelek1=GetObject("","Excel.Application")
XLRelek=XLRelek1.Workbooks.open((cNameXLSFile))
XLRelek.application.visible=.t. &&[1]
&& [1]Эту команду можно и пропустить, но если она присутствует Excel открывается и, 
*если файл достаточно большой можно смотреть, как курсор прыгает по ячейкам 
XLSheet1=XLRelek.Sheets(2)  &&Второй лист. Можно выбрать любой.
XLSheet1.select 

ii=4 && Пропускаю шапку файла Excel
XLSheet1.Cells(ii,1).select 
DO WHILE !EMPTY(XLSheet1.Cells(ii,1).value) 
    STORE '' to mfon, mtipplat
    STORE 0 TO msumplat
    store{} to mdata
    
    XLSheet1.Cells(ii,1).select &&[1]
    mfon=XLSheet1.Cells(ii,1).value
    IF TYPE("mfon")="N"
        mfon=ALLTRIM(STR(mfon))
    ENDIF 
    mfon=ALLTRIM(mfon)
    
    XLSheet1.Cells(ii,2).select &&[1]
    mdata=XLSheet1.Cells(ii,2).value
    IF TYPE("mdata")="C"
        mdata=CTOD(ALLTRIM(mdata))
    ENDIF 
    
    XLSheet1.Cells(ii,3).select &&[1]
    mtipplat=ALLTRIM(XLSheet1.Cells(ii,3).value)
    
    XLSheet1.Cells(ii,4).select &&[1]
    msumplat=XLSheet1.Cells(ii,4).value
    IF TYPE("msumplat")="C"
        msumplat=VAL(ALLTRIM(msumplat))
    ENDIF 
    
    SELECT tmp 
    APPEND BLANK
    REPLACE n_stroki WITH ii, fon WITH mfon, date_plat WITH mdata, summavzn WITH msumplat, sposob WITH mtipplat
    ii=ii+1
ENDDO 

XLRelek.application.quit &&Закрываю. Можете и не закрывать для сверки
IF RECCOUNT('tmp')=0
    MESSAGEBOX('В выбранном файле нет платежей.','Внимание!')
    USE IN tmp
ENDIF 
Работает со всеми Офисами, включая 2010-й
Конечно, все это можно сделать гораздо более коротким кодом, но это дело вкуса.