急急！！！求救，在Delphi5中进入Excel后，如何打开指定的Excel文件

Posted 2023-03-05

参考技术A 窗口上放ExcelApplication1,ExcelWorkbook1,ExcelWorkSheet1//-------------另存---------------------
ExcelWorkbook1.Saved[1]:=
true;
//不提醒本文档的保存，因为我只关心另存
try
ExcelWorkSheet1.SaveAs(newFileName);
//另存
except
On
E:
EOleException
do
if
E.ErrorCode
<>
-2146827284
then
//不知为何出此错误???
MessageDlg('保存失败！',mtError,
[mbOK],
0);
end;//-----------重新打开-------------------
ExcelWorkbook1.Close;
ExcelApplication1.Caption:='另存文件名;
ExcelApplication1.Workbooks.Open(G_S_AppPath
+
newFileName,
Null,false,Null,Null,Null,Null,Null,Null,Null,true,Null,false,0);
ExcelWorkbook1.ConnectTo(ExcelApplication1.Workbooks[1]);
ExcelWorksheet1.ConnectTo(ExcelWorkbook1.Worksheets[1]
as
_Worksheet);
//关闭Excel
2000
ExcelWorkbook1.Close;
ExcelApplication1.Disconnect;
ExcelApplication1.Quit; 参考技术B 各位大侠你好！
恳请帮忙，我因开发任务需要，需在Delphi5中自动进入Excel，并考贝oldfilename为newfilename,且打开指定的newfilename的Excel文件名。另我是在offic2000下。
十万分的感谢！！