怎样在delphi的对话框指定文件夹路径(急呀）

Posted 2023-03-18

怎样在delphi的对话框（OpenDialog1）指定文件夹路径--打开存在的EXCEL文档 比如我在打开存在的EXCEL文档时--打开的文件夹是自己设定的“E:\11111111”路径文件夹---而不是还要去电脑里找哪盘
我现在以有了打开存在的EXCEL文档的代码了，接下来该怎么办，还有请写明是哪个控件比如 Standard--Label 控件
//打开存在的EXCEL文档
procedure TForm1.Button2Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
try
v:= CreateOleObject('Excel.Application');
v.Visible := CheckBox1.Checked;
v.Workbooks.Open(OpenDialog1.FileName);
// Sheet := v.Workbooks[1].WorkSheets[1];
except
Showmessage('初始化Excel失败，可能没装Excel，或者其他错误；请重起再试。');
v.DisplayAlerts := false;
v.Quit;
exit;
end;
Application.Restore;
Application.BringToFront;
end;
end;
根据你们的回答 我加入了语句 不过运行还是错

参考技术A OpenDialog1.InitialDir :='E:\11111111';
OpenDialog1.Execute ;