Chinaunix首页 | 论坛 | 博客
  • 博客访问: 1260409
  • 博文数量: 788
  • 博客积分: 4000
  • 博客等级: 上校
  • 技术积分: 7005
  • 用 户 组: 普通用户
  • 注册时间: 2008-08-19 15:52
文章存档

2017年(81)

2011年(1)

2009年(369)

2008年(337)

分类:

2008-09-16 14:57:51



我想这样操作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;  
 

继续在线等....

阅读(1050) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~