Generando Informes de Excel con Visual FoxPro
La automatización de la generación de informes es una capacidad de gran demanda dentro del ámbito profesional, y aún en el contexto de sistemas legados, donde Visual FoxPro (VFP) ha mostrado gran resistencia y vigencia. Abordaremos la creación de archivos Excel (.xlsx) utilizando herramientas que ofrece FoxPro, maximizando su funcionalidad al realizar tareas específicas de generación de datos y análisis.
En el entorno de programación de VFP, la creación de informes en hojas de cálculo puede ser llevada a cabo fundamentalmente con la ayuda de la librería Automation OLE, que permite la interacción con las aplicaciones de Microsoft Office. Empezaremos por establecer una conexión con Excel a través de un objeto OLE.
LOCAL loExcel
loExcel = CREATEOBJECT('Excel.Application')
loExcel.Visible = .T.
Con este código básico, se lanza la aplicación de Excel y se hace visible al usuario. La instancia creada servirá como puente para manipular los libros de trabajo y las hojas de cálculo desde FoxPro.
Creación y Manejo de Libros de Excel
Una vez que hemos establecido la instancia inicial con Excel, el siguiente paso involucra la creación o apertura de un libro de trabajo. Para este ejemplo, vamos a enfocarnos en la creación de un nuevo libro.
LOCAL loWorkbook
loWorkbook = loExcel.Workbooks.Add()
En este segmento, declaramos una nueva variable y a través de nuestra instancia de Excel, añadimos un nuevo libro. A partir de aquí, tenemos carta libre para empezar a llenar hojas de cálculo con los datos que queramos exportar de FoxPro.
Operaciones con Hojas de Cálculo
Las hojas de cálculo son el espacio donde realmente plasmaremos los datos. Para agregar información a una hoja, primero debemos establecer con cuál hoja vamos a trabajar y luego definir en qué celdas escribiremos nuestra información.
LOCAL loSheet
loSheet = loWorkbook.Sheets(1)
loSheet.Name = 'Datos Importantes'
loSheet.Cells(1, 1).Value = 'ID'
loSheet.Cells(1, 2).Value = 'Descripción'
loSheet.Cells(1, 3).Value = 'Cantidad'
En el extracto anterior, escogemos trabajar con la primera hoja del libro (indexada como 1), le asignamos un nombre descriptivo y comenzamos a poblarla con un encabezado de ejemplo para los datos que añadiremos. La propiedad Cells permite definir el valor de una celda concreta, indicando la fila y la columna correspondientes.
Exportando Datos Desde FoxPro
Un escenario común es tener que exportar datos que están almacenados en tablas (.DBF) de Visual FoxPro a Excel. A continuación, expondremos cómo trasladar esta información de manera programática hacia un formato de hoja de cálculo.
LOCAL lnRowCounter, loRecordset, lcQuery
lnRowCounter = 2
USE tuTablaInDBF IN 0 AGAIN ALIAS miTabla
lcQuery = 'SELECT * FROM miTabla INTO CURSOR miCursor'
loRecordset = loExcel.ActiveWorkbook.Connections.Add2('miConexion', '', lcQuery, '', 3, 1)
SCAN WHILE NOT EOF('miTabla')
loSheet.Cells(lnRowCounter, 1).Value = miTabla.ID
loSheet.Cells(lnRowCounter, 2).Value = miTabla.Descripcion
loSheet.Cells(lnRowCounter, 3).Value = miTabla.Cantidad
lnRowCounter = lnRowCounter + 1
ENDSCAN
USE IN SELECT('miTabla')
Se ejecuta una consulta SQL en FoxPro y se almacenan los resultados en un cursor. Posteriormente, iteramos sobre la tabla mediante el bucle SCAN, asignando cada registro a las celdas correspondientes de la hoja de cálculo y aumentando el contador de fila tras cada inserción.
Formateando la Presentación de los Datos
No basta con simplemente volcar los datos en Excel; presentar la información de manera atractiva y comprensible es clave. Visual FoxPro, con la ayuda de OLE Automation, también permite manipular la apariencia de la hoja de cálculo, incluyendo estilos de letra, colores y formatos de celda.
WITH loSheet.Range('A1:C1')
.Font.Bold = .T.
.Interior.Color = RGB(200, 200, 200)
.Borders.Weight = 2
ENDWITH
Aquí, establecemos que el rango que comprende desde la primera columna (A) hasta la tercera columna (C) en la primera fila, tenga un estilo en negrita, un color de fondo claro y un peso de borde para destacar la línea que sirve como encabezado. Utilizamos la palanca WITH … ENDWITH para aplicar múltiples propiedades a un mismo rango.
Finalizando y Guardando el Informe de Excel
Una vez que hemos vuelto nuestra hoja de cálculo repleta de datos y con un formato agradable, necesitamos salvar el trabajo y cerrar la aplicación, asegurándonos de liberar los recursos utilizados en el proceso. Es recomendable realizar un manejo de errores para prevenir inconvenientes al finalizar.
TRY
loWorkbook.SaveAs('C:misDatosInforme.xlsx')
loExcel.Quit()
CATCH TO loError
* Handle error
MESSAGEBOX('No se pudo guardar el archivo. Error: ' + loError.Message, 48)
FINALLY
RELEASE loSheet
RELEASE loWorkbook
RELEASE loExcel
ENDTRY
El método SaveAs permite guardar el libro en un path especificado, y Quit cierra Excel. La estructura TRY..CATCH..FINALLY proporciona un manejo de errores para evitar que un posible fallo (como una ruta incorrecta de guardado) deje la aplicación colgada sin cerrar adecuadamente.