delphi 導出excel邊框樣式

delphi 樣式常量值 
xlNone = $FFFFEFD2;
xlAutomatic = $FFFFEFF7;
xlSolid = $00000001;
xlInsideHorizontal = $0000000C;
xlInsideVertical = $0000000B;
xlDiagonalDown = $00000005;
xlDiagonalUp = $00000006;
xlEdgeBottom = $00000009;
xlEdgeLeft = $00000007;
xlEdgeRight = $0000000A;
xlEdgeTop = $00000008;
xlContinuous = $00000001;
xlDash = $FFFFEFED;
xlDashDot = $00000004;
xlDashDotDot = $00000005;
xlDot = $FFFFEFEA;
xlDouble = $FFFFEFE9;
xlSlantDashDot = $0000000D;
xlLineStyleNone = $FFFFEFD2;
xlHairline = $00000001;
xlMedium = $FFFFEFD6;
xlThick = $00000004;
xlThin = $00000002;
xlCenter = $FFFFEFF4;
xlBottom = $FFFFEFF5;
xlLeft = $FFFFEFDD;
xlRight = $FFFFEFC8;
xlTop = $FFFFEFC0; 

有時候設置邊框特殊樣式就會用到上面這些值 如  
Excelid.worksheets[1].range['A1','M1'].borders[1].linestyle:=1;
Excelid.worksheets[1].range['A1','M1'].borders[2].linestyle:=1;
Excelid.worksheets[1].range['A1','M1'].borders[3].linestyle:=1;
Excelid.worksheets[1].range['A1','M1'].borders[3].Weight:=  $FFFFEFD6; ;
Excelid.worksheets[1].range['A1','M1'].borders[4].linestyle:=1;

//borders常數 1-左    2-右   3-頂    4-底   5-斜( \ )  6-斜( / )
//Weight 邊框格式，具體可以通過excel 宏錄製查看具體樣式值

Q羣 Delphi Home 235236282，QQ:359985051/183902633 

誠邀delphi 愛好者加入，一起學習，研究、探討。