Exportar de xlsx a dbf

[cbyto]

Buenas tardes a todos.

Tengo una inquietud, 

Tengo un código que saque hace un tiempo de portal fox donde exporta una planilla de excel a dbf mediante controlador odbc.

Las planillas que he exportado hasta ahora siempre contenían datos del tipo numérico pero ahora tengo planillas con datos tipo character. Y estos me los exporta como campo memo.

Como podría solucionar eso?

La planilla varia siempre en cuanto a la cantidad de columnas, sus nombres y datos (hay numéricos y character)

Desde ya les agradezco

[Jairo Miranda]

TE mando este archivo que saque de www.portalfox.com … dale una vuelta al sitio siempre

Creo que funciona con el  Excel 2003 nada mas es actualizar el driver

 

cFileXLS = Getfile("XLS")

 

IF !FILE(cFileXLS)

   WAIT WINDOW  " NO SE Presentó selección de archivo .... "  at 40, 20 timeout 2

   RETURN

ENDIF

 

cConn = "Driver={Microsoft Excel Driver (*.xls)};"+;

        "DriverId=790;Dbq="+cFileXLS+;

        ";DefaultDir="+Justpath(cFileXLS)+";"

 

nH = SqlStringConnect(cConn)

 

SQLTables(nH,"", "SheetNames")

 

 

    cTabla = Trim(SheetNames.Table_Name)

    cCursor = Chrtran(cTabla," $","_")

    SQLExec(nH,'Select * From ['+cTabla+']',cCursor)

 

Select (cCursor)

 

JM