关于OLE(Excel)问题,急需求助!!!

_jfeng 2003-08-09 02:19:20
请教各位大侠,本人正在做一数据库,设计到打印问题,我已将表里的数据在程序中成功保存到了Excel。但是在控制每个数据字段的数据边框时,通过什么函数能让需要的单元格的边框显示呢?望各位高手能助我一臂之力。
...全文
149 10 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
10 条回复
切换为时间正序
请发表友善的回复…
发表回复
_jfeng 2003-08-11
  • 打赏
  • 举报
回复
有没有直接简单的书籍呀什么的?
lvjack 2003-08-11
  • 打赏
  • 举报
回复
录制一个宏
看看VBA的代码改改
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
duduwolf 2003-08-11
  • 打赏
  • 举报
回复
6) 给单元格赋值:
ExcelApp.Cells[1,4].Value := '第一行第四列';

7) 设置指定列的宽度(单位:字符个数),以第一列为例:
ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5;

8) 设置指定行的高度(单位:磅)(1磅=0.035厘米),以第二行为例:
ExcelApp.ActiveSheet.Rows[2].RowHeight := 1/0.035; // 1厘米

9) 在第8行之前插入分页符:
ExcelApp.WorkSheets[1].Rows[8].PageBreak := 1;

10) 在第8列之前删除分页符:
ExcelApp.ActiveSheet.Columns[4].PageBreak := 0;

11) 指定边框线宽度:
ExcelApp.ActiveSheet.Range[ 'B3:D4' ].Borders[2].Weight := 3;
1-左 2-右 3-顶 4-底 5-斜( \ ) 6-斜( / )

12) 清除第一行第四列单元格公式:
ExcelApp.ActiveSheet.Cells[1,4].ClearContents;

13) 设置第一行字体属性:
ExcelApp.ActiveSheet.Rows[1].Font.Name := '隶书';
ExcelApp.ActiveSheet.Rows[1].Font.Color := clBlue;
ExcelApp.ActiveSheet.Rows[1].Font.Bold := True;
ExcelApp.ActiveSheet.Rows[1].Font.UnderLine := True;

14) 进行页面设置:

a.页眉:
ExcelApp.ActiveSheet.PageSetup.CenterHeader := '报表演示';
b.页脚:
ExcelApp.ActiveSheet.PageSetup.CenterFooter := '第&P页';
c.页眉到顶端边距2cm:
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 2/0.035;
d.页脚到底端边距3cm:
ExcelApp.ActiveSheet.PageSetup.HeaderMargin := 3/0.035;
e.顶边距2cm:
ExcelApp.ActiveSheet.PageSetup.TopMargin := 2/0.035;
f.底边距2cm:
ExcelApp.ActiveSheet.PageSetup.BottomMargin := 2/0.035;
g.左边距2cm:
ExcelApp.ActiveSheet.PageSetup.LeftMargin := 2/0.035;
h.右边距2cm:
ExcelApp.ActiveSheet.PageSetup.RightMargin := 2/0.035;
i.页面水平居中:
ExcelApp.ActiveSheet.PageSetup.CenterHorizontally := 2/0.035;
j.页面垂直居中:
ExcelApp.ActiveSheet.PageSetup.CenterVertically := 2/0.035;
k.打印单元格网线:
ExcelApp.ActiveSheet.PageSetup.PrintGridLines := True;
_jfeng 2003-08-11
  • 打赏
  • 举报
回复
to: duduwolf(嘟嘟狼) ,希望能给小弟一个联系,以便更好向你学习学习,
我的邮箱是:mildgibson.student@sina.com 。
_jfeng 2003-08-11
  • 打赏
  • 举报
回复
感谢大家的支持与帮助,尤其谢谢: duduwolf(嘟嘟狼) !!人人有分!
wyz52126 2003-08-09
  • 打赏
  • 举报
回复
表里的数据在程序中成功保存到了Excel ???

能给小弟也看看、分享一下吗?

是怎么实现的啊?转到Excel???

小弟邮箱:wyz52126@sohu.com
ch_builder 2003-08-09
  • 打赏
  • 举报
回复
在EXCEL中做表,用她自身的单元格设置不就行吗?
free1949 2003-08-09
  • 打赏
  • 举报
回复
查看VBA代码,改之
_jfeng 2003-08-09
  • 打赏
  • 举报
回复
要是大家知道与它相关的书籍或资料也可!
_jfeng 2003-08-09
  • 打赏
  • 举报
回复
to ch_builder(春辉)

我个人觉得在程序里实现会比较好些,不然就不够自动化了。

1,178

社区成员

发帖
与我相关
我的任务
社区描述
C++ Builder 数据库及相关技术
社区管理员
  • 数据库及相关技术社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

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