VBA

Question

我有以下功能可以自动添加 Microsoft Script Runtime 引用到引用列表。但是，如果用户已经包含 Microsoft script runtime，则会显示错误 Name conflicts with existing module,project, object library。

如何设置一个条件，如果 Microsoft script runtime 未包含在参考中，则自动添加，如果已添加，则不执行任何操作？

Private Function AddScriptingLibrary() As Boolean

Const GUID As String = "{420B2830-E718-11CF-893D-00A0C9054228}"

On Error GoTo errHandler
ThisWorkbook.VBProject.References.AddFromGuid GUID, 1, 0
AddScriptingLibrary = True
Exit Function
errHandler:
MsgBox Err.Description

End Function

Answer 1

您需要先枚举项目的引用，以检查引用是否已经存在。

我添加了对 Microsoft Visual Basic for Applications Extensibility 5.3

的引用

Option Explicit

Function AddScriptingLibrary()

    Const GUID_Scripting = "{420B2830-E718-11CF-893D-00A0C9054228}"

    Dim proj As VBIDE.VBProject
    Dim ref As VBIDE.Reference
    Dim ScriptingLibraryIsReferenced As Boolean

    Set proj = ThisWorkbook.VBProject

    For Each ref In proj.References
      If ref.GUID = GUID_Scripting Then
          ScriptingLibraryIsReferenced = True
          AddScriptingLibrary = True
          Exit Function
      End If
    Next ref

    If Not ScriptingLibraryIsReferenced Then
        On Error GoTo errHandler
        proj.References.AddFromGuid GUID_Scripting, 1, 0
        AddScriptingLibrary = True
        Exit Function

errHandler:
    MsgBox Err.Description
      End If

End Function

EDIT 这也是一样的，但没有对 Visual Basic For Applications Extensibility 5.3 参考的早期绑定参考：

Option Explicit

Function AddScriptingLibrary()

    Const GUID_Scripting = "{420B2830-E718-11CF-893D-00A0C9054228}"

    Dim proj As Object 'VBIDE.VBProject
    Dim ref As Object 'VBIDE.Reference
    Dim ScriptingLibraryIsReferenced As Boolean

    Set proj = ThisWorkbook.VBProject

    For Each ref In proj.References
      If ref.GUID = GUID_Scripting Then
          ScriptingLibraryIsReferenced = True
          AddScriptingLibrary = True
          Exit Function
      End If
    Next ref

    If Not ScriptingLibraryIsReferenced Then
        On Error GoTo errHandler
        proj.References.AddFromGuid GUID_Scripting, 1, 0
        AddScriptingLibrary = True
        Exit Function

errHandler:
    MsgBox Err.Description
      End If

End Function

但是，如果您对后期绑定代码的缺点感到满意，您甚至不需要对 Scripting.Runtime 的引用，因为您只需使用：

Option Explicit

Sub PrintDriveCount()

    Dim FSO As Object
    Set FSO = CreateObject("Scripting.FileSystemObject")

    'Print the number of drives in the FileSystemObject
    Debug.Print FSO.Drives.Count

End Function

VBA - 自动 check/uncheck 微软脚本运行时间

VBA - Auto check/uncheck microsoft script run time

excel

vbide

VBA - 自动 check/uncheck 微软脚本 运行 时间

VBA - Auto check/uncheck microsoft script run time

excel

vba

vbide

VBA - 自动 check/uncheck 微软脚本运行时间