快速输出 XLS

Free-Lancer

1. (defun _Table:getColumnCount (lst)
   
2.   (apply 'max (mapcar 'length lst))
   
3. )
   
4. (defun _Table:getRowCount (lst)
   
5.   (length lst)
   
6. )
   
7. (defun _List:getRC (lst)
   
8.   (strcat "A1:"
   
9.           (xd::excel:i2ColNo (_Table:GetColumnCount lst))
   
10.           (itoa (_table:getrowcount lst))
    
11. 
    
12.   )
    
13. )
    

(defun _Table:getColumnCount (lst)<br />   (apply 'max (mapcar 'length lst))<br /> )<br /> (defun _Table:getRowCount (lst)<br />   (length lst)<br /> )<br /> (defun _List:getRC (lst)<br />   (strcat "A1:"<br />           (xd::excel:i2ColNo (_Table:GetColumnCount lst))<br />           (itoa (_table:getrowcount lst))<br /> <br />   )<br /> )<br />

游客，如果您要查看本帖隐藏内容请回复

viphappy

力挺楼主，楼主伟才!

dnbcgrass

回复学习学习！:lol

HLCAD

力挺楼主，楼主伟才!

守仁格竹GM

大作   学习         

q3_2006

高效必须学习...

/db_自贡黄明儒_

这才是实用功能

lucas3

感谢大师分享！伟大！

st788796

搜索下相关资料，value 是值，text是cell显示内容，比如cell格式设为小数，保留两位，此时输入0.0085，单元格将显示0.01，即text为"0.01"，string格式，value为0.0085

/db_自贡黄明儒_

不过要改进一下，一个文档已经打开，就往打开的文件追加

st788796

/db_自贡黄明儒_ 发表于 2014-12-19 08:28
不过要改进一下，一个文档已经打开，就往打开的文件追加

追加就获取usedrange后重新计算写入范围，或者用 offset 方法获取地址

spp_wall

高效必须学习...

liuyj

/db_自贡黄明儒_ 发表于 2014-12-19 08:28
不过要改进一下，一个文档已经打开，就往打开的文件追加

这个提议好，就像前两天大师那个例子，点一个实体加一行，很不错。

Free-Lancer

测试下速度，24960个 Point  的 XYZ 坐标写出，计时仅 vlax-put-property 语句

命令: tt
选择对象: 指定对角点: 找到 24960 个
选择对象:
Write XLS Used 1.295
命令:

819534890

太好了，很好用