EXCEL的读写，帮忙看看，是什么问题，谢谢

muhanleek · 发表于 2011-1-5 21:13:14

本帖最后由 muhanleek 于 2011-1-5 22:02 编辑

(defun c:excel_text  ()
  (vl-load-com)
  (setq mse (vlax-get-object "excel.Application"))
  (if (= mse nil)
(setq mse (vlax-create-object "excel.Application"))
)
   ;(vla-put-visible mse :vlax-true)
  (setq myworkbooks (vlax-get-property mse "WorkBooks"))
  (setq myworkbook
  (vlax-invoke-method
myworkbooks
'open
(getfiled "选择Excel文件" "c:/" "xls" 0)
)
)
  (setq myactivesheet (vlax-get-property myworkbook "activesheet"))
  (setq myusedrange (vlax-get-property myactivesheet "UsedRange"))
  (setq myrows (vlax-get-property myusedrange "Rows"))
  (setq bigrow (vlax-get-property myrows "count"))
  (setq i 4)
  (repeat (- bigrow 3)
  (setq mycell-i (strcat "E" (itoa i)))
  (setq mycell-j (strcat "K" (itoa i)))

  (setq myrange-read (vlax-get-property myactivesheet "Range" mycell-i))
  (setq mycell-read  (vlax-get-property myrange-read "Cells" ) )
  (setq myrange-write (vlax-get-property myactivesheet "Range" mycell-j))
  (setq mycell-write (vlax-get-property myrange-write "Cells"))
  (setq mycellvalue (vlax-variant-value (vlax-get-property mycell-read "Value")))
(cond
   ((= mycellvalue "A1" )(setq sr "A1KKK"))
   ((= mycellvalue "A2" )(setq sr "A2KKK"))
   (T          (setq sr "未归类未归类 "))
   );cond
   (vlax-put-property  mycell-write 'Value (vlax-make-variant sr))
  (setq i (1+ i))
  )

  (vlax-invoke-method mse "Quit")
  (vlax-release-object mse)
  (princ)
  )

执行到红色的那句就出错，给一个单元格赋值，不是那样做吗？
它提示：Automation 错误。未提供说明。

我是菜鸟啊，那位说说

ZZXXQQ · 发表于 2011-1-5 21:45:18

程序我看不懂。问别人吧。

muhanleek · 发表于 2011-1-5 21:50:03

谁知道帮我看看啊，谢谢

Gu_xl · 发表于 2011-1-5 22:10:50

(vlax-put-property mycell-write 'Value2 (vlax-make-variant sr))

muhanleek · 发表于 2011-1-5 22:21:00

我靠。楼上的太帅了。。。。。。

aytxq · 发表于 2011-1-14 23:13:06

没试出来你这个程序做什么用的？能介绍一下吗？

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

[源码] EXCEL的读写，帮忙看看，是什么问题，谢谢