Excel查询表正在将负值归零

我是一个非常有限的VBA用户。在过去，我复制了在这里找到的代码，并设法混过去。至少一年来，我每天都在使用以下代码从Yahoo Finance导入股票价格。直到本周为止，它一直工作得完美无缺

它从雅虎获取了一个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中运行此代码时，第三列只包含正数。所有带有负数的单元格都保留为空

---

有什么建议可以解释为什么会发生这种情况吗？

事实上，当我在yahoo中运行该查询时，我得到了4列，最后一列都是n/A当我使用你的虚构URL运行代码时，我会在工作表中得到负值。也许您已经将这些单元格的格式设置为不显示负片的格式。否则，在你的代码和雅虎方面，一切看起来都很好。我有五列，最后一列是N/A。我不使用那个列。但是您应该在第三列中看到同时包含正数和负数的数据。在VBA中运行代码时，负数都丢失了。感谢您运行代码。我看不到任何直接或条件格式与该工作表相关联，但很高兴知道它适合您。我一定是有什么原因导致这种格式。关闭并重新打开程序似乎已经纠正了错误。哼！抱歉。事实上，当我在yahoo中运行该查询时，我得到了4列，最后一列都是n/A当我使用你编好的URL运行代码时，我在表中得到了负值。也许您已经将这些单元格的格式设置为不显示负片的格式。否则，在你的代码和雅虎方面，一切看起来都很好。我有五列，最后一列是N/A。我不使用那个列。但是您应该在第三列中看到同时包含正数和负数的数据。在VBA中运行代码时，负数都丢失了。感谢您运行代码。我看不到任何直接或条件格式与该工作表相关联，但很高兴知道它适合您。我一定是有什么原因导致这种格式。关闭并重新打开程序似乎已经纠正了错误。哼！抱歉。事实上，当我在yahoo中运行该查询时，我得到了4列，最后一列都是n/A当我使用你编好的URL运行代码时，我在表中得到了负值。也许您已经将这些单元格的格式设置为不显示负片的格式。否则，在你的代码和雅虎方面，一切看起来都很好。我有五列，最后一列是N/A。我不使用那个列。但是您应该在第三列中看到同时包含正数和负数的数据。在VBA中运行代码时，负数都丢失了。感谢您运行代码。我看不到任何直接或条件格式与该工作表相关联，但很高兴知道它适合您。我一定是有什么原因导致这种格式。关闭并重新打开程序似乎已经纠正了错误。哼！很抱歉