Excel 插件 - Delphi 相当于 VB

Question

我正在将一个 Excel 插件从 Visual VB 移植到 Delphi 2006。它的大部分工作正常，但我被困在这两条 VB 行上：

oXL.Selection.QueryTable
oXL.Selection <> ""

其中 oXL 被定义为 Excel.Application。

在 Delphi ExcelApplication.Selection 中需要索引，但在 VB 中不需要。我在 C# 中也找不到类似的东西。我尝试过 ExcelApplication.ActiveCell，只要存在现有查询，它就可以工作，否则 Excel 会崩溃。

有谁知道这对 Delphi 或 C# 意味着什么？

另外，如果 oXL.Selection 是一个接口，那么如何执行 oXL.Selection <> “”？

谢谢。

Answer 1

当使用接口从 Delphi 自动化 Excel 时，许多方法都采用 LCID。您可以使用 LOCALE_USER_DEFAULT 来实现此目的。

var
  oxlSelection: ExcelRange;

ExcelApplication.ActiveCell.QueryTable;
if Supports(fExcelApplication.Selection[LOCALE_USER_DEFAULT], ExcelRange, oxlSelection)
  and (VarToStr(oxlSelection.Text) <> '') then
begin
  //do something
end;

Answer 2

不用担心，我忘记了您可以将应用程序 IDispatch 接口强制转换为 OleVariant，然后调用该方法。

但我所做的只是以下

try
  ExcelApplication.ActiveCell.QueryTable.Refresh(False);
except
end;

这似乎是使其工作而不崩溃 Excel 的唯一方法。

Answer 3

这个问题我已经遇到过很多次了，解决办法很简单。
始终使用 0 作为 localeID，一切都会正常工作。
这将使 Excel 填充其默认区域设置。

ExcelApplication.ActiveCell.QueryTable;
if OleVariant(ExcelApplication.Selection[0]).Value <> '' then .....

您可以使用变体，然后就不会遇到此要求，但在这种情况下：

• 您的代码运行速度会变慢（所有变体魔法都需要时间），
• 您将不会获得有关 ExcelApplication 方法和属性的上下文帮助。

请注意，selection 与 cells 一样返回一个 IDispatch，您必须将其转换为 Olevariant，才能使用它。
在 VBA 中也会发生同样烦人的事情，只不过强制转换是隐式的。