Excel 查询表-运行时错误1004-找不到答案

首先，我确实意识到这个论坛有很多关于这个问题的答案，但是，很明显，这个错误信息可能指向很多类型的错误。我尝试了很多解决方案，但没有一个对我有效。 那么，我们开始吧，代码：

Sub GetWebTable()
    Dim AlgoIn(1 To 13) As String
    Dim HRIn(1 To 13) As String
    Dim ConsIn(1 To 13) As String
    Dim Custo As String
    Dim QtdPlacas(1 To 16) As String
    Dim Algos(1 To 13) As String
    Dim HRs(1 To 13) As String
    Dim Cons(1 To 13) As String


    Dim i As Integer

    Algos(1) = "&eth="
    Algos(2) = "&grof="
    Algos(3) = "&x11gf="
    Algos(4) = "&cn="
    Algos(5) = "&cn7="
    Algos(6) = "&eq="
    Algos(7) = "&lre="
    Algos(8) = "&ns="
    Algos(9) = "&tt10="
    Algos(10) = "&x16r="
    Algos(11) = "&skh="
    Algos(12) = "&n5="
    Algos(13) = "&xn="

    HRs(1) = "&factor%5Beth_hr%5D="
    HRs(2) = "&factor%5Bgro_hr%5D="
    HRs(3) = "&factor%5Bx11g_hr%5D="
    HRs(4) = "&factor%5Bcn_hr%5D="
    HRs(5) = "&factor%5Bcn7_hr%5D="
    HRs(6) = "&factor%5Beq_hr%5D="
    HRs(7) = "&factor%5Blrev2_hr%5D="
    HRs(8) = "&factor%5Bns_hr%5D="
    HRs(9) = "&factor%5Btt10_hr%5D="
    HRs(10) = "&factor%5Bx16r_hr%5D="
    HRs(11) = "&factor%5Bskh_hr%5D="
    HRs(12) = "&factor%5Bn5_hr%5D="
    HRs(13) = "&factor%5Bxn_hr%5D="

Cons(1) = "&factor%5Beth_p%5D="
Cons(2) = "&factor%5Bgro_p%5D="
Cons(3) = "&factor%5Bx11g_p%5D="
Cons(4) = "&factor%5Bcn_p%5D="
Cons(5) = "&factor%5Bcn7_p%5D="
Cons(6) = "&factor%5Beq_p%5D="
Cons(7) = "&factor%5Blrev2_p%5D="
Cons(8) = "&factor%5Bns_p%5D="
Cons(9) = "&factor%5Btt10_p%5D="
Cons(10) = "&factor%5Bx16r_p%5D="
Cons(11) = "&factor%5Bskh_p%5D="
Cons(12) = "&factor%5Bn5_p%5D="
Cons(13) = "&factor%5Bxn_p%5D="


Worksheets(1).Activate
For i = 1 To 13
    If Cells(7, i + 1).Text = "S" Then
        AlgoIn(i) = "true"
    Else
        AlgoIn(i) = "false"
    End If
Next i

For i = 1 To 13
        HRIn(i) = ActiveSheet.Cells(8, i + 1).Text
Next i

For i = 1 To 13
        ConsIn(i) = ActiveSheet.Cells(9, i + 1).Text
Next i

For i = 1 To 16
        QtdPlacas(i) = ActiveSheet.Cells(4, i + 1).Text
Next i


Custo = ActiveSheet.Cells(12, 2).Text




Dim sURL As String

sURL = "https://whattomine.com/coins?utf8=%E2%9C%93&adapt_q_280x=0&adapt_q_380=0&adapt_q_fury=0&adapt_q_470=0&adapt_q_480=0&adapt_q_570=0&adapt_q_580=0&adapt_q_vega56=0&adapt_q_vega64=0&adapt_q_750Ti=0&adapt_q_1050Ti=0&adapt_q_10606=0&adapt_q_1070=0&adapt_q_1070Ti=0&adapt_q_1080=0&adapt_q_1080Ti=0"

For i = 1 To 13
    sURL = sURL & Algos(i) & AlgoIn(i) & HRs(i) & HRIn(i) & Cons(i) & ConsIn(i)
Next i

sURL = sURL & "&factor%5Bcost%5D=" & Custo & "&sort=Profitability24&volume=0&revenue=24h&factor%5Bexchanges%5D%5B%5D=&factor%5Bexchanges%5D%5B%5D=binance&factor%5Bexchanges%5D%5B%5D=bitfinex&factor%5Bexchanges%5D%5B%5D=bittrex&factor%5Bexchanges%5D%5B%5D=cryptobridge&factor%5Bexchanges%5D%5B%5D=cryptopia&factor%5Bexchanges%5D%5B%5D=hitbtc&factor%5Bexchanges%5D%5B%5D=poloniex&factor%5Bexchanges%5D%5B%5D=yobit&dataset=&commit=Calculate"

