07图示围墙lisp_LISP 编程教材

( (setq appsession (vlax-get-or-create-object "Excel.Application"))

(vlax-invoke-method

(vlax-get-property appsession 'WorkBooks)

'Open fn

)

(if (= (strcase dmode) "SHOW")

(vla-put-visible appsession 1)

(vla-put-visible appsession 0)

)

)

)

)

( T (alert (strcat "\n不能找到指定的文件: " xfile)) )

)

appsession

)

现在你已经打开了工作簿并进入活动的工作表中，你肯定还想进一步取在表中取点数据。

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

;;; 获取行和列 范围内的单元格对象

(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

)

)

)

)

尽管获取单个单元格的值有时是足够的，但经常情况下你会要求一次性获取一个指定行列范围内的值。这里有一些函数用于从多行、多列或单元格数组获取值。

Figure 6: 在活动的工作表中获取一定行列范围中的数据