刚接触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~~错误!
希望大家帮助解决,急!!!