Delphi XE2的Excel列自动调整

发布时间：2020-12-15 09:25:44 所属栏目：大数据来源：网络整理

导读：我正在将一些旧代码从Office 2000迁移到Office 2010,并且遇到了将Excel转换为Autofit Columns的问题正在运行的代码如下： for x := 1 to LV.Columns.Count do XLApp.Columns[x].EntireColumn.AutoFit; 其中XLApp是TExcelApplication组件当我查看VBA时,等效

我正在将一些旧代码从Office 2000迁移到Office 2010,并且遇到了将Excel转换为Autofit Columns的问题

正在运行的代码如下：

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]突出显示.代码完成不提供任何我可以看到的选择单个列的方式,无论是整数还是范围.

有什么建议？

解决方法

您拥有的代码将适用于后期绑定的COM.但是你说你正在使用早期绑定的COM.

对于早期绑定的COM,您需要使用以下内容：

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

我无法解释代码过去是如何工作的.也许从Excel类型库创建的导入单元以某种微妙的方式不同.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!