用代码方式设置引用和删除引用

Public Function moveExcelReference()
    Dim ref As Reference
    For Each ref In Application.References
'        On Error Resume Next
        Dim strRef As String: strRef = ""
        strRef = ref.FullPath
'        On Error GoTo ErrorHandler
        If strRef Like "*\EXCEL*.EXE" Then
            Application.References.Remove ref
            MsgBox "移除成功"
        End If
    Next
End Function

Public Function selectExcelRer()
    Dim ref As Reference
    For Each ref In Application.References
'        On Error Resume Next
        Dim strRef As String: strRef = ""
        strRef = ref.FullPath
'        On Error GoTo ErrorHandler
        If strRef Like "*\EXCEL*.EXE" Then
            Application.References.Remove ref
            MsgBox "移除成功"
        End If
    Next
    Dim strExcel As String
    With Application.FileDialog(3)
            .title = "选择文件"
            .InitialFileName = ""
'            If Not .Show Then Exit Function
            If .Show Then
                strExcel = .SelectedItems.Item(1)
            End If
    End With
    If strExcel Like "*EXCEL*.EXE" Then
        Application.References.AddFromFile strExcel
    Else:
        MsgBox "所选的不是Excel程序，请重新选择！"
        Exit Function
    End If
    Form_SysFrmMain.Form.Requery
    MsgBox "添加成功！"
End Function