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

Qcj 2000-08-16 10:59:00
我把数据库中的数据读到Excel中,但不知该如何通过Delphi程序给Excel表格设置表格线、背景颜色等?
...全文
588 7 打赏 收藏 转发到动态 举报
写回复
用AI写文章
7 条回复
切换为时间正序
请发表友善的回复…
发表回复
深山老柳 2001-02-23
  • 打赏
  • 举报
回复
哈哈, 我回来了。
刚刚在别的地方找到了这个问题的解决方法,现公布如下:(注意:这是转载的但我也有苦劳)
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;//不合并单元格
深山老柳 2001-02-23
  • 打赏
  • 举报
回复
楼上的方法我试过了,但是这是在vb下百试百灵, 但请大家注意这是在DELPHI 环境下
使用DELPHI中SERVER下的控件与VB下是不一样的, 也许是我太笨了, 但是我就在能把QUERY中的数据导入EXCEL中, 但是不知怎么对生成的EXCEL进行更深的控制。如画边框,行的宽度,行列的合并.......................
如有哪位知道并告诉我的,我一定感激不尽。……
alaclp 2001-02-18
  • 打赏
  • 举报
回复
有是例吗? alaclp@263.net
yxwhrz 2000-08-31
  • 打赏
  • 举报
回复
若想知道在MS OFFICE中如何做某件事,最简单的方法不过利用“工具|宏”菜单中的录制新宏。录制时只做您想要做的一件事,然后停止录制。选择同一菜单中的宏,选同一宏名,然后单击“编辑”按钮,打开VB编辑器,就可看到调用的函数的。这样,比直接阅读OFFICE中自带的VB FOR APPLICATION帮助来得快。这是个最简单的方法了。
wjt 2000-08-18
  • 打赏
  • 举报
回复
关注
torent 2000-08-17
  • 打赏
  • 举报
回复
参考 Office VBA help
samcrm 2000-08-16
  • 打赏
  • 举报
回复
关注

5,379

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