Question

我有一个模块可以在MS Project中创建自定义选项卡。此模块在另一台计算机上更新，当有新版本时，模块将被删除并再次导入。我通过运行检查Project_Activate上的更新的代码来执行此操作，并且还调用自定义选项卡编码的模块。问题是当有更新时，对Project_Activate上的模块的调用不起作用，因为模块已被删除。

这就是我在Project_Activate上使用的内容：

Set rng_modules = xlbook.Worksheets(1).Range("A3")  'Column with modules names
Do While rng_modules.Value <> Empty
    'Updated modules if necessary
    linha = rng_modules.Row
    Set atualizado = username.Offset(linha - 2)
    Set module_name = rng_modules.Offset(, 1)
    If atualizado.Value = "Not Updated" Then
        With ThisProject.VBProject
            len1 = Len(module_name.Value)
            len2 = len1 - 4
            module_name_short = Left(module_name.Value, len2)
            On Error Resume Next
            .VBComponents.Remove .VBComponents(module_name_short)
            .VBComponents.import modulesVBA_loc & module_name.Value
        End With
        atualizado.Value = "Updated"
    End If
    Set rng_modules = rng_modules.Offset(1)
Loop 

PNtab 'Sub in module PNtab_mod that has the custom tab coded in XML

按住直到模块更新VBA

0 个答案: