以下几个自定义函数，可以正常操作OFFICE的软件，不能操作WPS的表格，提示实参数少

永不言弃

以下几个自定义函数，可以正常操作OFFICE的软件，不能操作WPS的表格，提示实参数少，请大神们指点一下，谢谢

1. ;;;(setq XLSFile "C:\\Users\\Administrator\\Desktop\\测试.xls")
   
2. ;;;(setq UnHide t)
   
3. ;;;(xlr_open_xls XLSFile t )
   
4. ;;;(xlr_open_xls  表格路径  是否显示)打开表格
   
5. (Defun xlr_open_xls( XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)
   
6.   (if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application")))
   
7.     (progn (vlax-invoke-method (vlax-get-property Rtn 'WorkBooks) 'Open XLSFile)
   
8.     (if UnHide
   
9.       (vla-put-visible Rtn 1)
   
10.       (vla-put-visible Rtn 0)
    
11.     )
    
12.     )
    
13.   )
    
14.   Rtn
    
15. )
    
16. 
    
17. ;;;(setq XLSFile "C:\\Users\\Administrator\\Desktop\\测试2313.xls")
    
18. ;;;(xlr_excel_kill xlapp  nil)
    
19. ;;;(xlr_excel_saveas  xlapp XLSFile)
    
20. 
    
21. ;;;(xlr_excel_kill xlapp "C:\\Users\\Administrator\\Desktop\\测试2313.xls")
    
22. ;;;________________________________________________________________________
    
23. (Defun xlr_excel_kill (ExlObj SaveYN);;;excel退出与保存
    
24.    (if SaveYN
    
25.     (progn
    
26.       (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'SAVE)
    
27.       (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'Close :vlax-False)
    
28.       )
    
29.     (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'Close :vlax-False)
    
30.   )
    
31.   (vlax-invoke-method ExlObj 'QUIT)
    
32.   (vlax-release-object ExlObj)
    
33.   (setq ExlObj nil)
    
34.   (gc)
    
35. )
    
36. 
    
37. 
    
38. ;;;另存文件
    
39. (Defun xlr_excel_saveas (xlapp Filename / Rtn)
    
40.   (if (findfile Filename)
    
41.     (vl-file-delete (findfile Filename))
    
42.   )
    
43.   (vlax-invoke-method
    
44.     (vlax-get-property Xlapp "ActiveWorkbook")
    
45.     "SaveAs"
    
46.     Filename
    
47.     msxl-xlNormal
    
48.     ""
    
49.     ""
    
50.     :vlax-False
    
51.     :vlax-False
    
52.     nil
    
53.   )
    
54.   (findfile Filename)
    
55. )

;;;(setq XLSFile "C:\\Users\\Administrator\\Desktop\\测试.xls")<br /> ;;;(setq UnHide t)<br /> ;;;(xlr_open_xls XLSFile t )<br /> ;;;(xlr_open_xls  表格路径  是否显示)打开表格<br /> (Defun xlr_open_xls( XLSFile UnHide / ExcelApp WorkSheet Sheets ActiveSheet Rtn)<br />   (if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application")))<br />     (progn (vlax-invoke-method (vlax-get-property Rtn 'WorkBooks) 'Open XLSFile)<br />     (if UnHide<br />       (vla-put-visible Rtn 1)<br />       (vla-put-visible Rtn 0)<br />     )<br />     )<br />   )<br />   Rtn<br /> )<br /> <br /> ;;;(setq XLSFile "C:\\Users\\Administrator\\Desktop\\测试2313.xls")<br /> ;;;(xlr_excel_kill xlapp  nil)<br /> ;;;(xlr_excel_saveas  xlapp XLSFile)<br /> <br /> ;;;(xlr_excel_kill xlapp "C:\\Users\\Administrator\\Desktop\\测试2313.xls")<br /> ;;;________________________________________________________________________<br /> (Defun xlr_excel_kill (ExlObj SaveYN);;;excel退出与保存<br />    (if SaveYN<br />     (progn<br />       (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'SAVE)<br />       (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'Close :vlax-False)<br />       )<br />     (vlax-invoke-method (vlax-get-property ExlObj "ActiveWorkbook") 'Close :vlax-False)<br />   )<br />   (vlax-invoke-method ExlObj 'QUIT)<br />   (vlax-release-object ExlObj)<br />   (setq ExlObj nil)<br />   (gc)<br /> )<br /> <br /> <br /> ;;;另存文件<br /> (Defun xlr_excel_saveas (xlapp Filename / Rtn)<br />   (if (findfile Filename)<br />     (vl-file-delete (findfile Filename))<br />   )<br />   (vlax-invoke-method<br />     (vlax-get-property Xlapp "ActiveWorkbook")<br />     "SaveAs"<br />     Filename<br />     msxl-xlNormal<br />     ""<br />     ""<br />     :vlax-False<br />     :vlax-False<br />     nil<br />   )<br />   (findfile Filename)<br /> )

ㄘ丶转裑ㄧ灬

(if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application")))
→→→→→
(if (and (findfile XLSFile) (setq Rtn (vlax-create-object "Excel.Application")))

永不言弃

ㄘ丶转裑ㄧ灬 发表于 2021-12-14 10:49
(if (and (findfile XLSFile) (setq Rtn (vlax-get-or-create-object "Excel.Application")))
→→→→→
...

谢谢

Bdj

永不言弃 发表于 2021-12-14 13:06
谢谢

所以解决了吗？把函数：vlax-get-or-create-object改成vlax-create-object。也不行啊

渠辉

vlax-invoke-method 改为  vlax-invoke

(setq Rtn (vlax-get-or-create-object "Excel.Application"))改为
(setq rtn (cond ((vlax-get-or-create-object "ket.application"))
                      ((vlax-get-or-create-object "execl.application"))
                )
      )