Saludos.
El el foro he estado buscando temas sobre importar datos de un excel a una dbf, como le puedo hacer para tener una rutina asi
Atte. antonio
FiveTech Support Forums
FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour duda excel
Hola Antonio:
Para hojas sencillas, sin columnas combinadas, a mi me funciono excelente y rápido hace 2 semanas que estaba en busca de lo mismo, para cosas mas elaboradas y profesionales con control de formulas y creo que hasta Graficas esta la Clase TExcelScript, es mas robusta pero un poco más complicada, yo trate de usarla pero no pude terminar mis pruebas porque estoy bastante desactualizado
, me quede con esto que es lo que me sirvio.
Espero te sirva, saludos..
#Include "FIVEWIN.CH"
#Define xlDBF3 8
FUNCTION MAIN()
LOCAL oExcel := CREATEOBJECT( "Excel.Application" )
LOCAL oWorkBook, oSheet
LOCAL cHoja:= SPACE(50)
oWorkbook = oExcel:WorkBooks:Open(cGetFile32("Archivo Microsoft Excel(*.xls) |*.xls","Seleccione Hoja de Excel",1,,,.T.))
MSGget("Nombre de la hoja","",@cHoja)
msginfo(cHoja,VALTYPE(cHoja))
cHoja:= ALLTRIM(cHoja)
oSheet = oExcel:Sheets(cHoja)
oSheet:SaveAs( cGetFile32("Archivo de base de Datos(*.dbf) |*.dbf","Guardar Archivo como...",1,,,.F.), xlDBF3 )
oWorkBook:CLOSE( .F. )
oExcel:QUIT()
RETURN NILPara hojas sencillas, sin columnas combinadas, a mi me funciono excelente y rápido hace 2 semanas que estaba en busca de lo mismo, para cosas mas elaboradas y profesionales con control de formulas y creo que hasta Graficas esta la Clase TExcelScript, es mas robusta pero un poco más complicada, yo trate de usarla pero no pude terminar mis pruebas porque estoy bastante desactualizado
, me quede con esto que es lo que me sirvio.Espero te sirva, saludos..
Soluciones y Diseño de Software
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Damos Soluciones...
I.S.C. Victor Daniel Cuatecatl Leon
Director y Diseñador de Proyectos
http://www.soldisoft.unlugar.com
http://www.sisa.unlugar.com
danyleon82@hotmail.com
www.facebook.com/victordaniel.cuatecatlleon
Hola,
Solo una salvedad, lo mencionado no sirve con office 2007 y superiores, ya que no puede grabar como dbf.
saludos
Lautaro Moreira
Hola,
Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Soy un Contador que por necesidad aprendio a programar y se quedo programando.
Pienso que la forma mas facil y eficiente de importar un archivo/fichero Excel a DBF (o ADS) es convirtiendo primero el archivo Excel a CSV y luego usando la instruccion:
En las pruebas que he realizado he importado data a una velocidad de aprox. 6,000 registros por segundo.
Saludos
George
APPEND FROM "Archivo.CSV" DELIMITED WITH (,)En las pruebas que he realizado he importado data a una velocidad de aprox. 6,000 registros por segundo.
Saludos
George