delphi 7 中opendialog 怎么设置为 打开指定文件
补充:我的意思是说 我用一个按钮事件来打开 e盘的abc文件夹下的abc.xls 文件,我应该怎样做呢?
追问:那用什么打开啊?
补充:我的意思是说 我用一个按钮事件来打开 e盘的abc文件夹下的abc.xls 文件,我应该怎样做呢?
追问:那用什么打开啊?
答案:加入Opendialog控件之后,在控件的属性里面找到Filter属性,然后点击右边的...按钮,
在FILE name列输入 “WORD 文件",然后再右边输入 *.doc
这样就可以只打开DOC后缀的WORD文件了!
可以加QQ45185852 交流DELPHI
其他:打开指定类型文件:Filter:=' (这里写任意说明)|*.txt';
打开指定文件:FileName:='指定文件名'; opendialog中的filter属性、 设置自己所要打开的文件格式 .. 工具,选项,安全性,个人信息选项下面,把勾选去掉 。如果是2007的话就点击工作簿上的office徽标-Excel选项-信任中心-个人信息选项,文档特定设置下的“保存时从文件属性中删除个人信息(R)”前面的“√”取消!
用Unzip控件 解压后遍历文件夹 获得文件名
--------------------------
UnZip.ArchiveFile :=压缩包文件名;
UnZip.FileSpec.Clear( );
UnZip.Passwords.Add('密码');
UnZip.FileSpec.Add( '*.*' );
UnZip.ExtractDir := 要加压到的文件夹路径;
UnZip.Extract;
OpenDialog1.Filter:=' *.doc|*.txt'; \\指定要打开文件的类型
OpenDialog1.InitialDir:='\Documents and Settings\Administrator\桌面\'; \\指定要打开文件的路径
OpenDialog1.filename :='集团办公电话手册更新.doc'; \\指定的文件名称
按照你的要求的话根本不需要opendialog,opendialog必然会显示打开文件对话框的。
用 ExcelApplication1: TExcelApplication;这个控件最适合你的要求了
procedure TForm1.Button1Click(Sender: TObject);
begin
ExcelApplication1.Connect;
ExcelApplication1.Workbooks.Open ('e:\abc.xls',
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,
EmptyParam,EmptyParam,EmptyParam,EmptyParam,0);
ExcelApplication1.Visible[0]:=True;
end;
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
ExcelApplication1.Quit;
ExcelApplication1.Disconnect;
end; 你可以不用opendialog ,如果你的文件就永都是E:\abc\bac.xls,那就直接指向那个文件就行了,不需要用到opendialog 控件
上一个:delphi创建子窗口
下一个:delphi高手也难住了的代码,求解释