（求助）程序运行过程中总是出现错误：参数类型错误：VLA-OBJECT nil

cnsdjnzc

(defun C:sjk()
  
  (vl-load-com)
  
  (setq exlib "C:Program files\\Microsoft office\\Office12\\Excel.exe")
  (setq exlib "C:Program files\\Microsoft office\\Office10\\Excel.exe")
  (setq exlib "C:Program files\\Microsoft office\\Office11\\Excel.exe")
  (vla-put-visible Xlobj 1)
)
  (if(null MX-acos)
     (vlax-import-type-library
           :tlb-filename         exlib
    :methods-prefix       "MX-"
    :properties-prefix    "MX-"
   
    :constants-prefix     "MX-"
     )
   
   )
  

  (setq XLobj(vlax-create-object"Excel.Application"))
   
  
  (vlax-invoke-Method(vlax-get-Property XLobj'Workbooks)'Open filename)
  (setq filename"f:\\1.xls")
  (setq sheetobj(MX-get-activesheet XLobj))
  (setq cells(MX-get-cells sheetobj))
  
  (setq cell-1-2 (vlax-variant-value(MX-get-value-sheetobj-1-2)))
  
  (princ"\nCELL-1-2=")(princ cell-1-2)
  (vlax-invoke-method XLobj 'QUIT)
  (vlax-release-object XLobj)
  (setq XLobj nil)
  )
大家帮忙看一下这个程序哪个地方需要修改，运行过程中总是出现错误：参数类型错误：VLA-OBJECT nil。
谢谢啦！

lazybug

(vla-put-visible Xlobj 1)
这一句执行的时候，xlobj的值还是nill

还有这句(if(null MX-acos)
也是没赋值就引用参数了

还有，有个“）”的位置错了

cnsdjnzc

lazybug 发表于 2011-10-28 15:40
(vla-put-visible Xlobj 1)
这一句执行的时候，xlobj的值还是nill

请问怎么将MX-acos赋值？还有那个Xlobj不需要赋值吧？谢谢了，我刚开始学习，不大懂

yshf

1、 (vla-put-visible Xlobj 1) 的一行右括号是多余的
2、将 (vla-put-visible Xlobj 1) 移动到 (setq XLobj(vlax-create-object"Excel.Application"))行的下面一行
3、其余如下：

2. 
   
3. (defun C:sjk()
   
4.   
   
5.   (vl-load-com)
   
6.   
   
7.   (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office12\\Excel.exe")))
   
8.       (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office10\\Excel.exe")))
   
9.           (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office11\\Excel.exe")))
   
10.               (vl-exit-with-error "不能引入Excel类型库！")
    
11.           )
    
12.       )
    
13.   )
    
14. 
    
15.   (if(null MX-acos)
    
16.      (vlax-import-type-library
    
17.            :tlb-filename         exlib
    
18.            :methods-prefix       "MX-"
    
19.            :properties-prefix    "MX-"
    
20.            :constants-prefix     "MX-"
    
21.      )
    
22.    
    
23.    )
    
24. 
    
25.    (setq XLobj (vlax-create-object "Excel.Application"))
    
26.    (vla-put-visible Xlobj :vlax-true)
    
27.    (vlax-invoke-Method(vlax-get-Property XLobj'Workbooks)'Open filename)
    
28.    (setq filename"f:\\1.xls")
    
29.    (setq sheetobj(MX-get-activesheet XLobj))
    
30.    (setq cells(MX-get-cells sheetobj))
    
31.    (setq cell-1-2 (vlax-variant-value(MX-get-value-sheetobj-1-2)))
    
32.    (princ"\nCELL-1-2=")(princ cell-1-2)
    
33.    (vlax-invoke-method XLobj 'QUIT)
    
34.    (vlax-release-object XLobj)
    
35.    (setq XLobj nil)
    
36.    (princ)
    
37. )
    

<br /> (defun C:sjk()<br />   <br />   (vl-load-com)<br />   <br />   (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office12\\Excel.exe")))<br />       (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office10\\Excel.exe")))<br />           (if (not (findfile (setq exlib "C:\\Program files\\Microsoft office\\Office11\\Excel.exe")))<br />               (vl-exit-with-error "不能引入Excel类型库！")<br />           )<br />       )<br />   )<br /> <br />   (if(null MX-acos)<br />      (vlax-import-type-library<br />            :tlb-filename         exlib<br />            :methods-prefix       "MX-"<br />            :properties-prefix    "MX-"<br />            :constants-prefix     "MX-"<br />      )<br />     <br />    )<br /> <br />    (setq XLobj (vlax-create-object "Excel.Application"))<br />    (vla-put-visible Xlobj :vlax-true)<br />    (vlax-invoke-Method(vlax-get-Property XLobj'Workbooks)'Open filename)<br />    (setq filename"f:\\1.xls")<br />    (setq sheetobj(MX-get-activesheet XLobj))<br />    (setq cells(MX-get-cells sheetobj))<br />    (setq cell-1-2 (vlax-variant-value(MX-get-value-sheetobj-1-2)))<br />    (princ"\nCELL-1-2=")(princ cell-1-2)<br />    (vlax-invoke-method XLobj 'QUIT)<br />    (vlax-release-object XLobj)<br />    (setq XLobj nil)<br />    (princ)<br /> )<br />

cnsdjnzc

yshf 发表于 2011-10-29 12:31
1、 (vla-put-visible Xlobj 1) 的一行右括号是多余的
2、将 (vla-put-visible Xlobj 1) 移动到 (setq XLo ...

谢谢了！

shiyan001

又学了一手，谢谢了