Excel 作為常用的辦公軟件,最常見的應用就是制作各種電子表格,同樣,使用 delphi 語言編寫出 excel 的表格也是編程人員常見的任務。
如何通過Delphi程序給Excel表格設置表格線,在完成這個任務之前,需要補充了解壹些必需的資料:
在 Excel 裏的,能夠進行表格線設置的操作對象是 Border 對象:
這個對象具有以下成員:
Borders 具有以下邊框屬性:
各邊框代表值如下:
各邊框線條的樣式定義:
知道了上面的知識之後,編寫代碼就比較簡單了,以下是示例的代碼:
procedure?TForm1.Button1Click(Sender:?TObject);//先定義線型常量,也可以不定義,定義是為了便於記憶與代碼易讀
const
xlInsideHorizontal?=?$0000000C; xlInsideVertical?=?$0000000B; xlDiagonalDown?=?$00000005; xlDiagonalUp?=?$00000006; xlEdgeBottom?=?$00000009; xlEdgeLeft?=?$00000007; xlEdgeRight?=?$0000000A; xlEdgeTop?=?$00000008; xlContinuous?=?1; xlDash?=?-4115; xlDashDot?=?4; xlDashDotDot?=?5; xlDot?=?-4118; xlDouble?=?-4119; xlSlantDashDot?=?-4142; xlLineStyleNone?=?13;var?ExcelApp:?Variant;
begin
ExcelApp?:=?CreateOleObject('Excel.Application');//建立?Excel?聯系 ExcelApp.Visible?:=?True;?//顯示?excel?窗口 ExcelApp.WorkBooks.Open('d:\Demo.xls');?//打開指定的?excel?文件 //設置表格中指定單元格的上邊框 ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeTop].LineStyle?:=?xlDouble; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeTop].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeTop].Weight?:=?4; //設置表格中指定單元格的底邊框 ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeBottom].LineStyle?:=?xlDouble; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeBottom].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeBottom].Weight?:=?4; //設置表格中指定單元格的左邊框 ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeLeft].LineStyle?:=?xlDouble; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeLeft].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeLeft].Weight?:=?4; //設置表格中指定單元格的右邊框 ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeRight].LineStyle?:=?xlDouble; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeRight].Color?:=?clRed; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlEdgeRight].Weight?:=?4; //設置表格中間所有橫線 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; //設置表格中間所有縱線 ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlInsideVertical].LineStyle?:=?xlContinuous; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlInsideVertical].Color?:=?clBlue; ExcelApp.ActiveSheet.Range['A2:H7'].Borders[xlInsideVertical].Weight?:=?2;end;
運行效果截圖: