向活动Excel表格指定单元格写入数据

st788796

2. 
   
3. (defun xd::excel:setCellValue (addr str / range)
   
4.   (or **XD::Excel**
   
5.       (setq **XD::Excel**
   
6.              (vlax-get-or-create-object "Excel.Application")
   
7.       )
   
8.   )
   
9.   (setq        range (vlax-get-property
   
10.                 (vlax-get **XD::Excel** 'ActiveSheet)
    
11.                 'Range
    
12.                 addr
    
13.               )
    
14.   )
    
15.   (vlax-put range 'Value str)
    
16.   t
    
17. )

<br /> (defun xd::excel:setCellValue (addr str / range)<br />   (or **XD::Excel**<br />       (setq **XD::Excel**<br />              (vlax-get-or-create-object "Excel.Application")<br />       )<br />   )<br />   (setq        range (vlax-get-property<br />                 (vlax-get **XD::Excel** 'ActiveSheet)<br />                 'Range<br />                 addr<br />               )<br />   )<br />   (vlax-put range 'Value str)<br />   t<br /> )

lw5297590

来个实例看看，学习一下，谢谢分享

染指红颜_笑

如何按行输出内容，而不是指定单元格地址。。

qxlonmsn

今天能够回复了  好多帖子的内容都丢失了  希望早点恢复到以前的样子

qxlonmsn

好多帖子都打不开   就这个能打开 真是奇了怪

xvjiex

回复一下看看，感谢分享！

qxlonmsn

希望论坛尽快恢复!!!!!!

xvjiex

看不到内容，望论坛早点修复！

qxlonmsn

论坛的内容还是看不到  希望早点恢复!

qxlonmsn

我咋就只能打开这个帖子

qxlonmsn

怎么只有这个帖子能打开,快点恢复到以前的样子把

xvjiex

感谢楼主分享！回复一下看看！

qxlonmsn

希望论坛快点恢复!!!!!!!!

qxlonmsn

论坛快点恢复啊

qxlonmsn

快快恢复吧