如何用vba将某个模块的所有vba代码添加插入到其它模块中?

要用vba将某个模块的所有vba代码添加插入到其它模块中,需要按照以下步骤:

  1. 获取要复制的代码所在的组件的CodeModule对象;
  2. Lines属性获取该组件的CodeModule对象的所有代码,其中第一行代码的行号为1;
  3. 获取要插入代码的组件的的CodeModule对象;
  4. AddFromString方法添加步骤2中获取的代码,AddFromString方法添加的代码将插入在组件代码第一个子过程中的前面,如果组件中没有任何代码,则添加在最后。

以下示例代码可以将所有组件中的代码添加插入到当前模块中:

以下示例代码可以将指定组件(名为modCommon)中的所有代码插入到指定的组件(第一个工作表)中:





       

发表评论