excel的問題,還請指教

Question

try      Msexcel:=createoleobject('Excel.Application');
      MsExcelWorkBook:=MsExcel.WorkBooks.add;
  except
      ShowMessage('無法啟動 Excel  !');
      abort;
  end;
      MsExcelWorkSheet:=MsExcel.WorkSheets.item[1];
      MsExcelWorkSheet.Columns['A'].ColumnsWidth := 5;
      MsExcelWorkSheet.Cells[IntToStr(i+1),'A'].Value :='報表產生時間:';
      MSexcel.visible :=true;無法調整寬度,是怎麼回事情阿,還請指教

Answer 1

MsExcelWorkSheet.Columns[i].ColumnsWidth 
中间的参数i应该是整数吧

Answer 2

z6:= excelworksheet1.Columns;
z6.Columns[1].ColumnWidth:=123;

Answer 3

ExcelWorksheet1.Range['A1','CC1'].EntireColumn.AutoFit;