[求助(已解决)]用lisp读取Excel文件中指定单元格的数据

chpmould · 发表于 2009-5-9 12:43:00

顶出个高手出来!

modernyoung · 发表于 2009-5-9 13:05:00

不打开当然读写不了数据，只是可以打开但不显示，表面上是不打开。
(Defun vlxls-app-open(XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)
  ;;;function: this program can open an excelfile
  (setq XLSFile (strcase XLSFile))
  (if (null (wcmatch XLSFile "*.XLS"))
  (setq XLSFile (strcat XLSFile ".XLS")))
  (if (and (findfile XLSFile)
   (setq Rtn (vlax-get-or-create-object "Excel.Application")))
(progn (vlax-invoke-method (vlax-get-property Rtn 'WorkBooks)
      'Open XLSFile)
(if UnHide
(vla-put-visible Rtn 1)
(vla-put-visible Rtn 0))))
  Rtn)
(setq *xlapp* (vlxls-app-open "C:/test.XLS"  nil))
(SETQ AA(msxl-GET-value1
(msxl-get-range *XLAPP*  "A1")
))
(vlax-variant-value AA)
(vlax-invoke-method *xlapp*  'QUIT) 关闭程序

[求助(已解决)]用lisp读取Excel文件中指定单元格的数据

发表回复

精选推荐