[VBA函数]：选择集写入block问题,r14.01,vb6?

lyq511

如何才能实现哪

efan2000

请看下面的文章，首先创建选择集，选择对象后，用CopyObjects方法直接拷贝到块中。

1. 
   
2. <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="650" id="AutoNumber1" height="498">
   
3.   <tr>
   
4.     <td width="100%" height="489">
   
5.       <iframe name="I1" width="100%" height="100%" src="http://www.xdcad.net/forum/showthread.php?s=&threadid=17080">
   
6. 浏览器不支持嵌入式框架或配置为不显示嵌入式框架
   
7.       </iframe>
   
8.     </td>
   
9.   </tr>
   
10. </table>
    

复制代码

efan2000

先熟悉一下CopyObjects的用法。具体用法就是首先创建一个选择集，选择对象后，再创建一个对象数组，通过循环将选择集中的对象一一放入对象数组中，最后用CopyObjects方法将对象数组放入块中（只要将第二个参数设为块对象就可以了）。