请各位大侠帮我看看这段程序到底是怎么回事，谢谢！！

zxc001975cvb · 发表于 2019-3-1 09:03:34

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

这是一段lisp调用excel的程序，为什么参数Excelfile和sheetname的值为nil，程序运行到(setq wb (vlax-invoke-method wbs "open" excelFile))出错，错误信息“错误: ActiveX 服务器返回错误: 服务器出现意外情况。”
(defun C:getSTxls()
  (setq xlsfileName (findfile "stcs.xls"))
  (if (null xlsfileName)
   (alert "没有找到stcs.xls文件,请人工输入。")
   (GetCellValueAsList xlsfileName "sheet1")
  )  ;新加
  (princ)
)

(defun GetCellValueAsList(excelFile sheetName)

  (vl-load-com)
  (setq xl (vlax-get-or-create-object "Excel.Application"))
  (if (null xl)(vl-exit-with-error (princ "\nExcel启动失败！")))  ;新加
  (setq wbs (vlax-get-property xl "WorkBooks"))
  (setq wb (vlax-invoke-method wbs "open" excelFile))
  (setq shs (vlax-get-property wb "Sheets"))
  (setq sh (vlax-get-property shs "Item" sheetName))
  (setq usr (vlax-get-property sh 'usedRange))
  (setq row (vlax-get-property usr 'rows))
  (setq yn (vlax-get-property row 'count))
  (setq column (vlax-get-property usr 'columns))
  (setq xn (vlax-get-property column 'count))

...........
）

fengyun7000 · 发表于 2019-3-1 11:36:35

(GetCellValueAsList xlsfileName "sheet1" "A3:B4")
函数缺个调用范围的参数

zxc001975cvb · 发表于 2019-3-1 15:00:32

试了一下，加上这个参数，依然是这个错误信息。

Lisphk · 发表于 2019-3-1 15:20:41

zxc001975cvb 发表于 2019-3-1 15:00
试了一下，加上这个参数，依然是这个错误信息。

你看看
(setq wbs (vlax-get-property xl "WorkBooks"))

这个有没有返回值

fengyun7000 · 发表于 2019-3-1 17:12:39

(defun GetCellValueAsList(excelFile sheetName usedRange )
这个相应也得改啊

fengyun7000 · 发表于 2019-3-1 17:16:10

命令: (GetCellValueAsList xlsfileName "qxb" "A3:B4")
((#<variant 5 1> #<variant 5 0>) (#<variant 5 1> #<variant 5 309.58>))
这个程序本身不完整的，这是运行结果

evayleung · 发表于 2019-3-1 23:51:28

学习一下，，，，，谢谢、、、、

arker · 发表于 2019-3-2 07:50:50

学习大神们的先进程序。

zxc001975cvb · 发表于 2019-3-3 10:10:33

(setq wbs (vlax-get-property xl "WorkBooks"))有返回值：
#<VLA-OBJECT Workbooks 0314623c>
(setq wb (vlax-invoke-method wbs "open" excelFile))就出现错误：
; 错误: Automation 错误。类 Workbooks 的 Open 方法无效

可以在我的笔记本电脑上，一模一样的程序，同样是Autocad2006缺不出现错误

fengyun7000 · 发表于 2019-3-3 10:21:44

有问题不能运行的机子是不是装WPS EXCEL？

Lisphk · 发表于 2019-3-3 12:23:21

zxc001975cvb 发表于 2019-3-3 10:10
(setq wbs (vlax-get-property xl "WorkBooks"))有返回值：
#
(setq wb (vlax-invoke-method wbs "open" ...

系统是GHOST的？可能系统缺组件

kqqt6236 · 发表于 2019-3-3 16:48:50

应该跟系统无关吧。

zxc001975cvb · 发表于 2019-3-8 11:51:43

kqqt6236，有解决的好方法吗

aisong220 · 发表于 2019-3-8 12:03:21

来学习一下

账号		自动登录	找回密码
密码			立即注册

[求助] 请各位大侠帮我看看这段程序到底是怎么回事，谢谢！！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。