各位好, 想請教有關在Delphi 6 TExcelWorkSheet 此component產生Excel檔案， 若是針對產生出來的欄位想要設定[最適欄寬]此功能，不知從何下手， 不知道是否有人已經對此有研究，可以提供解法，謝謝！ Ps. 使用CreateOleObject此法的設定欄寬無法適用於此component的設定 Ammon

------
ammon .^_^.

引言: 各位好, 想請教有關在Delphi 6 TExcelWorkSheet 此component產生Excel檔案， 若是針對產生出來的欄位想要設定[最適欄寬]此功能，不知從何下手， 不知道是否有人已經對此有研究，可以提供解法，謝謝！ Ps. 使用CreateOleObject此法的設定欄寬無法適用於此component的設定 Ammon

可以試試以下方法看看 ExcelWorksheet1.Range['A1','A1'].AutoFit := TRUE; @@~~飛翔在天際的精靈~~@@

你可以參考Delphi & Excel(http://delphi.ktop.com.tw/forum.asp?FORUM_ID=943) 然後增加一個Button其caption為最適欄寬 在onclickevent上加入 Button4Click(nil); //先select (ExcelApplication1.Selection[Lcid] as Range).Columns.AutoFit; 你也可以改改成你需要的範圍(range),離如 ExcelWorksheet1.Range[_Cell1,_Cell2].columns.autofit; 發表人 - delphiwww 於 2002/11/18 14:11:06

Try ExcelWorksheet.Cells.AutoFit

引言: Try ExcelWorksheet.Cells.AutoFit

感謝各位的回覆，不過經過測試，三位的方法皆不行。 在complier時，會出現 left side cannot be assigned to 此error message Ammon

引言:感謝各位的回覆，不過經過測試，三位的方法皆不行。 在complier時，會出現 left side cannot be assigned to 此error message Ammon

Use AutoFit as a procedure and don't assign any value to it.

引言:

引言:感謝各位的回覆，不過經過測試，三位的方法皆不行。 在complier時，會出現 left side cannot be assigned to 此error message Ammon

Use AutoFit as a procedure and don't assign any value to it.

抱歉！ 一時沒注意到，現在測試發現使用方法應該如同delphiwww所寫一樣才是 感謝各位的協助 ~~ Ammon