Question

我正在尝试从另一个数据库导入导出的对象。文件扩展名为vba。我创建了一个循环来遍历所有对象。我的循环确实会正确浏览所有文件。循环的确将第一个文件的模块作为模块1导入。我想将该模块从模块1重命名为以前的模块名称。

我正在使用MS Access Office 365。

Sub LoopThroughFiles2()
    Dim strFile As String
    Dim strNewFile As String
    Dim strPath As String
    Dim strNewPath As String
    Dim strDBName As String
    Dim strModName As String

    strDBName = Application.CurrentProject.Name
    strPath = ("C:\Users\Parents\Google Drive\Access Files\File7\")
    strFile = Dir(strPath & "*")
    Do While Len(strFile) > 0
        Debug.Print strFile
        Debug.Print strPath

        strNewFile = Replace(strFile, ".vba", ".txt", 1, , vbTextCompare)
        Debug.Print strNewFile

        Name strPath & strFile As strPath & strNewFile
        strNewPath = strPath & strFile
        strModName = Replace(strNewFile, ".txt", "")
        Debug.Print strModName
        VBE.ActiveVBProject.VBComponents.Import strNewPath
        VBProj.VBComponents("Module 1").Name = strModName 'error 424 
        DoCmd.Rename strModName, acModule, "Module1" 'error 7874

    Loop
End Sub

Answer 1

您不能直接更改名称，但可以更改属性，如下所示：

VBE.ActiveVBProject.VBComponents("Module 1").Properties("Name").Value = strModName

导入错误7874后尝试重命名模块找不到模块1对象

1 个答案: