[讨论]LISP中操作EXCEL

winabcd

我在“二次开发”版块中看到一篇文章，“Visual LIsp与Excel电子表格” 其中有一段讲的是把数据写入EXCEL表格中，

;;;*************************************************************************
;;; 模块: DSX-Excel-Put-ColumnList
;;; 描述: 将列表写到工作表指定列(startcol)中的指定起始行(startrow)
;;; 参数: list, startrow, startcol
;;; 样例: (DSX-Excel-Put-ColumnList '("A" "B" "C") 1 2) 将数据分别输出到单元格(1,B) (2,B) (3,B)中
;;;*************************************************************************

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

;;;*************************************************************************
;;; 模块： DSX-Excel-Put-RowList
;;; 描述： 将列表写到工作表指定行(startrow) 中的指定起始列(startcol)
;;; 参数： list, startrow, startcol
;;; 示例： (DSX-Excel-Put-RowList '("A" "B" "C") 2 1) 将数据分别输出到单元格(1,B) (1,C) (1,D)中
;;;*************************************************************************

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

文章的其它部分能通过，可这段却出错，出错语句是

(msxl-put-value
(DSX-Excel-Get-Cell range startrow startcol)
itm
)
不知什么地方出错，请各位指教

meflying

最好把你的测试程序和测试内容也放上来,这个程序我记得以前也试过,好象是可以的

龙龙仔

把msxl-put-value -> msxl-put-value2试试

winabcd

龙龙仔说得对，我在发完帖后，又在XDCAD查到一篇相关的文章，在一个类似的函数中看到用了-PUT-VALUE2，我就抱着试试看的想法加了个2，结果可以了。


但我在网上找了很长时间，也没有弄清-PUT-VALUE的用法，为什么我-GET-VALUE可以得到单元格的值，而-PUT-VALUE不行，要用-PUT-VALUE2。


那么，-PUT-VALUE到底又是用来做什么的呢？


我在EXCEL中查到三个相关属性，VALUE、VALUE2、VALUES，可当我再向下查时，显示没有联机帮助，我也就无法再查下去了，哪位有这三个属性的资料或说明，请指教。

xiaocai8

我使用的是EXCEL2003版，在(msxl-Get-ActiveSheet xlapp)语句时出错，我以前用的是excel2000版的，msxl-Get-ActiveSheet 没有问题，还望高手指点。

龙龙仔

再增加一个判断excel2003 (defun DSX-TYPELIB-EXCEL (/ SYSDRV TLB) ...... ((setq TLB
(findfile
(strcat
SYSDRV
"\\Program Files\\Microsoft Office\\Office11\\Excel.exe"
)
)
)
TLB
) .....

cjs

安装文件的路径可以通过注册表读取：

(vl-registry-read        "HKEY_LOCAL_MACHINE\\SOFTWARE\\Microsoft\\Windows\\CurrentVersion\\App Paths\\excel.exe"
        "path"
      )

另一个问题我不明白：

value2 和 Value 属性的唯一区别在于 Value2 属性不使用 Currency 和 Date 数据类型。通过使用 Double 数据类型，可将用这些数据类型设置格式的数据按浮点数字返回。

如果我要输入的值不是这两种数据类型，就应该可以用"msxl-put-value",为什么在excel 2003 中一点不能用 "msxl-put-value" 而只能用 "msxl-put-value2" 呢?

hustluo93

龙龙仔我爱死你了！找了半天这个同样的问题在这里找到了。

jicqj

原来　原因在这里　哈哈　感谢龙龙仔