來自Delphi XE2的Excel列自動調整

Question

我正在將一些較舊的代碼從Office 2000遷移到Office 2010，但遇到了將Excel放入自動調整列的問題

起作用的代碼如下：

for x := 1 to LV.Columns.Count do
  XLApp.Columns[x].EntireColumn.AutoFit;

其中XLApp是TExcelApplication組件

當我查看VBA時，等效代碼應為

 Columns("A:A").EntireColumn.AutoFit

對我來說，更改代碼很容易，以便范圍與VBA匹配，但這似乎不是問題。 編譯器返回的錯誤是

Class does not have a default property

並且[x]高亮顯示。 我無法看到代碼完成提供了選擇單個列（整數或范圍）的任何方式。

有什么建議么？

Answer 1

您擁有的代碼將適用於后期綁定的COM。 但是您聲明您正在使用早期綁定的COM。

對於早期綁定的COM，您需要使用以下代碼：

ExcelApp.Range['A1','A1'].EntireColumn.AutoFit;

我無法解釋代碼在過去的工作方式。 也許從Excel類型庫創建的導入單位在某些細微的方面有所不同。