请教 ＶＢＡ转化为ＤＥＬＰＨＩ代码

Question

Sub fff()
Dim Rng As Range
    For Each Rng In Excel.Selection
        MsgBox "Row:" & Rng.Row & ";Col:" & Rng.Column
    NextEnd Sub

Answer 1

//上个帖子就告诉你了(还没结帖-_-!!!!!)
//再告诉你一次uses ActiveX;procedure TForm1.Button1Click(Sender: TObject);
begin
  ExcelApplication1.Disconnect;
  ExcelApplication1.Connect;
  ExcelApplication1.Visible[0] := True;
  ExcelApplication1.Workbooks.Add(EmptyParam, 0);
end;procedure TForm1.Button2Click(Sender: TObject);
var
  Enum: IEnumVariant;
  Selection: OleVariant;
  Application: OleVariant;
  rgVar: OleVariant;
  vFetched: Longword;
begin
  Application := ExcelApplication1.Application;
  Selection := Application.Selection;
  Enum := IUnknown(Selection._NewEnum) as IEnumVariant;
  while Enum.Next(1, rgVar, vFetched) = S_OK do
    ShowMessage(Format('Row:%s; Col:%s', [rgVar.Row, rgVar.Column]));
end;

Answer 2

我用的是delphi6, 编译时提示IEnumVariant;无定义