(XD::Excel:createToFile)表内容写入 XLS 文件

st788796

1. ;|
   
2. 表写入 xls,xlsx 文件
   
3. 参  数:  fn  ---- 文件名
   
4.          lst ---- 表
   
5. 返回值: 成功 T , 失败 nil
   
6. |;
   
7. (defun XD::Excel:createToFile (fn lst / format)
   
8.   (and (if (= (strcase (vl-filename-extension fn)) ".XLSX")
   
9.          (xdex_book_open t)
   
10.          (xdex_book_open)
    
11.        )
    
12.        (setq format (xdex_book_addFormat))
    
13.        (xdex_setpropertyvalue
    
14.          format        "AlignH" "center" "AlignV" "center")
    
15.        (xdex_book_setWorkFormat format)
    
16.        (xdex_book_addsheet "sheet1" t)
    
17.        (xdex_cell_writerange 0 0 lst)
    
18.        (xdex_book_save fn)
    
19.        (xdex_book_close)
    
20.   )
    
21. )
    

;|<br /> 表写入 xls,xlsx 文件<br /> 参  数:  fn  ---- 文件名<br />          lst ---- 表<br /> 返回值: 成功 T , 失败 nil<br /> |;<br /> (defun XD::Excel:createToFile (fn lst / format)<br />   (and (if (= (strcase (vl-filename-extension fn)) ".XLSX")<br />          (xdex_book_open t)<br />          (xdex_book_open)<br />        )<br />        (setq format (xdex_book_addFormat))<br />        (xdex_setpropertyvalue<br />          format        "AlignH" "center" "AlignV" "center")<br />        (xdex_book_setWorkFormat format)<br />        (xdex_book_addsheet "sheet1" t)<br />        (xdex_cell_writerange 0 0 lst)<br />        (xdex_book_save fn)<br />        (xdex_book_close)<br />   )<br /> )<br />

st788796

更新，增加全部置中