(XD::Excel:MultiWriteRange)按页写入指定区域数据

st788796

1. (defun XD::Excel:MultiWriteRange (lst startRow startColumn totleRow /)
   
2.   (mapcar '(lambda (x)
   
3.              (xdex_cell_writerange startRow startColumn x)
   
4.              (setq startRow (+ startRow totleRow))
   
5.            )
   
6.           lst
   
7.   )
   
8.   t
   
9. )
   

(defun XD::Excel:MultiWriteRange (lst startRow startColumn totleRow /)<br />   (mapcar '(lambda (x)<br />              (xdex_cell_writerange startRow startColumn x)<br />              (setq startRow (+ startRow totleRow))<br />            )<br />           lst<br />   )<br />   t<br /> )<br />

newer

能给截取个例子吗？不太好理解。

st788796

newer 发表于 2014-12-30 22:19
能给截取个例子吗？不太好理解。

一个模板页面，只有数据区需要修改，其它区域是固定格式，行数超过了就另起一页，这个是在同一 Sheet 下，使用前应先 CopyRange 一个页面

jetcan@21cn.com

支持原创，谢谢