错误1004，文件名是否打开，CSV超链接，字符串长度问题？ - Excel VBA

Question

我正在尝试下载CSV文件，但超链接太长。由于只有~10个库存符号的工作长度，这将花费太长时间。任何更多返回错误1004＆＃34;打开对象工作簿失败＆＃34;。有没有什么方法可以最大化接受的字符串长度来减少循环次数？

链接/单元格引用是这样的： http://finance.yahoo.com/d/quotes.csv?s=AAPL+GOOGL+GOOG+MSFT+AMZN+HDB+FB&f=nsaa5bb6

代码是：

Sub test()

Dim csvlink As String
Dim rows As Long

For rows = 1 To 30
    csvlink = Sheets(1).Cells(rows, 1).Value
    Workbooks.Open Filename:=csvlink
    ActiveSheet.Cells.Copy
    Workbooks("test file.xlsb").Activate
    Sheets(3).Range("A1").End(xlDown).Offset(1, 0).PasteSpecial xlPasteValues
Next rows

End Sub