访问数据库时VBA：运行时错误“70”

Question

我有一个.xlsm文件。它包含电影列表，应该搜索在线数据库omdbapi.com以获取有关每部电影的信息，并从列F开始插入此信息。

MWE如下所示。

在第一张纸中，它在单元格A1中只显示Lawless (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'：

     

许可被拒绝。

我搜索了这意味着什么，但没有找到任何似乎适用的东西。 此外，互联网连接正在运行，而不会被其他连接阻塞，并且excel拥有访问网络的所有权利。

Answer 1

请尝试这个...结果可能会回答您关于代码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