我有一个EXCEL忘记了密码，现在用VFP尝试打开，如何让密码输错时不报错？
oe=creat("excel.application")
oe.visible=.f.
oe.displayalerts=.f.
use zm  &&将字典存于表zm中，只有一个字段zi
for i=1 to recc()
sele zi from zm into array m wher recn()=i
oe.workbooks.open("d:\111.xls",,,,m)
?oe.cells(1,1).value
?m
endfor
oe.workbooks.close
oe.quit

CLEAR
oe = creat("excel.application")
use zm  &&将字典存于表zm中，只有一个字段zi
On error *
SCAN
    m = ALLTRIM(zi)
    oe.workbooks.open("D:\111.xls",,,,m)
    ?oe.cells(1,1).value
    ?m
ENDSCAN
oe.workbooks.close
oe.quit
On error

心安理得