我使用下面的代码将数据从谷歌财务提取到我的Excel .

Dim RawImport As Worksheet
Dim qurl As String
Set RawImport = Workbooks("vwap.xlsm").Sheets("RawImport")

qurl = "https://finance.google.com/finance/getprices?q=TATASTEEL&x=NSE&i=180&p=1D&f=d,c,h,l,o,v"

With RawImport.QueryTables.Add(Connection:="URL;" & qurl, Destination:=RawImport.Range("a1"))
.BackgroundQuery = True
.TablesOnlyFromHTML = False
.Refresh BackgroundQuery:=False
.SaveData = True
End With

但在某些行中,它以不同的格式(或错误的数据)提取数据 .

例如,通过使用url, https://finance.google.com/finance/getprices?q=TATASTEEL&x=NSE&i=180&p=1D&f=d,c,h,l,o,v 我在 40 中看到下面的数据

enter image description here

但Excel显示如下相同的数据

enter image description here

不确定代码有什么问题,有人可以建议我如何解决这个问题?

Update:

发现此特定单元格 A48 格式与其他格式相比更改为“数字” . 我试图在复制之前将所有单元格格式化为通用 . 但是脚本再次将其更改为Number .