只是一個讀取Excel資料的程序：
procedure TForm1.ABC(p1: string);
var
v:variant;
i:integer;
begin
V:=CreateOleObject('Excel.Application');
V.WorkBooks.Open(p1);
MaxRow:=V.Worksheets.UsedRange.Rows.Count-1;
for i := 1 to 120 do
begin
Arr[i,1]:=DatetoStr(V.Cells[MaxRow,1]);
Arr[i,2]:=inttostr(i);
Arr[i,3]:=floattostr(V.Cells[MaxRow,5]);
Arr[i,4]:=floattostr(V.Cells[MaxRow,14]);
MaxRow:=MaxRow-1;
end;
V.WorkBooks.Close;
end;
uj5u.com熱心網友回復：
根據百度的提示啟用了DEP，也不行。允許遠程協助也是打開的。
uj5u.com熱心網友回復：
關注，Office2010版也遇到同樣的問題，換了2007\2013版沒有出現這個問題了。轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/69261.html
標籤：語言基礎/算法/系統設計