>> 我想在我資料轉excel時,當超過預設寬度時,cell 能自動變寬

如果您是用 OLE 方式的話, 等您資料轉完之後...

  for iCol := 1 to 10 do 
  begin
    MsExcel.WorkSheets[1].Columns[iCol].AutoFit;
    MsExcel.WorkSheets[1].Columns[iCol].ColumnWidth :=
    MsExcel.WorkSheets[1].Columns[iCol].ColumnWidth + 3;
  end;

  --> 把第1欄到第10欄設定為最適欄寬後再加3點

    Source: geocities.com/huanlin_tsai/faq

               ( geocities.com/huanlin_tsai)