求助：.responsetext 抓取的网页数据不全。

masslz

网址：http://q.stock.sohu.com/hisHq?code=cn_002429start=2018/1/2end=2018/1/3
用.responsetext抓取此网页的文字，总是少了["2018-01-03","3.62","3.63","0.02","0.55%","3.59","3.65","312439","11313.08","0.79%"]这个内容。换其他都正常，百思不得其解。
新人，求大神帮忙，告知原因和解决的办法，谢谢。

masslz

顶，求助版主，各路大神。

一把小刀闯天下

'是否网站还没刷新，我试了一下没毛病。
Option Explicit

Sub test()
  Debug.Print getpage("http://q.stock.sohu.com/hisHq?code=cn_002429start=2018/1/2end=2018/1/3")
End Sub

Function getpage(url)
  Dim xmlhttp
  Set xmlhttp = CreateObject("Microsoft.XMLHTTP")
  With xmlhttp
    .Open "GET", url, True
    .send
    While .ReadyState <> 4: DoEvents: Wend
    getpage = StrConv(.responseBody, vbUnicode)
  End With
  Set xmlhttp = Nothing
End Function

masslz

一把小刀闯天下 发表于 2018-1-3 20:38
'是否网站还没刷新，我试了一下没毛病。
Option Explicit

谢谢，我明天试试你提供的代码。
我这里用的是“.responsetext”函数，网页没有问题，但是函数抓取就少了一部分。而且，2018-1-3，3.62......会少，如果是2017-11-8，8.75......这样的也会少，就是日期3，价格3开头，日期是8，价格8开头，网页显示没有问题，.responsetext抓的就会少一部分，如果两个不同就正常，很奇怪。

yhy95331

3楼老师这句 StrConv(.responseBody, vbUnicode) 很有用，解决我今天一个大问题