16,748
社区成员
发帖
与我相关
我的任务
分享
var
EX ,Ws: Variant;
fn: String;
i: integer;
begin
i:=1;
dlgOpen1.Title :='请选择Excel文件';
dlgOpen1.Filter := 'Excel表(*.xls)|*.xls';
dlgOpen1.DefaultExt := 'xls';
if dlgOpen1.Execute =True then
begin
Try
Try
fn := dlgOpen1.FileName;
EX := CreateOleObject('Excel.Application');
EX.Visible:=False;
Ws:=Ex.WorkBooks.Open(fn,3,false,1,'123');------------这里密码错误,如果密码是’111‘,则如何屏蔽
repeat
ShowMessage(Ws.ActiveSheet.Cells[i,1].Text );
Inc(i);
until Ws.ActiveSheet.Cells[i,1].Text ='' ;
except
EX.Quit;
ShowMessage('系统获取Excel的数据错误');
End;
finally
Ex.Quit;
End;
end
Else
exit;