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

Question

关于操作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的单元格范围设置一个大的边框 请给出详细代码,感激万分!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Answer 1

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

Answer 2

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