使用 Excel 方法获取数字定义的行列区域

st788796

2. 
   
3. (setq xl (vlax-get-object "excel.application"))
   
4. (setq sht (vlax-get xl 'activesheet));_活动Sheet
   
5. (setq range (vlax-get sht 'usedrange));_用户区域
   
6. (setq first (vlax-get-property (variant-value (vlax-get-property range 'item 1 2)) 'address 0 0 1));_ (1 2) 对应的excel单元格地址
   
7. (setq end (vlax-get-property (variant-value (vlax-get-property range 'item 5 6)) 'address 0 0 1));_ (5 6) 对应的excel单元格地址
   
8. (vlax-get-property sht 'Range (strcat first ":" end));_(1 2) (5 6) 构成的range
   

<br /> (setq xl (vlax-get-object "excel.application"))<br /> (setq sht (vlax-get xl 'activesheet));_活动Sheet<br /> (setq range (vlax-get sht 'usedrange));_用户区域<br /> (setq first (vlax-get-property (variant-value (vlax-get-property range 'item 1 2)) 'address 0 0 1));_ (1 2) 对应的excel单元格地址<br /> (setq end (vlax-get-property (variant-value (vlax-get-property range 'item 5 6)) 'address 0 0 1));_ (5 6) 对应的excel单元格地址<br /> (vlax-get-property sht 'Range (strcat first ":" end));_(1 2) (5 6) 构成的range<br />

由表计算地址的数学方法可以在开源函数库论坛查找

sh_h

谢谢楼主分享，如果能够开个专贴系统的讲讲就更好了！