FoxPro/Visual FoxPro - Como pasar un Excel a un DBF

Hola bueno tengo ese problema he leido hartos mensajes de foros en esta pagina pero nada es claro les cuento que tengo este codigo en un boton

LOCAL lcFile as String
Local lcCaptuRuta as String
LOCAL lcBusca_str as String
LOCAL lcCont as String

lcFile = GetFILE('xls')
lcCaptuRuta = JUSTPATH(lcFile) &&Capturo la Ruta donde esta el archivo

STORE lcFile TO string
STORE '\' TO lcBusca_str

lcCont = RAT(lcBusca_str,string)
nomArch = SUBSTR(lcFile,lcCont + 1)

MESSAGEBOX(nomarch)

ahora iria por ejemplo Copy to nomarch type FOX2X pero me abre otra ventana para buscar un DBF, yo quiero que me cree una tabla DBF con el mismo nombre nada mas que eso para asi poder trabajarla

ojala puedan ayudarme

lo mas facil

import from getfile('XLS') type XLS

o

LOCAL lcFile as String
Local lcCaptuRuta as String
LOCAL lcBusca_str as String
LOCAL lcCont as String

lcFile = GetFILE('xls')
import from &lcFile type XLS