如何通過Delphi程序給Excel表格設置表格線

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;

運行效果截圖：

上一篇:《掌控》—斯坦福大學最受歡迎的人生管理課

下一篇:黔南有哪些旅遊景點黔南的旅遊景點在哪裏？