[求助]lisp能不能把excel中数据以字符串型取出？

天青色

lisp能不能把excel中数据以字符串型取出？

       Visual LISP与Excel电子表格http://www.mjtd.com/a2/list.asp?id=348中的程序对于excel和lisp的应用给了很好的说明，但从excel取出的数据要么是实型数（REAL）要么是符号（SYM），这样要把这些数据写到图中不方便，能不能把excel中数据以字符串型直接取出。

示例 5: 在活动的工作表中的单个单元格中获取数据

;;; 获取行<relrow> 和列 <relcol>范围内的单元格对象

(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)

)

)

)

;;; 返回单元格(row, col)内容的值

(defun DSX-Excel-Get-CellValue (row col)

(vlax-variant-value

(msxl-get-value

(DSX-Excel-Get-Cell

(msxl-get-ActiveSheet xlapp)

row col

)

)

)

)

nonsmall

楼主或许可以试试我的vlisp开发小助手

直接对象操作取的就是字符串 类库可以不导入

命令: (Vlax-Get (Vlax-Get (Vlax-Get-Or-Create-Object "Excel.Application" ) 'Selection) 'Text )

"asdf" 

命令Vlax-Get (Vlax-Get-property (Vlax-Get-Or-Create-Object "Excel.Application" ) 'Range "A1") 'Text)

"asdf"

天青色

谢谢！我学了lisp但没学vba，在用vlisp开发小助手（Lisp_v15）时，找不到'Text ，能不能再指点一下，最好写成lisp程序能使用的语句。

如果不能把excel中数据以字符串型取出，那要用vl-symbol-name等函数转换，比较麻烦。