procedure Tcxresult_Form.ButtonClick(Sender: TObject);
var
  i,j : integer;
  xls : OleVariant;
begin
     xls:=CreateOleObject('Excel.Application');
     xls.WorkBooks.add;
     xls.visible:=true;
     xls.cells(1,1):='';
     xls.WorkSheets[1].Columns[1].ColumnsWidth := 5;
     xls.cells(1,2):=label1.Caption;
     .........
end;执行xls.WorkSheets[1].Columns[1].ColumnsWidth := 5;中在行中出现错误:
..method 'columnsWidth' not supported by automation object .process stopped.该怎么办,

解决方案 »

  1.   

    xls.WorkSheets[1].Columns.Columns[1].ColumnsWidth := 5;
      

  2.   

    我只能说两点,因为我一直找不到关于Offiece自动化组件的学习资料,包括帮助。但是原来接触过这方面的程序。
    1.你的错误不像前面的两位说的那样。是因为根本没有那个属性。
    2.如果别人告诉你有设置列宽的方法后,你要注意赋值时使用''符号,将数值括起来。
      

  3.   

    问题已经解决,谢谢各位,是这样的,应放在赋值之前,原因未知,
    xls.ActiveSheet.Columns[1].ColumnWidth := 25;