delphi 在读写一个Excel时，用户打开其他的Excel文件并关闭，会出现OLE error 800A01A8的错误，如何解决？

nc_uu 2009-03-06 11:32:26
我写了一个Delphi程序用来处理一些Excel文件，但由于这些文件都比较大，需要5，6分钟，由于客户的日常工作都是使用Excel的，所以会在程序处理时，客户会使用excel继续其他的工作，这时如果客户操作中手动关闭了Excel文件，程序就会出现OLE error 800A01A8错误，请问大家有没有碰到过这样的情况？多谢
...全文
1388 12 打赏 收藏 转发到动态 举报
写回复
用AI写文章
12 条回复
切换为时间正序
请发表友善的回复…
发表回复
kevin 2009-10-08
  • 打赏
  • 举报
 回复
[Quote=引用 8 楼 nc_uu 的回复:]
引用 6 楼 DreamTww 的回复:

对于资源的处理应该是独占方式的，就是所说的单例模式的处理方法，
这种程序，只要打开的Excel不是你所处理的Excel是不会出错的。



能否具体一点？
[/Quote]

晕， 太小瞧delphi了， 用delphi完全可以实现这个功能。
1、你是否创建了Excel.Application的COM对象？
2、处理前可以使用createFile判断程序是否正在使用？
3、处理过程中，将Excel COM对象的visible = false
nc_uu 2009-06-04
  • 打赏
  • 举报
 回复
没有解决，改用java Swing实现该功能。
nc_uu 2009-03-09
  • 打赏
  • 举报
 回复
[Quote=引用 7 楼 ron_xin 的回复:]
先不让Excel显示,处理完数据后再显示出来
[/Quote]
这和Excel显不显示没有关系，问题的关键是客户对自己打开的excel进行操作，会影响到程序后台处理的Excel
nc_uu 2009-03-09
  • 打赏
  • 举报
 回复
[Quote=引用 6 楼 DreamTww 的回复:]

对于资源的处理应该是独占方式的，就是所说的单例模式的处理方法，
这种程序，只要打开的Excel不是你所处理的Excel是不会出错的。



[/Quote]
能否具体一点？
genispan 2009-03-09
  • 打赏
  • 举报
 回复
你是不是用到了一些excel必须独占的一些功能啊？
ron_xin 2009-03-08
  • 打赏
  • 举报
 回复
先不让Excel显示,处理完数据后再显示出来
kevin 2009-03-07
  • 打赏
  • 举报
 回复

对于资源的处理应该是独占方式的，就是所说的单例模式的处理方法，
这种程序，只要打开的Excel不是你所处理的Excel是不会出错的。


nc_uu 2009-03-06
  • 打赏
  • 举报
 回复
[Quote=引用 3 楼 winstonbonaparte 的回复:]
我没碰到过这种问题。
不过我想，你可以以只读方式打开EXCEL，这样别人再打开的话就只是只读，应该就不会对程序有影响了吧。
或者你把那个EXCEL文件拷贝到一个临时文件夹中，等操作完成之后再删除
[/Quote]
别人打开的不是程序正在处理的文件，而是另外的excel文件，比如程序处理的是A.xls,用户自己又打开了B.xls，这时用户关闭了B.xls，就会出现上面所说的错误了
winstonbonaparte 2009-03-06
  • 打赏
  • 举报
 回复
我没碰到过这种问题。
不过我想，你可以以只读方式打开EXCEL，这样别人再打开的话就只是只读，应该就不会对程序有影响了吧。
或者你把那个EXCEL文件拷贝到一个临时文件夹中，等操作完成之后再删除
nc_uu 2009-03-06
  • 打赏
  • 举报
 回复
没有人碰到过这样的情况么？
hanks_gao 2009-03-06
  • 打赏
  • 举报
 回复
幫樓主頂一個
nc_uu 2009-03-06
  • 打赏
  • 举报
 回复
