引言: 要怎麼才能設定Excel文件Column的寬度為自動調整? 也就是說會隨著文字的長度，自動調整寬度，謝謝! < face="Verdana, Arial, Helvetica">

NitRate2 你好:
(1)請參考以下的範例程式碼 (OLE Automation)
   // >>> >
    < src="http://delphi.ktop.com.tw/loadfile.php?TOPICID=10003806&CC=223734"> -- Enjoy Researching & Developing --
        

NitRate2：與包子版大差不多，但還是有些許不一樣！
請參考！
#include "comobj.hpp"      Variant FExcel;
  Variant FWorkBooks;
  Variant FWorkBook;
  Variant FWorkSheet;
  Variant FColumns;
  Variant FCells;
  Variant FCell;
  int Column_=0;
  Screen->Cursor = crHourGlass;
  try  {
    FExcel = CreateOleObject("Excel.Application");
    FExcel.OlePropertySet("Visible",false); // false:不顯示Excel，true:反之
    FWorkBooks = FExcel.OlePropertyGet("Workbooks");
    FWorkBooks.OleFunction("Add",1);
    FWorkBook = FWorkBooks.OlePropertyGet("Item",1);
    FWorkSheet = FWorkBook.OlePropertyGet("Sheets",1);
    // 新增欄位
    FCells = FWorkSheet.OlePropertyGet("Cells");
    FCell = FCells.OlePropertyGet("Cells",1,1); // ("Cells",Row,Column)
    FCell.OlePropertySet("Value","1234");
    Column_ =1; // 每增加一次Column，Column_計數加一。只算一次！
    .......
    .......
    Application->ProcessMessages();
    //調整欄寬，依文字的長度，自動調整寬度
    Variant ColumnLen;
    for (int i=0;i < Column_;i  )
    {
      FColumns = FWorkSheet.OlePropertyGet("Columns",i 1);
      FColumns.OleProcedure("AutoFit");
      ColumnLen = FColumns.OlePropertyGet("ColumnWidth");
      FColumns.OlePropertySet("ColumnWidth",ColumnLen 1);
    }        FExcel.OlePropertySet("DisplayAlerts",false);
    FWorkBook.OleProcedure("SaveAs",FileName);  // FileName:欲存檔的檔名
    FExcel.OleFunction("Quit");
  }
  catch (...)  {
    FExcel.OlePropertySet("DisplayAlerts",false);
    FExcel.OleFunction("Quit");
  }
  FExcel = Unassigned;
  FWorkBooks = Unassigned;
  FWorkBook = Unassigned;
  FWorkSheet = Unassigned;
  FCells = Unassigned;
  FCell = Unassigned;
  FColumns = Unassigned;
  Screen->Cursor = crDefault;