我使用下面的代码将数据从谷歌财务提取到我的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
中看到下面的数据
但Excel显示如下相同的数据
不确定代码有什么问题,有人可以建议我如何解决这个问题?
Update:
发现此特定单元格 A48
格式与其他格式相比更改为“数字” . 我试图在复制之前将所有单元格格式化为通用 . 但是脚本再次将其更改为Number .