自动更改公式中工作簿之间的链接

美好的一天

请有人帮我解决我面临的问题。 我有下面的脚本，自动更改另一个工作簿的公式链接。问题在于，当我在我的笔记本电脑（Windows 10 Office 365）上运行它我得到一个运行时错误，并要求我debugging以下行。 在运行Windows 7 Office 2010的朋友计算机上，它似乎运行在她的上面。 这是它要求我debugging的行：

ThisWorkbook.ChangeLink Name:=strLink, NewName:=strLinkNew, Type:=xlExcelLinks 

整个脚本如下：

 Dim strFile As String Dim aLinks As Variant Dim i As Long Dim strLink As String Dim strLinkNew As String With Application.FileDialog(msoFileDialogFilePicker) .AllowMultiSelect = False .Show If .SelectedItems.Count > 0 Then strLinkNew = .SelectedItems(1) aLinks = ThisWorkbook.LinkSources(xlExcelLinks) If Not IsEmpty(aLinks) Then For i = 1 To UBound(aLinks) strLink = aLinks(i) If strLink Like "*\CRiSP*.xlsm" Then 'Change Linked File Sheets("Links").Select ThisWorkbook.Worksheets("Links").Unprotect "MYPASSWORD" ThisWorkbook.ChangeLink Name:=strLink, NewName:=strLinkNew, Type:=xlExcelLinks ThisWorkbook.Worksheets("Links").Protect "MYPASSWORD" End If Next End If End If End With Sheets("Main Menu").Select Cells(1, 1).Select Dim flToSave As Variant Dim flName As String Dim flFormat As Long flFormat = ActiveWorkbook.FileFormat flName = Range("A1") & Range("A2").Text flToSave = Application.GetSaveAsFilename _ (ThisWorkbook.Path & "\" & flName, filefilter:="Excel Files (*.xlsm), *.xlsm", _ Title:="Save FileAs...") If flToSave = False Then Exit Sub Else ThisWorkbook.SaveAs Filename:=flToSave, FileFormat:=flFormat End If End Sub 

感谢您的帮助家伙！