Qué tal Jorge!
Te comparto un fragmento de un código propio:
mFile=GETFILE('xls', 'Leer Archivo:', 'Abrir',0, 'Mostrar Archivos de Excel')
If Empty(mFile)
Messageb("No seleccionó ningún archivo.",0+48,"Verifique")
Return
EndIf
CREATE CURSOR nombrefol (tipo c(2), numero c(5), mes c(10), folder c(15), rela c(15))
SELECT nombrefol
Try
APPEND FROM &mFile TYPE XLS
CATCH TO loErr
IF loErr.errorno=1104
MESSAGEBOX("Archivo Excel Vacío",0,"Verifique")
EndIF
Finally
Endtry
SELECT nombrefol
SET DELETED On
GO top
Delete&&eliminar primer registro de excel. opcional
Count
GO top
If _tally<=0
Messageb("No se pudo importar información."+CHR(13)+;
"Su archivo Excel debe ser guardado como:"+CHR(13)+;
"Libro de Microsoft Excel 5.0/95(*.xls)",16,"Verifique")
Return
EndIf
Browse
Tendrías que adecuar los campos del cursor a tus necesidades