使用VBA代码导出工作簿下所有模块

dogingate

Attribute VB_Name = "模块导出"
'''1、引用Microsoft Visual Basic for Application Extensibility 5.3，
'''2、并且选择信任对VBA工程访问）
Sub VBComponentsExporting()
Dim strExportFolderPath As String
Dim oVBComp As VBComponent
Dim oExportFolder As Object
Dim strExtName As String
Dim oWb As Workbook

Set oWb = ThisWorkbook

Set fso = CreateObject("scripting.filesystemobject")

strExportFolderPath = oWb.Path & "\" & "所有模块"

If Not fso.folderexists(strExportFolderPath) Then
    fso.createfolder (strExportFolderPath)
End If

Set zd = CreateObject("scripting.dictionary")

For Each oVBComp In ThisWorkbook.VBProject.VBComponents
    If Not zd.exists(oVBComp.Name) Then
        Select Case oVBComp.Type
            Case vbext_ct_StdModule 'case 1
                zd(oVBComp.Name) = oVBComp.Name & ".bas"
            Case vbext_ct_ClassModule 'case 2
                zd(oVBComp.Name) = oVBComp.Name & ".cls"
            Case vbext_ct_MSForm 'case 3
                zd(oVBComp.Name) = oVBComp.Name & ".frm"
            Case vbext_ct_Document 'case 100
                If oVBComp.Name <> "ThisWorkbook" Then
                    For Each sht In ThisWorkbook.Worksheets
                        If sht.CodeName = oVBComp.Name Then
                            zd(oVBComp.Name) = sht.Name & ".txt"
                        End If
                    Next sht
                Else
                    zd(oVBComp.Name) = oVBComp.Name & ".txt"
                End If
        End Select
    End If
Next oVBComp

Set oVBProj = ThisWorkbook.VBProject
zdkeys = zd.keys
For i = 0 To zd.Count - 1
    strVBCompName = zdkeys(i)
    oVBProj.VBComponents(strVBCompName).Export strExportFolderPath & "\" & zd(strVBCompName)
Next i

MsgBox "所有模块导出完毕！"

End Sub

liulang0808

Kill file
这个地方需要慎重的，
另外建议楼主不要仅仅上传代码，提供相关模拟附件，并对代码进行解释说明

dogingate

liulang0808 发表于 2018-7-17 13:06
Kill file
这个地方需要慎重的，
另外建议楼主不要仅仅上传代码，提供相关模拟附件，并对代码进行解释说 ...

好的                 好的

sdupjj

非常棒的代码！

huazai688

好用！谢谢！

7259

Dim oVBComp As VBComponent  为什么显示编译错误

dogingate

7259 发表于 2019-9-10 22:35
Dim oVBComp As VBComponent  为什么显示编译错误

估计是版本的问题吧，你用的哪个版本
也就是说你的版本里没有vbcomponent这个系统定义变量

你可以改成dim ovbcomp as object试试

anderlue

强贴

zhangwg0604

huang1314wei 发表于 2016-4-1 21:29 Sub test()     Rem:需要前期绑定Microsoft Visual Basic For Application Extensibility 5.3     Dim vb ...  求助，导出功能，数据格式问题。 谢谢 http://club.excelhome.net/thread-1537349-1-1.html

dyhq2012

为什么我运行后 只是建了个目录