0

我有一个从雅虎财经导入股票信息的 VBA 宏。从 URL 我可以手动下载股票名称有双引号的 CSV(例如“iShares J,P. Morgan USD Emergin”)。

代码运行如下:

    Sub GetDatafull()
QueryQuote:
             With ActiveSheet.QueryTables.Add(Connection:="URL;http://download.finance.yahoo.com/d/quotes.csv?s=EMB&f=nxj1ac1kjerr5dyr1", Destination:=ActiveSheet.Range("A1"))
                .BackgroundQuery = True
                .TablesOnlyFromHTML = False
                .Refresh BackgroundQuery:=False
                .SaveData = True
            End With

'Range("C5").CurrentRegion.TextToColumns Destination:=Range("C5"), DataType:=xlDelimited, _
'    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
'    Semicolon:=False, Comma:=True, Space:=False, Other:=False
End Sub

当我检查结果时,我有股票信息,但股票名称缺少双引号:

iShares J,P. Morgan USD Emergin,"NGM",N/A,116.56,-0.08,118.14,107.74,N/A,N/A,0.00,N/A,N/A,N/A

因此,当我运行 TextToColumns 函数时,它会在股票名称的中间拆分。

有人知道在股票名称周围保留双引号缺少什么吗?作为参考,雅虎查询网址为: http: //download.finance.yahoo.com/d/quotes.csv ?s=EMB&f=nxj1ac1kjerr5dyr1

谢谢!

4

0 回答 0