如何通过Delphi程序给Excel表格设置表格线

Excel 作为常用的办公软件，最常见的应用就是制作各种电子表格，同样，使用 delphi 语言编写出 excel 的表格也是编程人员常见的任务。

如何通过Delphi程序给Excel表格设置表格线，在完成这个任务之前，需要补充了解一些必需的资料：

在 Excel 里的，能够进行表格线设置的操作对象是 Border 对象：

这个对象具有以下成员：

Borders 具有以下边框属性：

各边框代表值如下：

各边框线条的样式定义：

知道了上面的知识之后，编写代码就比较简单了，以下是示例的代码：

1

2

3

4

5

6

7

8

9

10

11

12

13

14

15

16

17

18

19

20

21

22

23

24

25

26

27

28

29

30

31

32

33

34

35

36

37

38

39

40

41

42

43

44

45

46

47

48

49

50

51

52

53

54

55

56

57

58

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;

运行效果截图：