程序中打开excel文件的问题
ibicf 2004-10-08 03:16:24 我现在要实现下面的功能:点击按钮,打开一个对话框,用户选择excel文件,然后点击确定打开excel文件。
我用一个TExcelApplication,一个TOpenDialog实现上述功能。如果依次打开几个excel文件没有问题,但是如果已经打开了excel文件,如果先把excel关闭,然后再打开excel文件,excel文件就会显示不出来。好象是excel没有释放的问题,请各位给点高见。。。程序如下:
var
sStr, sDir: String;
sFileName: String;
begin
//取得当前程序执行的路径
sStr := GetCurrentDir;
sStr := Copy(sStr,0,Pos('\Bin',sStr)-1);
sDir := sStr+'\output\';
OpenDialog1.InitialDir := sDir;
if OpenDialog1.Execute then
begin
try
try
sFileName := OpenDialog1.FileName;
showmessage(sFileName);
ExcelApp.Workbooks.Open(sFileName,null,null,null,null,null,null,
null,null,null,null,null,null,0);
ExcelApp.Visible[1] := true;
except
end;
finally
end;
end;
end;