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

Question

我正在尝试编写一个简单的代码来循环浏览日文站点中的某些.xls文件。在创建框架时，我遇到了Runtime 1004问题 - www.e-stat ...找不到，但这些文件都可用。这是代码。如果有人能告诉我我哪里出错了，那会很棒。 PS - 我试过在互联网上寻找答案。

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 

Answer 1

完全限定协议的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个工作簿。