Cómo configurar líneas de tabla para tablas de Excel a través del programa Delphi
Excel es un software de oficina de uso común. La aplicación más común es crear varias hojas de cálculo. De manera similar, escribir tablas de Excel en lenguaje Delphi también es una tarea común para los programadores.
Cómo configurar filas de una tabla en una tabla de Excel a través del programa Delphi Antes de completar esta tarea, necesita conocer información adicional necesaria:
En Excel, se pueden configurar filas de tabla. El objeto de operación es el objeto Border:
Este objeto tiene los siguientes miembros:
Borders tiene las siguientes propiedades de borde:
El valor representado por el borde es de la siguiente manera:
El estilo definido por la línea de borde:
Después de comprender el conocimiento anterior, escribir código es relativamente simple. El siguiente es el código de muestra: procedimiento?TForm1.Button1Click(. Sender:?TObject)Button1Click(Sender:?TObject );
//Defina primero la constante de fila, o no la defina. La definición es para facilitar la memoria y el código es fácil de leer.
const xlInsideHorizontal?=?$0000000C; xlInsideVertical?=?$00000006;xlEdgeBottom?=?$00000009; xlDash? =? ; xlDashDot?=?4; xlDashDotDot?=?5; xlDot?=?-4118; xlDouble?=?-4119; .Application');//Crear contacto de Excel ExcelApp.Visible?:=?True;?//Mostrar la ventana de Excel ExcelApp .WorkBooks.Open('d:\Demo.xls');?//Abrir el archivo de Excel especificado //Establece el borde superior de la celda especificada en la tablaExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeTop ].LineStyle?:=?xlDouble; ExcelApp.WorkBooks.Open('d:\Demo.xls ';?) //Muestra la ventana de Excel ExcelApp.WorkBooks.Open('d:\Demo.xls');?ActiveSheet Range['A2:H7'].Borders[xlEdgeTop].Color??:=?clRed. ;ExcelApp.NET.
4; //Establece el borde inferior de la celda especificada en la tabla ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeBottom].LineStyle?:=?xlDouble; '] .Borders[xlEdgeBottom].Color?Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeBottom].Peso??:=?Borders[xlEdgeLeft].LineStyle?:= ?xlDouble ; ExcelApp.ActiveSheet.Range['A2:H7'].'A2:H7'].Borders[xlEdgeLeft].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[ xlEdgeLeft] .Weight?:=?El borde derecho de la celdaExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeRight].LineStyle?:=?xlDouble; ExcelApp.ActiveSheet.Range['A2:H7'] .Borders [xlEdgeRight].LineStyle?:=?Border[xlEdgeRight].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].ExcelApp.ActiveSheet.Range['A2:H7'].Borders [xlInsideHorizontal ].LineStyle?:=?xlContinuous; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlInsideHorizontal].Color?:=?clBlue; ExcelApp.ActiveSheet.Range['A2:H7'].Borders [xlInsideHorizontal ].Weight?:=?2; // Establece todas las líneas verticales en el centro de la tabla ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlInsideVertical].LineStyle?:=?xlExcelApp. ActiveSheet.Range[' A2:H7'].Bordes[xlInsideHorizontal].Peso??Rango['A2:H7'].Bordes[xlInsideVertical].Color?:=?clBlue; ExcelApp.ActiveSheet.:=?2;
end;
Captura de pantalla del efecto de ejecución: