Procedure TForm1. ABC (p1: string);
Var
V: the variant;
I: integer;
The begin
V:=CreateOleObject (' Excel. Application);
V.W orkBooks. Open (p1);
MaxRow:=V.W orksheets. UsedRange. Rows. The Count - 1;
For I:=1 to 120 do
The begin
Arr (I, 1) :=DatetoStr (V.C ells [MaxRow, 1));
Arr: [I, 2]=inttostr (I);
Arr (I, 3] :=floattostr (V.C ells [MaxRow, 5));
Arr (I, 4] :=floattostr (V.C ells [MaxRow, 14]).
MaxRow:=MaxRow - 1;
end;
V.W orkBooks. Close;
end;
CodePudding user response:
According to the baidu suggest you enable DEP, also not line,Allow remote assistance is also open,
CodePudding user response:
Attention, Office2010 version also encountered the same problem, in the 2007\2013 edition did not appear this problem,