無法提取使用ActiveSheet.QueryTables.Add（）

Question

如果我使用的參數爲變量的話，我會得到輸出

的WebContent

「響應」：「錯誤」，「錯誤」：「電影未找到」

即

fname = Range("B1").Value 
fyear = Range("C1").Value 

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;http://www.omdbapi.com/?t=fname&y=fyear", _ 
    Destination:=Range("B1")) 

如果我用這個：

With ActiveSheet.QueryTables.Add(Connection:= _ 
    "URL;http://www.omdbapi.com/?t=Jaws: The Revenge&y=1987", _ 
    Destination:=Range("A1")) 

然後它將檢索結果。 我對此感到困惑，請幫助我找出錯誤。

Answer 1

With ActiveSheet.QueryTables.Add(Connection:= _"URL;http://www.omdbapi.com/?t=" & fname & "&y=" & fyear, _ Destination:=Range("B1")) 

您可能需要解析fname數據以替換URL中無效的空格和其他字符。