关于EXCEL操作的问题 VCL组件开发及应用http://www.delphi2007.net/DelphiVCL/html/delphi_20061225132236125.html
我想这样操作EXCEL
假如某个excel文件没打开，我对这个excel读操作完成之后就把这个文件关掉
如果这个excel文件打开了，我对这个文件读操作后，改文件不关闭
请问如何写
我是通过一个标志来判断这个文件是否打开 但是好像总是把excel关不掉 进行第二次操作的时候就暴错误了，说是找不到改文件
ExcelApplication.Disconnect;//退出的时候
if IsOpen<>true then
ExcelWorkbook.Close;
主要代码如下
iHandle :=FileOpen(XlsFileName, fmShareExclusive);
if (iHandle < 0) then
IsOpen:=True
else
IsOpen:=false ;
Excelapplication.Workbooks.Open(XlsFileName,null,null,null,null,
null,null,null,null,null,null,null,null,null,null,0);//打开指定的EXCEL 文件
ExcelWorkbook.ConnectTo(ExcelApplication.ActiveWorkbook);//ExcelWorkbook1与Eexcelapplication1建立连接
ExcelWorksheet.ConnectTo(ExcelWorkbook.Worksheets[Num] as _Worksheet);//Excelworksheet1与Excelworkbook1建立连接
...//中间进行若干读操作
ExcelApplication.Disconnect;//出现异常情况时关闭
if IsOpen<>true then
ExcelWorkbook.Close;
继续在线等....