我有一个从雅虎财经导入股票信息的 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
谢谢!