通过Delphi执行Excel vba代码[关闭]

Question

您好，我的问题是如何通过 Delphi 7 程序执行 Excel vba 代码？ 我在网上找到了一些文章，没有描述清楚。 其中之一是使用 OLE ： Article

如果您能给我答案的示例代码，我将不胜感激。 主要问题是我无法理解代码，我需要一些帮助。 该变量未声明，我不知道它不会起作用。 提前致谢

    unit Macro;

    interface

    uses
      Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
      Dialogs, ActnList, StdCtrls, Buttons, MSObjCtrls, ComObj, ActiveX;

    type
      TForm1 = class(TForm)
        ActionList1 : TActionList;
        btnMacro : TMSBitBtn;
        acMacro : TAction;
        procedure acMacroExecute(Sender : TObject);
      private
        { Private declarations }
      public
        { Public declarations }
      end;

    var
      Form1             : TForm1;

    implementation

    {$R *.dfm}

    procedure TForm1.acMacroExecute(Sender : TObject);
    var
      Excel             : OleVariant;
    begin
      Excel := CreateOleObject('Excel.Application');
      Excel.Workbooks.Open('C:\Documents and Settings\iordan.borisov\Desktop\data.xls');
      Excel.Run('PERSONAL.XLSB!MyMacro'); // <<--- Error here.
      Excel.Quit;

    end;
    initialization
      CoInitialize(nil);
    finalization
      CoUninitialize;

    end.

此代码引发运行时异常：

---

调试器异常通知

Project Project1.exe 引发异常类 EOleException，并带有消息“OLE 错误 800A03EC”。进程停止。使用 Step 或 Run 继续。

第 34 行

Answer 1

就这么简单：

uses
  ComObj;
....
var
  Excel: OleVariant;
....
Excel := CreateOleObject('Excel.Application');
Excel.Workbooks.Open('myworkbook.xls');
Excel.Run('MyMacro');
Excel.Quit;

确保您不要忘记调用 CoInitializeEx 来初始化 COM。