关于在论坛里搜到的excel相关函数的问题

Eltrion

初学lisp 还不是太懂  在论坛搜到一个excel操作函数的合集  遇到一点问题

首先是一个初始化的

2. ;0·初始化
   
3. ;|
   
4. Examples:
   
5. (vlxls-app-init)  ==>  33
   
6. |;
   
7. (defun vlxls-app-Init
   
8.    (/ OSVar GGG Olb8 Olb9 Olb10 TLB Out msg msg1 msg2)
   
9.    (if *Chinese*
   
10.       (setq msg "\n 初始化微软Excel "
    
11.             msg1 "\042初始化Excel错误\042"
    
12.             msg2 (strcat
    
13.                      "\042 警告"
    
14.                      "\n ===="
    
15.                      "\n 无法在您的计算机上检测到微软Excel软件"
    
16.                      "\n 如果您确认已经安装Excel, 请发送电子邮"
    
17.                      "\n 件到kozmosovia@hotmail.com获取更多的解决方案\042"
    
18.                   )
    
19.       )
    
20.       (setq msg "\n Initializing Microsoft Excel "
    
21.             msg1 "\042Initialization Error\042"
    
22.             msg2 (strcat
    
23.                      "\042 WARNING"
    
24.                      "\n ======="
    
25.                      "\n Can NOT detect Excel97/200X/XP in your computer"
    
26.                      "\n If you already have Excel installed, please email"
    
27.                      "\n us to get more solution via kozmosovia@hotmail.com\042"
    
28.                   )
    
29.       )
    
30.    )
    
31.    (if (null msxl-xl24HourClock)
    
32.       (progn
    
33.          (if (and (setq GGG
    
34.                         (vl-registry-read
    
35.                            "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE"
    
36.                            "Path"
    
37.                         )
    
38.                   )
    
39.                   (setq GGG (strcase (strcat GGG "Excel.EXE" )))
    
40.             )
    
41.             (progn
    
42.                (foreach OSVar (list "SYSTEMROOT" "WINDIR"
    
43.                                  "WINBOOTDIR" "SYSTEMDRIVE"
    
44.                                  "USERNAME" "COMPUTERNAME"
    
45.                                  "HOMEDRIVE" "HOMEPATH"
    
46.                                  "PROGRAMFILES"
    
47.                               )
    
48.                   (if (vl-string-search (strcat "%" OSVar "%" ) GGG)
    
49.                      (setq GGG (vl-string-subst (strcase (getenv OSVar)) (strcat "%" OSVar "%" ) GGG))
    
50.                   )
    
51.                )
    
52.                (setq Olb8 (findfile (vl-string-subst "EXCEL8.OLB" "EXCEL.EXE" GGG))
    
53.                      Olb9 (findfile (vl-string-subst "EXCEL9.OLB" "EXCEL.EXE" GGG))
    
54.                      Olb10 (findfile (vl-string-subst "EXCEL10.OLB" "EXCEL.EXE" GGG))
    
55.                )
    
56.                (cond
    
57.                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE16")
    
58.                      (setq TLB GGG Out "2016")
    
59.                   )
    
60.                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE11")
    
61.                      (setq TLB GGG Out "2003")
    
62.                   )
    
63.                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE10")
    
64.                      (setq TLB GGG Out "XP")
    
65.                   )
    
66.                   (Olb9 (setq TLB Olb9 Out "2000"))
    
67.                   (Olb8 (setq TLB Olb8 Out "97"))
    
68.                   (T (setq Out "Version Unknown" ))
    
69.                )
    
70.                (if TLB
    
71.                   (progn
    
72.                      (princ (strcat MSG Out "..." ))
    
73.                      (vlax-import-type-library
    
74.                         :tlb-filename TLB :methods-prefix
    
75.                         "msxl-" :properties-prefix
    
76.                         "msxl-" :constants-prefix "msxl-"
    
77.                      )
    
78.                   )
    
79.                )
    
80.             )
    
81.             (progn
    
82.                (if vldcl-msgbox
    
83.                   (vldcl-msgbox "x" msg1 msg2)
    
84.                   (alert (read msg2))
    
85.                )
    
86.                (exit)
    
87.             )
    
88.          )
    
89.       )
    
90.    )
    
91.    msxl-xl24HourClock
    
92. )
    
93. 
    

