Hola a todos
Normalmente se han visto muchos post acerca de las clases para exportar los datos de una DBF a un archivo XLS aplicando formulas, propiedades del texto, alineacion, etc, etc , en este momento ando buscando lo inverso : poder leer y obtener los datos desde un archivo excel, no me importa realizar ninguna operacion, simplemente leer todas las lineas de X columnas, sin necesidad de convertir el archivo a dbf 
Alguna sugerencia ?
Saludos
ando en eso mismo desde hace como 2 meses y he probado una tal clase toleauto pero lamento decepcionarte que no me sirve, si lo logro hacer te paso el dato mientras puedes probar tu a ver si esa clase te sirve
Ok alejandro
Enterado.
Seguimos buscandole.
Gracias
LOCAL oExcel, oHoja, nRows, nCols
LOCAL TCampos:={}, nRow, nCol
oExcel := TOleAuto():New( "Excel.Application" )
*oExcel:Visible := .T. // por si quieres ver la hoja abierta
oExcel:WorkBooks:Open(cGetFile("*.XLS", "Seleccione Fichero"))
oHoja := oExcel:Get( "ActiveSheet" )
nRows := oHoja:UsedRange:Rows:Count()
nCols := oHoja:UsedRange:Columns:Count()
USE <tu 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()Master Flores
Como siempre, ofreciendonos una solucion directa, cuando vemos o creemos que es muy dificil el asunto.
Muchas gracias, enseguida hago pruebas.
Saludos
Perfecto !!!!
Puedo hacer exactamente lo que necesitaba.
Once again Master Flores, thanks a lot 
Saludos
QAZWSX2K wrote:ando en eso mismo desde hace como 2 meses y he probado una tal clase toleauto pero lamento decepcionarte que no me sirve, si lo logro hacer te paso el dato mientras puedes probar tu a ver si esa clase te sirve
estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias
La clase TExcels también les puede ser muy útil.
..No te pido que me des el pescado , sino que me enseñes a pescar.....
QAZWSX2K wrote:estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias
RF wrote:QAZWSX2K wrote:estimado rene pudistes haberme contestado eso a mi tanbien hace mas de un mes que pregunte por eso y solo me ayudastes diciendo que a lo mejor tenia excel incompleto, de todos modos gracias
HQJ (Hay que jo...) ahora resulta que tengo que dar soluciones concretas en momentos especificos.... ya me vale
Ha veces soy tan irresponsable.... que yo mismo me sorprendo
oExcel := TOleAuto():New( "Excel.Application", .F. )
oExcel:WorkBooks:Open( cFilePath )
oExcel:Sheets( 1 ):Select()
oHoja := oExcel:Get( "ActiveSheet" )
nTotalRows := oHoja:UsedRange:Rows:Count()
for nRow := 8 to nTotalRows
...
next
oExcel:WorkBooks:Close()
oExcel:Quit()
oExcel:End() [b]me devuelve error[/b]
oExcel := NILQuita el END(), con el solo Quit() es mas que suficiente.
un Voto mas por texcel,
no solamente hace eso ,, hace mucho mas,,,
ayer presisamente me tope con que tenia que leer un archivo de
codigos postales en excel,
el libro, tenia 21 pestañas, y en cada hoja habian entre 500 y 3 mil renglones
estudiando un poquito la texcel,
solucione el problema,
saludos..
muchas gracias
