如何读取WPS表格

CQ467959301

如题：这是网上找的读取EXCEL的函数
(defun getcellvalueaslist(excelfile sheetname rangestr / xl wbs wb shs sh rg cs vvv nms nm )
     (vl-load-com)
  (setq xl (vlax-get-or-create-object "Excel.application"))
  (setq wbs (vlax-get-property xl "workbooks"))
  (setq wb (vlax-invoke-method wbs "open" excelfile))
  (setq shs (vlax-get-property wb "sheets"))
  (setq sh (vlax-get-property shs "item" sheetname))
  (setq rg (vlax-get-property sh "range" rangestr))
  (setq vvv (vlax-get-property rg 'value))
  (setq ttt (vlax-safearray->list (vlax-variant-value vvv)))
  (vlax-invoke-method wb "close")
  (vlax-invoke-method xl "quit")
  (vlax-release-object xl)
       )


看了很多帖子都是说
(vlax-get-or-create-object "Excel.application")换成(vlax-get-or-create-object "Ket.Application")就可以了，试了不行啊          这句会提示参数太少(setq wb (vlax-invoke-method wbs "open" excelfile))   

huangpc27

把这句出错的(setq wb (vlax-invoke-method wbs "open" excelfile))改为(setq wb (vlax-invoke wbs 'open excelfile))可能就得了。