自己顶一下
Delphi使用OLE对象读入Excel XLS文件
摘要:Delphi源码,文件操作,OLE,Excel 　　一个基于Delphi语言编写的OLE自动化控件器，让Delphi支持打开.xls格式的Excel表格文件，简要概述一下实现步骤：建立OLE对象、使Excel可见，并将本程序最小化，以观察Excel的运行情况、使Excel窗口不可见、注意：Delphi中的数组的下标是从0开始的，而Excel的表格是从1开始编号，Excel的表格是从1开始编号，传送字段名，数据库到Excel的数据传输完毕，文件存盘，发生错误时给出提示，最后退出OLE对象
delphi7如何读取excel文件
转载:delphi7如何读取excel文件 用ole可以解决 用delphi提供 servers选项 第三方的表格控件可以直接读取excel的数据
POI操作Excel导入和导出
在企业级应用开发中，Excel报表是一种最常见的报表需求，POI 是apache的子项目，目标是处理ole2对象。它提供了一组操纵Windows文档的Java API目前比较成熟的是HSSF接口，处理MS Excel（97-2002）对象。它不象我们...
VC++（VS2010）读写Excel文件代码（附示例）
【前言】 工作或学习中可能需要实现基于VC读\写Excel文件的功能，本人最近也遇到了该问题。中间虽经波折，但是最终还是找到了解决问题的办法。 在此跟大家分享，希望对跟我同样迷茫过的同学们有所帮助。 1、程序功能 1）打开一个excel文件; 2）显示到CListCtrl上; 3）新建一个Excel文件。 以上均在对话框中实现。 2、平台 VC++2010 3、实现方法 常用的Excel打开方式有两种 1）通过数据库打开; 2）OLE方式打开。 由于方式1）操作繁琐，经常出现莫名的错误，这里选用方式2）. 4、准备步骤 首先新建一个Dialog窗体程序，添加list control和两个按钮 1）将ExcelLib文件夹拷贝到程序目录下； 2）将Export2Excel.h，Export2Excel.cpp两个文件添加到项目； 3）包含头文件，#include "ExcelLib/Export2Excel.h" 通过以上步骤在程序中引入了可以读取Excle文件的CExport2Excel类； 5、打开excel文件 通过按钮点击打开 void CExcelTestDlg::OnBnClickedButtonOpenExcel() { //获取文件路径 CFileDialog* lpszOpenFile; CString szGetName; lpszOpenFile = new CFileDialog(TRUE,"","",OFN_FILEMUSTEXIST|OFN_HIDEREADONLY,"Excel File(*.xlsx;*.xls)|*.xls;*.xlsx",NULL); if (lpszOpenFile->DoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //打开文件 //文件中包含多个sheet时，默认打开第一个sheet CExport2Excel Excel_example; Excel_example.OpenExcel(szGetName); //获取sheet个数 int iSheetNum = Excel_example.GetSheetsNumber(); //获取已使用表格行列数 int iRows = Excel_example.GetRowCount(); int iCols = Excel_example.GetColCount(); //获取单元格的内容 CString cs_temp = Excel_example.GetText(1,1); //AfxMessageBox(cs_temp); //List control上显示 //获取工作表列名（第一行） CStringArray m_HeadName; m_HeadName.Add(_T("ID")); for (int i=1;iGetItemCount()>0) { m_list.DeleteColumn(0); } //初始化ClistCtrl，加入列名 InitList(m_list,m_HeadName); //填入内容 //第一行是标题，所以从第2行开始 CString num; int pos; for (int row = 2;row<=iRows; row++) { pos = m_list.GetItemCount(); num.Format(_T("%d"),pos +1); m_list.InsertItem(pos,num); for (int colum=1;columDoModal()==IDOK) { szGetName = lpszOpenFile->GetPathName(); SetWindowText(szGetName); delete lpszOpenFile; } else return; //文件全名称 CString csFileName = szGetName; //需要添加的两个sheet的名称 CString csSheetName = "newSheet"; CString csSheetName2 = "newSheet2"; // 新建一个excel文件，自己写入文字 CExport2Excel Excel_example; //新建excel文件 Excel_example.CreateExcel(csFileName); //添加sheet,新加的sheet在前，也就是序号为1 Excel_example.CreateSheet(csSheetName); Excel_example.CreateSheet(csSheetName2); //操作最开始添加的sheet:(newSheet) Excel_example.SetSheet(2); //添加表头 Excel_example.WriteHeader(1,"第一列"); Excel_example.WriteHeader(2,"第二列"); //添加核心数据 Excel_example.WriteData(1,1,"数据1"); Excel_example.WriteData(1,2,"数据2"); //保存文件 Excel_example.Save(); //关闭文件 Excel_example.Close(); } 7、注意事项 1)一般单个Excel文件包含多个sheet,程序默认打开第一个； 2)指定操作sheet，使用Excel_example.SetSheet(2)函数; 3）打开文件时最左侧的sheet序号为1，新建excel时最新添加的sheet序号为1. 【后记】 本程序主要基于网络CSDN中---“Excel封装库V2.0”---完成，下载地址是：http://download.csdn.net/detail/yeah2000/3576494，在此表示感谢！同时， 1）在其基础上作了小改动，改正了几个小错误，添加了几个小接口； 2）添加了如何使用的例子，原程序是没有的； 3）详细的注释 发现不足之处，还请大家多多指教！
Delphi使用ADO读Excel的数据，比OLE快n倍
使用ADO连接Excel数据表，并读取的例子，比使用OLE的方法快N倍，并简单易用。
Delphi

5,388

社区成员

262,731

社区内容

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章