Clipper/FiveWin - EXCEL A DBF

Necesito trasladar de un aplanilla Excel a DBF. Gralmente grabo la planilla COMO DBASEIII y depuro los campos que necesito. Pero tengo un problema cuando las celdas de la planilla Excel son formula. Alguien sabe como hacer para poder grabar campos formulas a un tipo Dbase III ?
Otra pregunta: hay algo que me permita trasladar un DBF a una planilla excel? dandole colores o pudiendo poner en Negrita y darle el tipo de campo a cada celda?

Lo que ya hago es copiar en otra hoja con "solo valores", ajusto los anchos de columna y grabo como dbaseIV , nunca uso el DBaseIII , pero si te ha funcionado esta bien.

La contra es usar la filexls de Ramon avendaño, te puedo enviar una ejemplo si "vos querés", como dicen allá.

Saludos

Te agradeceria mucho si me mandaras a mi correo eso de filexls para ver como funciona o si tenes documentacion del funcionamiento del mismo tambien me seria util.
Gracias

Amigo clippero, estuve leyendo tu respuesta y estaria interesado en esa funcion, lo q yo hago hasta el momento, es simplemente generar un dbf en un carpeta definida por el usuario y este la importa desde excel, el esquema funciona pero quizas de esta manera le haria evitar un paso a quien lo abra.

si tengo windows vista y excel 97 como puedo pasar de xls a dbf por favor me urge ayudame

Para pasar de EXCEL a DBF se puede hacer por OLE.

El siguiente ejemplo es solo aplicable si estas usando FiveWin:

STATIC PROCEDURE LEER()

LOCAL oExcel, oHoja, nRows, nCols
LOCAL TCampos:={}, nRow, nCol

/* creamos conexion OLE con Excel */
oExcel := TOleAuto():New( "Excel.Application" )
? "objeto excel creado"

*oExcel:Visible := .T. // por si quieres ver la hoja abierta

/* abrimos el fichero de hoja de calculo */
oExcel:WorkBooks:Open(cGetFile("*.XLS", "Seleccione Fichero"))
?"hoja abierta"

/* seleccionamos la hoja actual*/
oHoja := oExcel:Get( "ActiveSheet" )

/* contamos cuantos renglones y cuantas columnas existen con datos */
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()

/* creamos la estructura de la base de datos */
AADD(tCampos,{'CODCLI' ,'N', 3, 0}) // 1
AADD(tCampos,{'FECHA' ,'C',10, 0}) // 2
AADD(tCampos,{'REFERENC' ,'C',20, 0}) // 3
AADD(tCampos,{'TIPOMOV' ,'C', 1, 0}) // 4
AADD(tCampos,{'IMPORTR' ,'N', 11, 2}) // 5 le agregue 2 espacios mas
AADD(tCampos,{'CONCEPTO' ,'C',15, 0}) // 6
AADD(tCampos,{'EXPEDIEN' ,'N', 9, 0}) // 7
AADD(tCampos,{'AGENTE' ,'C', 4, 0}) // 8
AADD(tCampos,{'PETIVOLU' ,'C', 1, 0}) // 9
AADD(tCampos,{'FACTUDEVO' ,'C', 1, 0}) // 10
AADD(tCampos,{'PPREAGE' ,'C', 1, 0}) // 11
AADD(tCampos,{'SITUACION' ,'C', 1, 0}) // 12
AADD(tCampos,{'SALDO' ,'N', 11, 2}) // 13 le agregue 2 espacios mas
AADD(tCampos,{'ILOCALIZ' ,'C', 1, 0}) // 14
AADD(tCampos,{'FILLER' ,'C', 3, 0}) // 15

DBCREATE("IMPDIAR",tCampos)

/* abrimos la base de datos para colocarle los campos de excel*/
USE IMPDIAR

/* y ahora vamos leyendo celda por celda y colocando en campo de la DBF*/
FOR nRow := 2 TO nRows
APPEND BLANK
FOR nCol := 1 TO nCols
xValue := oHoja:Cells(nRow,nCol):Value
FieldPut(nCol,xValue)
SysRefresh()
NEXT
DBCOMMIT()
Memory(-1)
NEXT

oExcel:Quit()
oHoja:End()
oExcel:End()

MsgInfo( "Se ha creado el fichero PRUEBA.DBF" )

RETURN

Y para hacer lo contrario, pues nada, como dice Miguel, utilizar la clase FILEXLS de Ramon avendaño.

Por favor si alguien me lo puede mandar le agradezco