用另一个excel文件中的数据更新工作簿中链接的VB脚本

我可以使用数据菜单项下的“编辑链接”选项手动更新链接，但我正在尝试使用按钮更新链接。以下是我到目前为止所掌握的内容，但我被困在下面脚本中的

updatelink

行中：

Sub GetLinks()

    Dim Response As Integer, PASSWORD As String
    Response = MsgBox(prompt:="UPDATE NOW?", Buttons:=vbYesNo)

        If Response = vbYes Then        
            ActiveSheet.Unprotect ("456")
            ActiveWorkbook.UpdateLink Name:="c:\activityreportdatabase.xlsx", Type:=xlExcelLinks
            ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True
            ActiveSheet.Protect ("456")
        Else
        End If

End Sub

---

activityreportdatabase.xlsx

真的在根目录中吗？我被卡住的具体意思是什么？您没有解释问题，也没有提出可以回答的问题。脚本停止运行，调试将我带到注释行。克里斯·尼尔森，是的，文件位于该位置。肯，您熟悉我正在尝试完成的任务吗？这是你的驾驶室吗？我试图使用一个带有脚本的按钮，该脚本将使用存储在指定位置的文件中的数据更新链接。脚本在包含我需要的数据的文件的位置\文件名的代码行停止运行。