Visual LISP与Excel电子表格

(if out

(append out (list (DSX-Excel-Get-CellValue next col))) (list (DSX-Excel-Get-CellValue next col)) )

next (1+ next) )

); repeat out )

;;;*************************************************************************

;;; 模块: DSX-Excel-GetRangeValues-ByRows ;;; 描述: 按行顺序获得某一区域的值并返回嵌套的列表 ;;; 参数: 起始行, 起始列, 行数, 列数

;;; 样例: (DSX-Excel-GetRangeValues-ByRows 1 1 5 10) 获取从1A到5J区域的值，每一子列表为一行

;;;*************************************************************************

(defun DSX-Excel-GetRangeValues-ByRows (startrow startcol numrows numcols / nextrow rowlst outlst) (setq nextrow startrow) (repeat numrows

(setq rowlst (DSX-Excel-Get-RowValues nextrow startcol numcols) outlst (if outlst (append outlst (list rowlst)) (list rowlst)) nextrow (1+ nextrow) ) ) outlst

)

;;;*************************************************************************

;;; 模块: DSX-Excel-GetRangeValues-ByCols ;;; 描述: 按列顺序获得某一区域的值并返回嵌套的列表 ;;; 参数: 起始行, 起始列, 行数, 列数

;;; 样例: (DSX-Excel-GetRangeValues-ByCols 1 1 5 10) 获取从 1A到 5J区域的值，每一子列表为一列

;;;*************************************************************************

(defun DSX-Excel-GetRangeValues-ByCols (startrow startcol numrows numcols / nextrow nextcol collst outlst) (setq nextcol startcol) (repeat numcols

(setq collst (DSX-Excel-Get-ColumnValues nextcol startrow numrows) outlst (if outlst (append outlst (list collst)) (list collst)) nextcol (1+ nextcol) ) ) outlst )

好了!现在可以从Excel中攫取数据了，但既然可以取数据，也应该可以写入数据才对，下面就介绍怎样将值填入到单元格中。示例7演示了怎样将列表值输入到一行或一列的单元格中。这可以很方便地让你将图形中的数据转到Excel中。这样可让你轻松地将图形中的内容输出到报告中让你的老板感受你惊人的天才。

示例 7: 将数据输入到工作表中

;;;*************************************************************************

;;; 模块: DSX-Excel-Put-ColumnList

;;; 描述: 将列表写到工作表指定列(startcol)中的指定起始行(startrow) ;;; 参数: list, startrow, startcol

;;; 样例: (DSX-Excel-Put-ColumnList '(\将数据分别输出到单元格(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 '(\将数据分别输出到单元格(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 )

单独的数据将不会给你留下多深的印象。就是你输入“一个老板”也是一样的。你必须增加一些颜色给它，还有就是加些格式。让它漂亮起来!示例8给出了一些怎样一次性添加颜色给单元格或整行或整列。注意EXCEL的颜色调色板和AutoCAD是不一样的。你必须无能为力钻研Excel的在线帮助并找到你需要的颜色索引。

示例8: 更改Excel单元格的属性(颜色)

;;;*************************************************************************

;;; 模块： DSX-Excel-Put-CellColor ;;; 描述： 为指定单元格填入颜色

;;; 参数： row, column, color (integer)

;;; 示例： (DSX-Excel-Put-CellColor 1 1 14) 将颜色#14填入到单元格(1,A) ;;;*************************************************************************

(defun DSX-Excel-Put-CellColor (row col intcol / rng)