VBA：运行时错误'；70'；访问数据库时

我有一个.xlsm文件。它包含一个电影列表，应该在在线数据库omdbapi.com中搜索每部电影的信息，并从列

F

开始插入这些信息

MWE如下所示

在第一张纸上，第一部电影的名字是A1单元，上面写着《无法无天》（2012）。第4列和第5列包含名称，其中空格分别变为

+

和从第一个单元格中提取的年份，但我在这里跳过该代码。在本例中，它如下所示：

VBA宏如下所示：

Sub test()

mystr = "http://www.omdbapi.com/?t=" & Cells(1, 4).Value & "&y=" & Cells(1, 5).Value & "&r=xml"
        ActiveWorkbook.XmlImport URL:=mystr, ImportMap:=Nothing, Overwrite:=True, Destination:=Cells(1, 6)
            ActiveWorkbook.Connections.Item(1).Delete

End Sub

---

这段代码运行时间最长。现在，我遇到了一个错误：

运行时错误“70”：

拒绝许可

我搜索了这意味着什么，但没有找到任何似乎适用的东西。

---

此外，internet连接正在工作，没有被其他连接阻塞，excel拥有访问web的所有权限。

请尝试此。。。结果可能会回答您关于代码70的问题

Sub test()

    mystr = "http://www.omdbapi.com/?t=" & Cells(1, 4).Value & "&y=" & Cells(1, 5).Value & "&r=xml"

    Debug.Print mystr       ' copy the url from the "Immediate window"
                            ' and paste into a web browser address bar,
                            ' then navigate to that webpage
                            ' (view immediate window by pressing ctrl-G)

End Sub

---

请试试这个。。。结果可能会回答您关于代码70的问题

Sub test()

    mystr = "http://www.omdbapi.com/?t=" & Cells(1, 4).Value & "&y=" & Cells(1, 5).Value & "&r=xml"

    Debug.Print mystr       ' copy the url from the "Immediate window"
                            ' and paste into a web browser address bar,
                            ' then navigate to that webpage
                            ' (view immediate window by pressing ctrl-G)

End Sub

---

网站上说“2017年10月5日-新的API密钥！由于密钥分发方式的一些安全问题，我更新了表单以通过电子邮件发送密钥，并更改了使用的算法，这意味着您未通过电子邮件获得的旧密钥最终将停止工作。”您知道这一点吗？正如@Tehscript指出的，您可能需要一个新的API密钥。而且您的代码甚至似乎没有通过（较旧的？）键，因为它说用法应该包括

apikey

参数（

http://www.omdbapi.com/?apikey=[你的钥匙]&

）我没有意识到这一点。我没有想到该站点可能已经更改。“这是代码运行时间最长的一次。现在，我遇到了运行时错误“70”：权限被拒绝。”-这应该是该站点已更改的一个巨大提示。（您没有更改代码，所以下一个最可能的解释是有人更改了站点。）好吧，这确实是微不足道的。如果你想回答这个问题，我可以奖励你。网站上写着“2017年10月5日-新API密钥！由于密钥分发的一些安全问题，我更新了表单以发送给他们，并更改了使用的算法，这意味着你的旧密钥最终将停止工作。”您知道吗？正如@Tehscript所指出的，您可能需要一个更新的API密钥。而且您的代码甚至似乎没有通过（较旧的？）键，因为它说用法应该包括

apikey

参数（

http://www.omdbapi.com/?apikey=[你的钥匙]&

）我没有意识到这一点。我没有想到该站点可能已经更改。“这是代码运行时间最长的一次。现在，我遇到了运行时错误“70”：权限被拒绝。”-这应该是该站点已更改的一个巨大提示。（您没有更改代码，所以下一个最可能的解释是有人更改了站点。）好吧，这确实是微不足道的。如果你想回答这个问题，我可以赏金。