ActiveSheet.Cells(1, 1) = sURL
Worksheets(2).Activate
With ActiveSheet.QueryTables.Add(Connection:="URL;" & sURL, Destination:=Range("A1"))

    >>>.Refresh BackgroundQuery:=False<<< ERROR LINE
    .SaveData = True
End With

End Sub

子GetWebTable（）
作为字符串的Dim AlgoIn（1到13）
作为字符串的Dim HRIn（1到13）
尺寸（1至13）为字符串
像细绳一样的淡卡斯托
将QtdPlacas（1到16）作为字符串进行调整
Dim Algos（1到13）作为字符串
Dim HRs（1到13）作为字符串
尺寸Cons（1至13）作为字符串
作为整数的Dim i
算法（1）=“ð=”
Algos（2）=“&grof=”
算法（3）=“&x11gf=”
算法（4）=“&cn=”
算法（5）=“&cn7=”
算法（6）=“&eq=”
算法（7）=“&lre=”
Algos（8）=“&ns=”
算法（9）=“&tt10=”
Algos（10）=“&x16r=”
Algos（11）=“&skh=”
算法（12）=“&n5=”
Algos（13）=“&xn=”
小时数（1）=“&系数%5Beth_小时数%5D=”
小时数（2）=“&系数%5gro\u小时数%5D=”
小时数（3）=“系数%5Bx11g_小时数%5D=”
小时数（4）=“系数%5Bcn\u小时数%5D=”
小时数（5）=“&系数%5Bcn7_小时数%5D=”
小时数（6）=“系数%5EQ_小时数%5D=”
小时数（7）=“&系数%5Blrev2_小时数%5D=”
小时数（8）=“&系数%50亿欧元%5D=”
小时数（9）=“&系数%5bt10_小时数%5D=”
小时数（10）=“系数%5Bx16r_小时数%5D=”
小时数（11）=“系数%5Bskh_小时数%5D=”
小时数（12）=“&系数%5Bn5_小时数%5D=”
小时数（13）=“系数%5Bxn_小时数%5D=”
缺点（1）=“系数%5Beth_p%5D=”
缺点（2）=“系数%5grou p%5D=”
缺点（3）=“系数%5Bx11g\u p%5D=”
缺点（4）=“系数%5Bcn\u p%5D=”
缺点（5）=“系数%5Bcn7\u p%5D=”
缺点（6）=“系数%5EQ_p%5D=”
缺点（7）=“系数%5Blrev2\u p%5D=”
缺点（8）=“系数%50亿欧元p%5D=”
缺点（9）=“&系数%5bt10_p%5D=”
缺点（10）=“系数%5Bx16r_p%5D=”
缺点（11）=“系数%5Bskh_p%5D=”
缺点（12）=“系数%5Bn5\u p%5D=”
缺点（13）=“系数%5Bxn\u p%5D=”
工作表（1）。激活
对于i=1到13
如果单元格（7，i+1）.Text=“S”，则
AlgoIn（i）=“正确”
其他的
AlgoIn（i）=“假”
如果结束
接下来我
对于i=1到13
HRIn（i）=ActiveSheet.Cells（8，i+1）.Text
接下来我
对于i=1到13
ConsIn（i）=ActiveSheet.Cells（9，i+1）.Text
接下来我
对于i=1到16
QtdPlacas（i）=ActiveSheet.Cells（4，i+1）.Text
接下来我
Custo=ActiveSheet.Cells（12,2）.Text
作为字符串的Dim sURL
苏尔=”https://whattomine.com/coins?utf8=%E2%9C%93&adapt_q_280x=0&adapt_q_380=0&adapt_q_fury=0&adapt_q_470=0&adapt_q_480=0&adapt_q_570=0&adapt_q_580=0&adapt_q_vega56=0&adapt_q_vega64=0&adapt_q_750Ti=0&adapt_q_1050Ti=0&adapt_q_10606=0&adapt_q_1070=0&adapt_q_1070Ti=0&adapt_q_1080=0&adapt_q_1080Ti=0"
对于i=1到13
sURL=sURL&Algos（i）&AlgoIn（i）&HRs（i）&HRIn（i）&Cons（i）&ConsIn（i）
接下来我
sURL=sURL&“&factor%5b成本%5D=“&Custo&"&排序=利润率24&数量=0&收入=24小时&系数%5B交换%5D%5B%5D=&系数%5B交换%5D%5D=二进制和系数%5B交换%5D%5B%5D=比特数和系数%5B交换%5D%5B%5D=比特数和系数%5B交换%5D%5B%5D=加密桥和系数%5B交换%5D%5D%5D=加密和系数%5B交换%5D%5D=hitbtc和系数%5D交换%5B%5D%5B交换s%5D%5B%5D=yobit&dataset=&commit=Calculate“
单元格（1，1）=sURL
工作表（2）。激活
使用ActiveSheet.QueryTables.Add（连接：=“URL；”&sURL，目标：=范围（“A1”））
>>>.Refresh BackgroundQuery:=False错误消息的文本是什么？抱歉，用错误消息编辑了文章。谢谢。