Exportar a excel con xharbour

Ver el tema anterior Ver el tema siguiente Ir abajo

Exportar a excel con xharbour

Mensaje  byrpa el Miér Jun 03, 2009 10:33 am

Cuando trabaje con clipper, el exportar datos era generar un archivo de texto delimitado por punto y coma ";" o por comas ",", y desde excel importar los datos desde este archivo, ademas tenia que crear una macro en excel para darle formato a los datos, ya en la hoja de calculo. Ahora desde que migre a xharbour me he estado dando a la tarea de encontrar nuevas funciones que faciliten a los usuarios la exportacion de datos a excel.

Encontre el TOleAuto(), que es una clase de xharbour que me va a resolver estos problemas, aca les dejo un ejemplo probado:

Procedure exp_excel()
objExcel = TOleAuto():New("Excel.Application")

objExcel:Visible := .T.
objExcel:Workbooks:Add()
objExcel:Cells(1, 1):Value := "Campo1:"
objExcel:Cells(2, 1):Value := "Campo2:"
objExcel:Cells(3, 1):Value := "Campo3:"

objExcel:Cells(1, 2):Value := "Resultado1"
objExcel:Cells(2, 2):Value := "Resultado2"
objExcel:Cells(3, 2):Value := "Resultado3"
Return

Ahora bien todos los comandos de esta clase, los puedes tomar del mismo visual basic, es decir puedes hacer una macro en excel y de alli entrar a modificarla y copiar este texto directo a tu xharbour, con ciertas modificaciones, guiandote por el ejemplo anterior. (quitar puntos "." y poner ":")

Saludos.

byrpa

Mensajes : 63
Fecha de inscripción : 19/11/2008

Ver perfil de usuario

Volver arriba Ir abajo

Ver el tema anterior Ver el tema siguiente Volver arriba


 
Permisos de este foro:
No puedes responder a temas en este foro.