VB工程中源代码导出工具

最新推荐文章于 2024-09-18 17:01:00 发布

xianyuxiaoqiang

最新推荐文章于 2024-09-18 17:01:00 发布

阅读量2k

点赞数

CC 4.0 BY-SA版权

分类专栏： VBA

本文链接：https://blog.youkuaiyun.com/xianyuxiaoqiang/article/details/50261825

该工具专注于从VB工程中导出源代码，利用Microsoft Visual Basic for Application Extensibility 5.3库，可能需要调整宏安全设置来确保正常运行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

Sub exportVBSourceTool()

Dim ExportPath As String, ExtendName As String
Dim vbc As VBComponent
Dim i%

    'ExportPath = ThisWorkbook.Path
    ExportPath = "C:\export_VBASource"  'make sure the folder is exist before run

    For Each vbc In Application.VBE.ActiveVBProject.VBComponents
        'get module code line count
        i = ThisWorkbook.VBProject.VBComponents(vbc.Name).CodeModule.CountOfLines
        
        'if code count>=1,export
        'else skip
        If i >= 1 Then
            Select Case vbc.Type
            Case vbext_ct_ClassModule, vbext_ct_Document    'class module,excel object
                ExtendName = ".Cls"    'set extension name
            Case vbext_ct_MSForm    'form
                ExtendName = ".frm"
            Case vbext_ct_StdModule    'module
                ExtendName = ".Bas"
            End Select
            If Ext