急！！！delphi控制EXCEL设置列宽出问题？？

Question

procedure Ttime_i.FlatButton1Click(Sender: TObject);
var
  eclApp,workbook,range:variant;
  i:integer;
begin
    try
     eclApp := createoleobject('excel.application');
     workbook := createoleobject('excel.sheet');
    except
     Application.MessageBox('你的电脑中未正确安装Microsoft Excel！','异常错误',16);
     exit;
    end;
    try
      //设置隐藏工具条
      eclApp.application.CommandBars['Standard'].Visible:=false;
      eclApp.application.CommandBars['Formatting'].Visible:=false;
      eclApp.application.CommandBars['Reviewing'].Visible:=false;      eclapp.visible := true;
      workbook := eclapp.workbooks.add;
      workbook.sheets[1].name:='库房盘存记录';
      //设置列宽
      eclApp.ActiveSheet.Columns[1].ColumnsWidth := 5;-------------------------->运行出错如下：      range:=eclapp.range[eclapp.cells[1,1],eclapp.cells[1,26]];//选定表格
      range.select;
      range.merge; //合并单元格
      Range.HorizontalAlignment:= xlCenter;
      //置边框线可见
      range.font.size:=18; //改变表格内文本字体大小
      range.font.Bold:= True; //字体加粗
      eclapp.cells[1,1]:='库房盘存记录';
              。
                。
                。运行错误提示：
...raised exception class EoleError with message 'method' columnwidth' not supported by automation object' please...什么问题？？？？？？？？？？？？？？？？？

Answer 1

eclApp.ActiveSheet.Columns[1].ColumnWidth := 5  //ColumnsWidth多了个s