用vlisp向excel写入时，为什么总是提示错误: Automation 错误

xuhawk

....................

(defun DSX-Excel-Get-Cell (rng relrow relcol)
  (vlax-variant-value (msxl-get-item (msxl-get-cells rng) (vlax-make-variant relrow) (vlax-make-variant relcol)
  )))

(defun DSX-Excel-Put-ColumnList (lst range startrow startcol)
(foreach itm lst
(msxl-put-value (DSX-Excel-Get-Cell range startrow startcol)
itm
)
(setq startcol (1+ startcol))
); repeat
)

(DSX-Excel-Put-ColumnList ‘（"a" "b" "c"） xlapp 1 1)

......................................................................................

代码来源http://www.mjtd.com/Develop/ArticleShow.asp?ArticleID=667

我用这里面的读出excel数据可以运行。但是我写入excel的时候。

总是提示    ; 错误: Automation 错误。未提供说明。

不知是什么原因，请教各位如何改造这段代码。

AutoCAD2012

(defun DSX-Excel-Put-ColumnList (lst range startrow startcol)

(DSX-Excel-Put-ColumnList ‘（"a" "b" "c"） xlapp 1 1)

没看你的链接, 光看这里就有不少问题, 稀烂. 首先你程序里面有中文标点符号; 其次参数要求是range对象, 你使用的是xlapp对象, 明显不对吧. xlapp应该是excel应用程序对象.

NetBee

关于EXCEL的操作老帖子中有专门的，搜一下