Question

我是VBA的非常有限的用户。在过去，我复制了在这里找到的代码并设法搞砸了。我每天都使用以下代码至少一年从雅虎财经进口股票价格。它直到本周才完美无缺。

它从雅虎获取csv文件，其中前三列是股票代码，市场价格和每日变化。出于某种原因本周，第三列开始只显示非负值。

以下是代码：

Dim URL As String: URL = "http://download.finance.yahoo.com/d/quotes.csv?s=" & Symbols & "&f=sl1c6gn0" & "&e=.csv"


Dim destCell As Range


Set destCell = Worksheets("Y Prices").Range("A" & qStart - 3)

With destCell.Parent.QueryTables.Add(Connection:="TEXT;" & URL, Destination:=destCell)
        .TextFileStartRow = 1
        .TextFileParseType = xlDelimited
        .TextFileCommaDelimiter = True
        .Refresh BackgroundQuery:=False
End With

destCell.Parent.QueryTables(1).Delete

例如，使用URL = "http://download.finance.yahoo.com/d/quotes.csv?s=MON,ACI,ACM,ADSK,ADTN,ARLP,ATLS,AVGO,AWAY,BITA,BTU,CHL,CIE,CLC,CLF,CPN,CPSI,CSOD,CSX,CTL,DB,DMND,EXXI,EZCH,FIVE&f=sl1c1gn0&e=.csv"

将此链接粘贴到浏览器中将在第三列中生成带有正数和负数的csv文件。但是当我在VBA中运行此代码时，第三列只包含正数。所有带负数的单元格都是空的。

为什么会这样开始发生任何建议？

Excel QueryTable将负值归零

0 个答案: