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

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