Vba 运行时错误1004-打开工作簿超链接

我正在尝试编写一个简单的代码，用于循环浏览来自日本网站的一些.xls文件。在制作框架时，我遇到了运行时1004问题—www.e-stat…找不到，但文件可用。这是密码。如果有人能告诉我哪里出了问题，那就太好了。我试着在互联网上到处寻找答案

Sub automate()

Dim wb As Workbook
Dim filepath As String
Thswb = ThisWorkbook.Name

'Worksheets("data").Activate
'Dim namearray As Integer
 Dim MyArray(1 To 4) As Integer

MyArray(1) = 0
MyArray(2) = 1
MyArray(3) = 2
MyArray(4) = 7

For i = 1 To UBound(MyArray)

        Workbooks.Open "www.e-stat.go.jp/SG1" & "/estat/XlsdlE.do?sinfid=00002723131" & MyArray(i)
        'Do stuff
        'In progress  
        ActiveWorkbook.Close

Next i

End Sub

---

使用协议完全限定URL，并将其句柄分配给wb

Sub automate()
    Dim wb As Workbook
    Dim filepath As String, Thswb As String, i As Integer
    Thswb = ThisWorkbook.Name

    'Worksheets("data").Activate
    'Dim namearray As Integer
     Dim MyArray(1 To 4) As Integer

    MyArray(1) = 0
    MyArray(2) = 1
    MyArray(3) = 2
    MyArray(4) = 7

    For i = 1 To UBound(MyArray)
        Set wb = Workbooks.Open("http://www.e-stat.go.jp/SG1" & "/estat/XlsdlE.do?sinfid=00002723131" & MyArray(i))
        With wb
            'Do stuff
            'In progress
        End With
        wb.Close
        Set wb = Nothing
    Next i
End Sub

---

我通过上述修改运行了您的代码，并能够打开所有4本工作簿。

谢谢您。我真的很感激。再次感谢！