ARCHIVO.DBF A EXCEL
Publicado por Panchita Ramos (16 intervenciones) el 05/08/2005 06:16:08
Amigos buen dia ..! TRABAJE CON LOS ARCHIVOS.TXT Y LOS PASE A ARCHIVO.DBF , TUVE QUE HACERLO DE ESTA FORMA PORQUE FILTRE VARIOS ARCHIVOS.TXT Y LOS HICE UN SOLO.DBF , AHORA TRATO DE ENVIAR ESTE ARCHIVO.DBF A ARCHIVO 'EXCEL'. , TODO ESTO DEBE QUEDAR AUTOMATIZADO EN UN FORMULARIO, EL CODIGO QUE HE LOGRADO DESARROLLAR CON TODAS LAS AYUDAS QUE HE PODIDO VER AQUI ES EL SIGUIENTE:
lcDBF = "T_FINAL.DBF"
lcXLS = "C:\MiXLS.xls"
objecto =CREATEOBJECT("excel.application")
objecto.visible = .t.
objecto.Workbooks.add
objecto.Workbooks.Open(lcDBF)
objecto.ActiveWorkbook.SaveAs(lcXLS)
ME ABRE EL EXCEL : (CORRECTO)
ME ABRE LA NUEVA HOJA DE CALCULO (CORRECTO)
ME ABRE EL ARCHIVO.DBF PERO LO PONE COMO BASURA
PREGUNTA: QUE ME HACE FALTA EN EL CODIGO PARA QUE SE VEA MI ARCHIVO.DBF EN LA HOJA DE TRABAJO.XLS..?
GRACIAS POR LA YUDA..!
lcDBF = "T_FINAL.DBF"
lcXLS = "C:\MiXLS.xls"
objecto =CREATEOBJECT("excel.application")
objecto.visible = .t.
objecto.Workbooks.add
objecto.Workbooks.Open(lcDBF)
objecto.ActiveWorkbook.SaveAs(lcXLS)
ME ABRE EL EXCEL : (CORRECTO)
ME ABRE LA NUEVA HOJA DE CALCULO (CORRECTO)
ME ABRE EL ARCHIVO.DBF PERO LO PONE COMO BASURA
PREGUNTA: QUE ME HACE FALTA EN EL CODIGO PARA QUE SE VEA MI ARCHIVO.DBF EN LA HOJA DE TRABAJO.XLS..?
GRACIAS POR LA YUDA..!
Valora esta pregunta
0