从雅虎财经中提取数据

Question

我正在尝试使用其股票代码简单地从雅虎金融中提取公司名称。出于某种原因，下面的代码创建了一个不起作用的 URL。请帮忙！

Sub LoadExternalData()
    Dim url As String
    url = "TEXT;http://finance.yahoo.com/d/quotes.csv?s=IBM&f=n"

    With ActiveSheet.QueryTables.Add(url, Range("$C$3"))
        .RefreshStyle = xlOverwriteCells
        .BackgroundQuery = False
        .TextFileParseType = xlDelimited
        .TextFileTextQualifier = xlTextQualifierDoubleQuote
        .TextFileCommaDelimiter = True
        .Refresh
    End With