CodeModule | ExcelOffice【微信公众号：水星Excel】

如何用vba删除vba工程中指定组件代码中的空行或代码注释?

2019年5月1日作者：水星Excel
1,920 次浏览暂无评论

对于vba代码很多的时候，如果要批量删除vba代码中的代码注释，或者代码空行，可以使用如下的通用代码：

以下代码将批量删除工作表1中的所有vba代码中的注释和空行。
[crayon-60a3d1f20[……]

阅读全文>>>

如何用vba将vba工程中的所有模块导出？

2018年10月18日作者：水星Excel

2,388 次浏览暂无评论

要用vba将vba工程中的所有模块导出，需要用到CodeModule对象的Export方法，代码如下：

Sub QQ1722187970()
    Dim oVC As VBComponent
    Dim sPath As String
    sPath = Excel.ThisWorkbook.Path
    For Each oVC In Excel.ThisWorkbook.VBProject.VBComponents
        With oVC
            sName = .Name
            '导出
            .Export sPath & "\" & sName
        End With
    Next
End Sub

1

2

3

4

5

6

7

8

9

10

11

12

Sub QQ1722187970()

Dim oVC As VBComponent

Dim sPath As String

sPath = Excel.ThisWorkbook.Path

For Each oVC In Excel.ThisWorkbook.VBProject.VBComponents

With oVC

sName = .Name

'导出

.Export sPath & "\" & sName

End With

Next

End Sub

[……]

阅读全文>>>

如何用vba删除所有vba工程中的vba代码？

2018年10月18日作者：水星Excel
3,815 次浏览暂无评论
如下图所示：

vba工程中有许多组件，每个组件中都可能有vba代码，如果要把所有vba代码都删除，需要访问组件的CodeModule对象。

具体步骤如下：
1. 先遍历所有VBComp[……]
阅读全文>>>
如何用vba将某个模块的所有vba代码添加插入到其它模块中？

2018年10月18日作者：水星Excel
2,384 次浏览暂无评论
要用vba将某个模块的所有vba代码添加插入到其它模块中，需要按照以下步骤：
1. 获取要复制的代码所在的组件的CodeModule对象；
2. 用Lines属性获取该组件的CodeModule对象的所有[……]
阅读全文>>>
如何用vba返回工程资源管理器中当前选中的VBComponent的信息？

2018年10月18日作者：水星Excel
1,031 次浏览暂无评论

如下图所示：

在vbe中当前选中的是标准模块中的“模块1”，在vba中可以使用VBE对象的SelectedVBComponent属性返回当前选中的vba工程中的组件。

以下示例代码将返回当[……]

阅读全文>>>