;0·初始化<br /> ;|<br /> Examples:<br /> (vlxls-app-init)  ==>  33<br /> |;<br /> (defun vlxls-app-Init<br />    (/ OSVar GGG Olb8 Olb9 Olb10 TLB Out msg msg1 msg2)<br />    (if *Chinese*<br />       (setq msg "\n 初始化微软Excel " <br />             msg1 "\042初始化Excel错误\042" <br />             msg2 (strcat<br />                      "\042 警告" <br />                      "\n ====" <br />                      "\n 无法在您的计算机上检测到微软Excel软件" <br />                      "\n 如果您确认已经安装Excel, 请发送电子邮" <br />                      "\n 件到kozmosovia@hotmail.com获取更多的解决方案\042" <br />                   )<br />       )<br />       (setq msg "\n Initializing Microsoft Excel " <br />             msg1 "\042Initialization Error\042" <br />             msg2 (strcat<br />                      "\042 WARNING" <br />                      "\n =======" <br />                      "\n Can NOT detect Excel97/200X/XP in your computer" <br />                      "\n If you already have Excel installed, please email" <br />                      "\n us to get more solution via kozmosovia@hotmail.com\042" <br />                   )<br />       )<br />    )<br />    (if (null msxl-xl24HourClock)<br />       (progn<br />          (if (and (setq GGG<br />                         (vl-registry-read<br />                            "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\Excel.EXE" <br />                            "Path" <br />                         )<br />                   )<br />                   (setq GGG (strcase (strcat GGG "Excel.EXE" )))<br />             )<br />             (progn<br />                (foreach OSVar (list "SYSTEMROOT" "WINDIR" <br />                                  "WINBOOTDIR" "SYSTEMDRIVE" <br />                                  "USERNAME" "COMPUTERNAME" <br />                                  "HOMEDRIVE" "HOMEPATH" <br />                                  "PROGRAMFILES" <br />                               )<br />                   (if (vl-string-search (strcat "%" OSVar "%" ) GGG)<br />                      (setq GGG (vl-string-subst (strcase (getenv OSVar)) (strcat "%" OSVar "%" ) GGG))<br />                   )<br />                )<br />                (setq Olb8 (findfile (vl-string-subst "EXCEL8.OLB" "EXCEL.EXE" GGG))<br />                      Olb9 (findfile (vl-string-subst "EXCEL9.OLB" "EXCEL.EXE" GGG))<br />                      Olb10 (findfile (vl-string-subst "EXCEL10.OLB" "EXCEL.EXE" GGG))<br />                )<br />                (cond <br />                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE16")<br />                      (setq TLB GGG Out "2016")<br />                   )<br />                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE11")<br />                      (setq TLB GGG Out "2003")<br />                   )<br />                   ((= (vl-filename-base (vl-filename-directory GGG)) "OFFICE10")<br />                      (setq TLB GGG Out "XP")<br />                   )<br />                   (Olb9 (setq TLB Olb9 Out "2000"))<br />                   (Olb8 (setq TLB Olb8 Out "97"))<br />                   (T (setq Out "Version Unknown" ))<br />                )<br />                (if TLB<br />                   (progn<br />                      (princ (strcat MSG Out "..." ))<br />                      (vlax-import-type-library<br />                         :tlb-filename TLB :methods-prefix<br />                         "msxl-" :properties-prefix<br />                         "msxl-" :constants-prefix "msxl-" <br />                      )<br />                   )<br />                )<br />             )<br />             (progn<br />                (if vldcl-msgbox<br />                   (vldcl-msgbox "x" msg1 msg2)<br />                   (alert (read msg2))<br />                )<br />                (exit)<br />             )<br />          )<br />       )<br />    )<br />    msxl-xl24HourClock<br /> )<br /> <br />

我在我电脑上执行这个程序是返回nil的  在另一台电脑上可以  看程序示例应该要返回33  不是很清楚那个OSVar是什么变量  希望有大神解答下   
然后还有个 另一台电脑上执行后  然后打开xls  无法赋值

2. ;0·从指定单元格开始赋值
   
3. ;|
   
4. Examples:
   
5. (vlxls-cell-put-value *xlapp* "C12" "xx")  ==>  #<VLA-OBJECT Range 093a7764>
   
6. (vlxls-cell-put-value *xlapp* "C12:F3" "xx")  ==>  #<VLA-OBJECT Range 43c5ac64>
   
7. (vlxls-cell-put-value *xlapp* "C12:D13" ‘ (("zz" "xx") ("xx" "zz")))  ==>  #<VLA-OBJECT Range 1b8f2a64>
   
8. |;
   
