关于操作excel2000的问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[autocar]

关于操作excel2000的问题!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

excel:= CreateOleObject('Excel.Application');


excel.Visible:=false;


excel.Workbooks.Add;


excel.Workbooks[1].WorkSheets[1].Name := 'myexcel';


Sheet:= excel.Workbooks[1].WorkSheets['myexcel'];


在上面代码中创建了一 个sheet


请问如何在这个sheet的一个区域的单元格范围设置边框,边框样式?????????


例如在a1到d4的单元格范围设置一个大的边框

请给出详细代码,感激万分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

[Jackeystone]

range06:=sheet.range['C'+inttostr(j)+':E'+inttostr(j)];
range06.board.line=double;
详细的要看delhi本身的complete code功能，它会为你引导要写的下一个属性，但向你以上的写法，complete code功能就会没有了，所以使用一下excelapplication, excelworkbook, excelworksheet控件，这些控件就会有complete code功能，方便多了。

[nhdj]

我靠，这方面俺的经验最多了，不过好像没有分？

[nhdj]

range1,range2:variant;

range1:=sheet.cells[3,1];//假设range1就是你想要的边框格式
range2:=sheet.cells[5,1];
range2.borders.linestyle:=range1.borders.linestyle;//边框
range2.columns.interior.colorindex:=range1.columns.interior.colorindex;//颜色

str:='C8:D8';
range1:=sheet.range[str];
range1.mergecells:=true; //合并单元格

有些东西不知道怎么出来的就去看看vba