请问如何控制Excel某一列的宽度

Question

xlssheet.cells[3,1]:='              检查部位                ';
   xlssheet.cells[3,1].font.name:='黑体';
   xlssheet.cells[3,1].font.size:=20;
  我可以控制字体，大小 ，请问如何控制Excel某一列的宽度

Answer 1

ExcelApp.ActiveSheet.Columns[1].ColumnsWidth := 5

Answer 2

我没有用Texcelapplication控件，完全是用对象自动生成的，请问如何处理procedure TFrmcolligate.btnexcelClick(Sender: TObject);
var
  i,j:integer;
  xlsapp,xlssheet,xlswbk:variant;
begin
   if varisempty(xlsapp) then
   xlsapp:=Createoleobject('excel.application');
   xlsapp.workbooks.add;
   xlssheet:=xlsapp.worksheets['sheet1'];
   xlssheet.cells[1,1]:='';
   xlssheet.cells[1,1]:='检查部位';
   xlssheet.cells[1,4].font.name:='黑体';
   xlssheet.cells[1,4].font.size:=20;

Answer 3

To : mengjj(世界在变) ,sdqhlyf(彩波) 
  不可以实现，会出现下列错误：
 Method 'ColumnsWidth' not supported by automation object