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

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

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

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

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

阅读全文>>>

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

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

2,001 次浏览暂无评论

要用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遍历所有的工程组件VBComponent？

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

如下图所示：

在vba工程中有窗体(UserForm1)、类模块（类1）、标准模块（模块1、模块2），文档模块（Sheet1、ThisWorkbook）等组件。

以下示例代码可以遍历所有组[……]

阅读全文>>>
如何用vba返回工程资源管理器中当前选中的VBComponent的信息？

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

如下图所示：

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

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

阅读全文>>>