有个EXCEL文件带有密码123（自己设置，为了EXCEL文件保密），请问如何用DELPHI代码打开该文件?请高手指点
有个EXCEL文件带有密码123（自己设置，为了EXCEL文件保密），请问如何用DELPHI代码打开该文件?请高手指点。谢谢！ 问题点数：20、回复次数：1Top
1 楼xierenxixi（xieren）回复于 2005-11-14 10:21:38 得分 20
word有密码打开如下，excel应该一样的，改点就行了
function dkword(wordapp:Twordapplication;worddoc:Tworddocument;doc_file,CfCversions1,rd1,AddtoRctFiles1,PswDocument1,
PswTemplate1,wpswdocument1,
wpswtemplate1,oformat1,ovisible1,
orevert1:olevariant):boolean; //´ò¿ªword
var
ovisible,DocInx,OFileName,Cfcversions,Oreadonly,AddToRctFiles,PswDocument,
PswTemplate,ORevert,WPswDocument,WpswTemplate,OFormat:olevariant;
begin
try
DocInx:=1;
oFileName:=Doc_file; //打开的文件名
oreadonly:=rd1; //是否可读写
CfCversions:=CfCversions1; //是否显示非doc文档时的提示
AddtoRctFiles:=AddtoRctFiles1; //
PswDocument:=PswDocument1; //打开此文档需要的密码
PswTemplate:=PswTemplate1; //´打开此模板时需要的密码
Orevert:=Orevert1;
wpswDocument:=wpswDocument1; //保存此文档需要的密码
Wpswtemplate:=Wpswtemplate1; //保存此模板时的密码 oformat:=wdOpenFormatAuto; // ´
ovisible:=ovisible1
wordapp.Documents.open(ofilename,cfcversions,oreadonly,Addtorctfiles,
PswDOcument,Pswtemplate,orevert,wpswdocument,
wpswtemplate,oformat,emptyparam,ovisible);
worddoc.ConnectTo(wordapp.Documents.Item(docInx));
result:=true;
except
result:=false;
end;
end;Top
