Question

我有一组〜10个模块/表单/类，我喜欢在许多项目中使用和重用。通常，这些模块位于项目的中间或结尾，而不是开始（因此，请不要制作模板并从头开始使用它-我使用它来制作一些项目）。有没有简单的方法可以批量导入模块和引用（不涉及将文件扩展名更改为.zip）？

我愿意使用文件扩展名更改方法，但我想先用尽其他资源

Answer 1

批量导入时不需要任何代码或加载项。只需将常用文件保存在一个仅包含这些文件的特定文件夹中。

这是鲜为人知的VBE功能， Project Explorer 支持拖放。

然后，当您开始一个新的VBA项目时，将文件从Windows资源管理器中拖放到VBE的 Project Explorer 工具窗口中-完成。

由于某些原因，VBE的“导入”文件浏览对话框阻止了多个选择。 Rubberduck通过在其“导入”文件浏览对话框中允许多个选择（不使用其 Code Explorer 工具窗口）进行了修复，其“导出活动项目”工具可轻松导出整个文件。项目的源代码到给定的文件夹中，例如本地git存储库。

对于项目引用，没有代码可以自动执行此操作，而无需解析某些元数据，这些元数据必须包含在模块本身的某个位置。添加项目引用很烦人... Rubberduck的“添加/删除引用”对话框使操作变得更加简单：

免责声明：我管理Rubberduck开源项目。

Answer 2

您可以通过vba代码完成操作

我从这里获取此代码： https://www.rondebruin.nl/win/s9/win002.htm

Public Sub ImportModules()
    Dim wkbTarget As Excel.Workbook
    Dim objFSO As Scripting.FileSystemObject
    Dim objFile As Scripting.File
    Dim szTargetWorkbook As String
    Dim szImportPath As String
    Dim szFileName As String
    Dim cmpComponents As VBIDE.VBComponents

    If ActiveWorkbook.Name = ThisWorkbook.Name Then
        MsgBox "Select another destination workbook" & _
        "Not possible to import in this workbook "
        Exit Sub
    End If

    'Get the path to the folder with modules
    If FolderWithVBAProjectFiles = "Error" Then
        MsgBox "Import Folder not exist"
        Exit Sub
    End If

    ''' NOTE: This workbook must be open in Excel.
    szTargetWorkbook = ActiveWorkbook.Name
    Set wkbTarget = Application.Workbooks(szTargetWorkbook)

    If wkbTarget.VBProject.Protection = 1 Then
    MsgBox "The VBA in this workbook is protected," & _
        "not possible to Import the code"
    Exit Sub
    End If

    ''' NOTE: Path where the code modules are located.
    szImportPath = FolderWithVBAProjectFiles & "\"

    Set objFSO = New Scripting.FileSystemObject
    If objFSO.GetFolder(szImportPath).Files.Count = 0 Then
       MsgBox "There are no files to import"
       Exit Sub
    End If

    'Delete all modules/Userforms from the ActiveWorkbook
    Call DeleteVBAModulesAndUserForms

    Set cmpComponents = wkbTarget.VBProject.VBComponents

    ''' Import all the code modules in the specified path
    ''' to the ActiveWorkbook.
    For Each objFile In objFSO.GetFolder(szImportPath).Files

        If (objFSO.GetExtensionName(objFile.Name) = "cls") Or _
            (objFSO.GetExtensionName(objFile.Name) = "frm") Or _
            (objFSO.GetExtensionName(objFile.Name) = "bas") Then
            cmpComponents.Import objFile.Path
        End If

    Next objFile

    MsgBox "Import is ready"
End Sub
    Public Sub ExportModules()
        Dim bExport As Boolean
        Dim wkbSource As Excel.Workbook
        Dim szSourceWorkbook As String
        Dim szExportPath As String
        Dim szFileName As String
        Dim cmpComponent As VBIDE.VBComponent

        ''' The code modules will be exported in a folder named.
        ''' VBAProjectFiles in the Documents folder.
        ''' The code below create this folder if it not exist
        ''' or delete all files in the folder if it exist.
        If FolderWithVBAProjectFiles = "Error" Then
            MsgBox "Export Folder not exist"
            Exit Sub
        End If

        On Error Resume Next
            Kill FolderWithVBAProjectFiles & "\*.*"
        On Error GoTo 0

        ''' NOTE: This workbook must be open in Excel.
        szSourceWorkbook = ActiveWorkbook.Name
        Set wkbSource = Application.Workbooks(szSourceWorkbook)

        If wkbSource.VBProject.Protection = 1 Then
        MsgBox "The VBA in this workbook is protected," & _
            "not possible to export the code"
        Exit Sub
        End If

        szExportPath = FolderWithVBAProjectFiles & "\"

        For Each cmpComponent In wkbSource.VBProject.VBComponents

            bExport = True
            szFileName = cmpComponent.Name

            ''' Concatenate the correct filename for export.
            Select Case cmpComponent.Type
                Case vbext_ct_ClassModule
                    szFileName = szFileName & ".cls"
                Case vbext_ct_MSForm
                    szFileName = szFileName & ".frm"
                Case vbext_ct_StdModule
                    szFileName = szFileName & ".bas"
                Case vbext_ct_Document
                    ''' This is a worksheet or workbook object.
                    ''' Don't try to export.
                    bExport = False
            End Select

            If bExport Then
                ''' Export the component to a text file.
                cmpComponent.Export szExportPath & szFileName

            ''' remove it from the project if you want
            '''wkbSource.VBProject.VBComponents.Remove cmpComponent

            End If

        Next cmpComponent

        MsgBox "Export is ready"
    End Sub




Function FolderWithVBAProjectFiles() As String
    Dim WshShell As Object
    Dim FSO As Object
    Dim SpecialPath As String

    Set WshShell = CreateObject("WScript.Shell")
    Set FSO = CreateObject("scripting.filesystemobject")

    SpecialPath = WshShell.SpecialFolders("MyDocuments")

    If Right(SpecialPath, 1) <> "\" Then
        SpecialPath = SpecialPath & "\"
    End If

    If FSO.FolderExists(SpecialPath & "VBAProjectFiles") = False Then
        On Error Resume Next
        MkDir SpecialPath & "VBAProjectFiles"
        On Error GoTo 0
    End If

    If FSO.FolderExists(SpecialPath & "VBAProjectFiles") = True Then
        FolderWithVBAProjectFiles = SpecialPath & "VBAProjectFiles"
    Else
        FolderWithVBAProjectFiles = "Error"
    End If

End Function

Function DeleteVBAModulesAndUserForms()
        Dim VBProj As VBIDE.VBProject
        Dim VBComp As VBIDE.VBComponent

        Set VBProj = ActiveWorkbook.VBProject

        For Each VBComp In VBProj.VBComponents
            If VBComp.Type = vbext_ct_Document Then
                'Thisworkbook or worksheet module
                'We do nothing
            Else
                VBProj.VBComponents.Remove VBComp
            End If
        Next VBComp
End Function

VBA中的大量导入模块和参考

2 个答案: