delphi 7 中opendialog 怎么设置为 打开指定文件
我的意思是说我用一个按钮事件来打开e盘的abc文件夹下的abc.xls文件,我应该怎样做呢?...
我的意思是说 我用一个按钮事件来打开 e盘的abc文件夹下的abc.xls 文件,我应该怎样做呢?
展开
7个回答
展开全部
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;
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;
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
2011-09-24
展开全部
工具,选项,安全性,个人信息选项下面,把勾选去掉 。如果是2007的话就点击工作簿上的office徽标-Excel选项-信任中心-个人信息选项,文档特定设置下的“保存时从文件属性中删除个人信息(R)”前面的“√”取消!
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
你可以不用opendialog ,如果你的文件就永都是E:\abc\bac.xls,那就直接指向那个文件就行了,不需要用到opendialog 控件
追问
那用什么打开啊?
追答
你想在什么地方打开它直接调用就行了,只是把opendialog 这一步省了
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
打开指定类型文件:Filter:=' (这里写任意说明)|*.txt';
打开指定文件:FileName:='指定文件名';
打开指定文件:FileName:='指定文件名';
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询