QueryTable未创建

Question

我正在尝试从雅虎财经中调用信息，但我一直在收到错误，说我试图使用的网址没有提供任何信息。但是，当我手动将url放入我获取数据时，当我在.iqy文件中使用该url时，它可以工作。当我录制宏时，我得到了以下vba代码，但宏没有运行。

Sub GetandArrangeData()
'
' GetandArrangeData Macro
'
' Keyboard Shortcut: Option+Cmd+b
'
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://real-chart.finance.yahoo.com/table.csv?s=1112.HK&d=4&e=15&f=2015&g=d&a=5&b=27&c=2000&ignore=.csv" _
        , Destination:=Range("C3"))
        .PostText = "MSN MoneyCentral Stock Quotes_1"
        .Name = False
        .FieldNames = False
        .RefreshStyle = xlInsertDeleteCells
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .HasAutoFormat = True
        .RefreshOnFileOpen = 1
        .BackgroundQuery = False
        .TablesOnlyFromHTML = True
        .SaveData = True
        .Refresh BackgroundQuery:=False
        .UseListObject = False
    End With
    Columns("C:C").Select
    Selection.TextToColumns Destination:=Range("C1"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=True, Space:=False, Other:=False, FieldInfo _
        :=Array(Array(1, 5), Array(2, 1), Array(3, 1), Array(4, 1), Array(5, 1), Array(6, 9), _
        Array(7, 9))
    Columns("D:F").Select
    Selection.EntireColumn.Hidden = True
End Sub

我每次都会收到以下错误：

由于某种原因，网址中的＆符号消失了，不知道为什么。

Answer 1

为了完整起见，将评论中的答案复制到此处：

将网址字符串中的&替换为&& s。