vlisp读取excel单元格数据

VIP文章 MayaTun

已于 2022-07-29 09:29:27 修改

阅读量1.2k

点赞数 2

分类专栏： vlisp 文章标签： lisp

于 2022-07-29 02:30:09 首次发布

本文链接：https://blog.csdn.net/Tclasus98/article/details/126047353

版权

新手第一个25行vlisp，读取excel单元格数据，微软office2007环境下终于能跑！金山wps环境下open方法提示实参太少，不知道为什么？求问大神！

;;用vlisp读取excel数据
(defun c:tt()
  (setq path (getfiled "请选择宅基地审批数据excel文件" "" "" 0));获取文件路径
  (setq sheetName1 "审批数据");定义工作表名
  (setq sheetName2 "打印设置");定义工作表名
  (setq rangeStr1 "a4:f7");定义读取range
  (setq cell_v (GetCellValueAsList path sheetName1 rangeStr1));调用自定函数GetCellValueAsList读取指定range
  (print "hello")
  (princ)
  )
(defun GetCellValueAsList(excelFile sheetName RangeStr / cel wbs wb shs sh rg  v_tmp t_tmp ret )
  (vl-load-com)
  (setq cel (vlax-get-or-create-object "Excel.Application"));建立excel对象cel
  (vlax-put-property cel 'Visible 1);修改cel对象可见
  (setq wbs (vlax-get-property cel "Workbooks"));获得wbs工作簿集合对象
  (setq wb (vlax-invoke-method wbs "open" excelFile)) ;执行open方法，用工作簿集合对象打开指定的excel文件
  (setq shs (vlax-get-property wb "sheets"));获得工作表集