麻烦大家看一下这个打开excel并输入数据的lisp错在哪里

jwj0805

我用的是 excel 2010 ,加载lisp后，出现，错误: 参数类型错误: VLA-OBJECT nil
defun c:xl-test1()
(vl-load-com)
(setq exlib "c:\\program files\\microsft office\\office14\\excel.exe")
(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"))
(vla-put-visible xlobj 1)
(setq wb-obj(vlax-invoke-method (vlax-get-property xlobj 'workbooks) 'add)
(setq sheetobj(mx-get-activesheet wb-obj))
(setq cells(mx-get-cells sheetobj))
(setq ceobj-1-2(vlax-variant-value
    (mx-get-item cells 1 2)
))
(mx-put-value2 ceobj-1-2 "111"）
(setq ceobj-2-2(vlax-variant-vlaue
      (mx-get-item cells 2 2)
))
(mx-put-value2 ceobj-2-2 "222"）         
(setq ceobj-3-2(vlax-variant-value
      (mx-get-item cells 3 2)
))
(mx-put-value2 ceobj-3-2 "333"）
(setq cell-1-2(vlax-variant-value(mx-get-value ceobj-1-2)))
(princ "\ncell-1-2=")(princ cell-1-2)
(setq cell-2-2(vlax-variant-value(mx-get-value ceobj-2-2)))
(princ "\ncell-2-2=")(princ cell-2-2)
(setq cell-3-2(vlax-variant-value(mx-get-value ceobj-3-2)))
(princ "\ncell-3-2=")(princ cell-3-2)
(setq filename "C:\\Users\\MyPC\\Desktop\\xltest1.xls")
(vlax-invoke-method wb-obj "saveas" filename nil nil nil nil nil nil)
(prin1)
)

jwj0805

不好意思，少了个括号

jwj0805

加载没错了，但是运行还是出现老错误

jwj0805

没人看，已解决

dragoon3333

你怎么解决的，我也发现这个问题了

fn2398

你怎么解决的，求教一下！

jwj0805

fn2398 发表于 2018-9-20 20:54
你怎么解决的，求教一下！

自从问了这个问题没人回到，我就用C++和C#了