Consult VBA code into Delphi code

fenlie123

Sub Count_Selection ()
Dim cell As Object
Dim count As Integer
count = 0
For Each cell In Selection
count = count + 1
Next cell
MsgBox count&"item (s) selected"
End Sub

lwolves

看不懂，不知道你是什么意思

Guderian

uses ActiveX;

procedure TForm1.Button1Click (Sender: TObject);
begin
  ExcelApplication1.Connect;
  ExcelApplication1.Workbooks.Add (EmptyParam, 0);
  ExcelApplication1.Visible [0]: = True;
  (ExcelApplication1.Worksheets.Item [1] as _Worksheet) .Range ['E1', 'E5']. Select;
end;

procedure TForm1.Button2Click (Sender: TObject);
var
  Enum: IEnumVariant;
  Selection: OleVariant;
  Application: OleVariant;
  Count: Integer;
  rgVar: OleVariant;
  vFetched: Longword;
begin
  Application: = ExcelApplication1.Application;
  Selection: = Application.Selection;
  Enum: = IUnknown (Selection._NewEnum) as IEnumVariant;
  Count: = 0;
  while Enum.Next (1, rgVar, vFetched) = S_OK do Inc (Count);
  ShowMessage (IntToStr (Count));
end;

fishead

May I askGuderian(expert outpatient cleaner
How to convert this code?
Thank you!
   For Each cell In Selection
        msgbox(cell.value)
   Next cell

Guderian

while Enum.Next(1, rgVar, vFetched) = S_OK do
  begin
    ShowMessage(rgVar);
    Inc(Count);
  end;