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

[Qcj]

我把数据库中的数据读到Excel中，但不知该如何通过Delphi程序给Excel表格设置表格线、背景颜色等？

[samcrm]

关注

[torent]

参考 Office VBA help

[wjt]

关注

[yxwhrz]

若想知道在MS OFFICE中如何做某件事，最简单的方法不过利用“工具|宏”菜单中的录制新宏。录制时只做您想要做的一件事，然后停止录制。选择同一菜单中的宏，选同一宏名，然后单击“编辑”按钮，打开VB编辑器，就可看到调用的函数的。这样，比直接阅读OFFICE中自带的VB FOR APPLICATION帮助来得快。这是个最简单的方法了。

[alaclp]

有是例吗？ [e-mail]

[深山老柳]

楼上的方法我试过了，但是这是在vb下百试百灵, 但请大家注意这是在DELPHI 环境下
使用DELPHI中SERVER下的控件与VB下是不一样的， 也许是我太笨了， 但是我就在能把QUERY中的数据导入EXCEL中， 但是不知怎么对生成的EXCEL进行更深的控制。如画边框，行的宽度，行列的合并.......................
如有哪位知道并告诉我的，我一定感激不尽。……

[深山老柳]

哈哈， 我回来了。
刚刚在别的地方找到了这个问题的解决方法，现公布如下：（注意：这是转载的但我也有苦劳）
1、加边框
excelworksheet1.range['a1','a1'].borders[i].linestyle:=1; i是参数，代表单元格的四边以及里面的斜线
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )
2、控制单元格
excelworksheet1.Rows.Range_['a1','a1'].Font.Size:='10'; //字体大小
excelworksheet1.Rows.Range_['a1','a1'].Font.Name:='Garamond'; //字体名称
excelworksheet1.Rows.Range_['a1','a1'].Font.Color:=clred; //字体颜色
excelworksheet1.Rows.Range_['a1','a1'].Font.bold:=true; //字体加粗
excelworksheet1.Rows.Range_['a1','a1'].HorizontalAlignment:= xlCenter; //文字居中
excelworksheet1.Rows.Range_['a1','a1'].VerticalAlignment:= xlBottom; //文字向下对齐
excelworksheet1.Rows.Range_['a1','a1'].WrapText:=True; //自动换行
excelworksheet1.Rows.Range_['a1','a1'].Orientation:= 0; //方向为0度
excelworksheet1.Rows.Range_['a1','a1'].AddIndent:= False;//不增加缩进
excelworksheet1.Rows.Range_['a1','a1'].ShrinkToFit:= False;//不缩小字体填充
excelworksheet1.Rows.Range_['a1','a1'].MergeCells:= False;//不合并单元格