通过在明经、晓东里边转了一圈又一圈之后终于能从Excellibian把单元格的数据读出来了。但是，还有个大问题解决不了：
1．
(vla-put-visible xlapp 1);1-可见，0-隐藏
一句把所有打开的Excel文件都给隐藏掉了！！！！！

2．同样的
(vlax-invoke-method xlapp 'quit)
一句把所有打开的Excel文件都给关掉了！！！！！

如何处理，能够让我可以把数据读出来且不影响其它打开的Excel文件？或者这么说：是否可以不打开指定的Excel文件就能将其中的数据读出来？

这个问题解决不了，这个程序还是半成品阿。革命尚未成功…

(defun excel-get-data (/ xlapp xlfile fn H8)
  (vl-load-com)
  ;读取单元格数据
  (defun Excel-Get-CellValue(xlapp cell / xlsrng xlsval)
    (setq xlsrng (vlax-get-property xlapp "range" cell))
    (setq xlsval (vlax-variant-value (vlax-get-property xlsrng "Value")))
  ) 
  (setq xfile (getfiled "打开法兰计算文件" "" "xls" 8))
  (if (setq fn (findfile xfile))
    (if (setq xlapp (vlax-get-or-create-object "Excel.Application"))
      (progn
 (vlax-invoke-method
   (vlax-get-property xlapp 'WorkBooks)
   'Open
   fn
 )
 (vla-put-visible xlapp 0);1-可见，0-隐藏
 
 ;单元格数据读取
 (setq H8 (Excel-Get-CellValue xlapp "H8"))
 
 ;退出并关闭Excel进程
 (vlax-invoke-method xlapp 'quit)
 (vlax-release-object xlapp)
      )
     )
    )
  H8
)