9. (defun vlxls-cell-put-value
   
10.    (xl id Data / vllist-explode idx xx yy ary Rtn)
    
11.    (defun vllist-explode (lst)
    
12.       (cond
    
13.          ((not lst) nil)
    
14.          ((atom lst) (list lst))
    
15.          ((append (vllist-explode (car lst))
    
16.                         (vllist-explode (cdr lst))
    
17.                )
    
18.          )
    
19.       )
    
20.    )
    
21.    (if (null id) (setq id "A1" ))
    
22.    (if (= (type id) 'list) (setq id (vlxls-rangeid id)))
    
23.    (if (= (type (car Data)) 'LIST)
    
24.       (setq   ARY    (vlax-make-safearray
    
25.                      vlax-vbstring
    
26.                      (cons 0 (1- (length Data)))
    
27.                      (cons 1 (length (car Data)))
    
28.                   )
    
29.             XX (1- (length (car Data)))
    
30.             YY (1- (length Data))
    
31.       )
    
32.       (setq   ARY    (vlax-make-safearray
    
33.                      vlax-vbstring
    
34.                      (cons 0 1)
    
35.                      (cons 1 (length Data))
    
36.                   )
    
37.             XX (1- (length Data))
    
38.             YY 0
    
39.       )
    
40.    )
    
41.    (if (= xx yy 0)
    
42.       (msxl-put-value2
    
43.          (setq Rtn (msxl-get-range xl id))
    
44.          (car (vllist-explode data))
    
45.       )
    
46.       (progn
    
47.          (setq id (vlxls-cellid-calc id xx yy))
    
48.          (msxl-put-value2
    
49.             (setq Rtn (msxl-get-range xl id))
    
50.             (vlax-safearray-fill ary data)
    
51.          )
    
52.       )
    
53.    )
    
54.    Rtn
    
55. )

;0·从指定单元格开始赋值<br /> ;|<br /> Examples:<br /> (vlxls-cell-put-value *xlapp* "C12" "xx")  ==>  #<VLA-OBJECT Range 093a7764><br /> (vlxls-cell-put-value *xlapp* "C12:F3" "xx")  ==>  #<VLA-OBJECT Range 43c5ac64><br /> (vlxls-cell-put-value *xlapp* "C12:D13" ‘ (("zz" "xx") ("xx" "zz")))  ==>  #<VLA-OBJECT Range 1b8f2a64><br /> |;<br /> (defun vlxls-cell-put-value<br />    (xl id Data / vllist-explode idx xx yy ary Rtn)<br />    (defun vllist-explode (lst)<br />       (cond<br />          ((not lst) nil)<br />          ((atom lst) (list lst))<br />          ((append (vllist-explode (car lst))<br />                         (vllist-explode (cdr lst))<br />                )<br />          )<br />       )<br />    )<br />    (if (null id) (setq id "A1" ))<br />    (if (= (type id) 'list) (setq id (vlxls-rangeid id)))<br />    (if (= (type (car Data)) 'LIST)<br />       (setq   ARY    (vlax-make-safearray<br />                      vlax-vbstring<br />                      (cons 0 (1- (length Data)))<br />                      (cons 1 (length (car Data)))<br />                   )<br />             XX (1- (length (car Data)))<br />             YY (1- (length Data))<br />       )<br />       (setq   ARY    (vlax-make-safearray<br />                      vlax-vbstring<br />                      (cons 0 1)<br />                      (cons 1 (length Data))<br />                   )<br />             XX (1- (length Data))<br />             YY 0<br />       )<br />    )<br />    (if (= xx yy 0)<br />       (msxl-put-value2<br />          (setq Rtn (msxl-get-range xl id))<br />          (car (vllist-explode data))<br />       )<br />       (progn<br />          (setq id (vlxls-cellid-calc id xx yy))<br />          (msxl-put-value2<br />             (setq Rtn (msxl-get-range xl id))<br />             (vlax-safearray-fill ary data)<br />          )<br />       )<br />    )<br />    Rtn<br /> )

我直接按照程序示例 输入(vlxls-cell-put-value *xlapp* "C12" "xx")  提示返回 错误: 参数类型错误: consp "xx"  
如果删除XX的双引号 改成 (vlxls-cell-put-value *xlapp* "C12" xx)  提示返回 错误: SAFEARRAYBOUND 中的上界小于下界。
如果把XX改成数字 改成 (vlxls-cell-put-value *xlapp* "C12" 1)   提示返回 错误: 参数类型错误: consp 1
那么这个"XX"是要输入什么类型的参数  希望大神能帮我解答

satan421

1、低版本CAD可能需要加一句(vl-load-com)
2、你仔细看，OSVar其实是foreach的变量
3、需要的应该是GGG，GGG代表的应该是包含Excel.EXE可执行程序路径和版本的字符串
4、从 错误: 参数类型错误: consp "xx"  这个错误看，需要list类型的参数，比如：(vlxls-cell-put-value *xlapp* "C12" '("123"))

Eltrion

satan421 发表于 2019-7-5 09:30
1、低版本CAD可能需要加一句(vl-load-com)
2、你仔细看，OSVar其实是foreach的变量
3、需要的应该是GGG， ...

谢谢大神  第一个程序的问题我找到了 好像是excel版本的问题 我用的是2019的版本 我把"OFFICE11" 改成"OFFICE19"可以正常用了  
第二个程序也感谢大神解答