刚接触SERVERS面板上的东东,看了一些代码,还是不能理解,设置单元格边框的问题就是解决不了,望大家帮助!
代码如下:excelapplication1.Connect;
excelapplication1.Workbooks.Open(getcurrentdir+'\1.xlt',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,0,0);
excelapplication1.Visible[0]:=true;
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Sheets[1] as _worksheet);
excelworksheet1.Cells.Item[6,1]:='1';
excelworksheet1.Cells.Item[6,2]:='1';
excelworksheet1.Cells.Item[6,3]:='1';
excelworksheet1.Cells.Item[6,4]:='1';
excelworksheet1.Cells.Item[6,5]:='1';
excelworksheet1.Cells.Item[6,6]:='1';
excelworksheet1.Cells.Item[6,7]:='1';
excelworksheet1.Cells.Item[6,8]:='1';
//excelworksheet1.Range[excelworksheet1.Cells[6,1],excelworksheet1.Cells[6,8]].borders[2].Weight:=3;
最后一句,想把插入数据的单元格都加个边框,要怎么写呢,上面这种写法运行起来就是
[error]unit1.pas(48):class does not have a default property~~错误!
希望大家帮助解决,急!!!
代码如下:excelapplication1.Connect;
excelapplication1.Workbooks.Open(getcurrentdir+'\1.xlt',EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,EmptyParam,0,0,0);
excelapplication1.Visible[0]:=true;
excelworkbook1.ConnectTo(excelapplication1.Workbooks[1]);
excelworksheet1.ConnectTo(excelworkbook1.Sheets[1] as _worksheet);
excelworksheet1.Cells.Item[6,1]:='1';
excelworksheet1.Cells.Item[6,2]:='1';
excelworksheet1.Cells.Item[6,3]:='1';
excelworksheet1.Cells.Item[6,4]:='1';
excelworksheet1.Cells.Item[6,5]:='1';
excelworksheet1.Cells.Item[6,6]:='1';
excelworksheet1.Cells.Item[6,7]:='1';
excelworksheet1.Cells.Item[6,8]:='1';
//excelworksheet1.Range[excelworksheet1.Cells[6,1],excelworksheet1.Cells[6,8]].borders[2].Weight:=3;
最后一句,想把插入数据的单元格都加个边框,要怎么写呢,上面这种写法运行起来就是
[error]unit1.pas(48):class does not have a default property~~错误!
希望大家帮助解决,急!!!
解决方案 »
- 怎樣判斷文本框輸入的是hh:mm:ss 格式??解決,馬上散分,結貼。
- 对epson lq1600内的字库选择字体?
- 我想知道我到底存了多少,怎么得到啊??
- 用ADO插入数据库SQL SERVER 2000问题
- UDP如果服务器有防火墙,有什么办法可以让客户端连上去.
- 初学者求学习代码
- 编写ado连结组件,用于asp中的问题 (附源码) ? 高手帮解决一下
- MDI子窗口怎么关闭?
- SQL2000Server管理状态下,如何更改库名,复制库中,复制表,为什么复制粘贴都不成?
- 请问高手,一个文档和数据库的问题
- 兄弟们救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!!!!!救命啦!!!!
- 请问如何用ScriptControl来计算表达式?
excelworksheet1.Range['c1','c8'].borders[2].Weight:=3;
excelworksheet1.Range['c1','c8'].borders[3].Weight:=3;
excelworksheet1.Range['c1','c8'].borders[4].Weight:=3;