求分析！一个网页跳转之后网址不变无法获取新网页数据

lalasnoopy · 发表于 2014-2-10 17:25

ccwan 发表于 2014-2-10 16:58
所以人家建议你用XMLHTTP方式啊
根据你的方法写的，你看下，肯定可以取到跳转后的内容。建议你按F8键一步一 ...

感动 !! 谢谢你！大神！！因为我不会XMLHTTP呀今天第一次听说根本没有办法尝试这个方法呀都是泪现在有你的范本我可以自己研究研究了哇这个世界有你好温暖！！

lalasnoopy · 发表于 2014-2-10 17:47

ccwan 发表于 2014-2-10 16:58
所以人家建议你用XMLHTTP方式啊
根据你的方法写的，你看下，肯定可以取到跳转后的内容。建议你按F8键一步一 ...

好奇怪我只有一次运行的时候能拿到新网页的数据后面再运行一遍拿到的就一直是旧网页的数据了我原来也尝试过.innertext的不行呀好！奇！怪！

ccwan · 发表于 2014-2-10 19:11

是不是网速太慢造成的?加上延时看看吧,3秒不够你就再多加几秒试试

Sub SpecialStocksInfo()
Dim i As Integer, SpecialStockLength As Double, j As Integer
Dim r As Variant
Cells.ClearContents
For p = 2 To 2
On Error Resume Next
With CreateObject("internetexplorer.application")
.Visible = True
.navigate "http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main.aspx"
Do Until .readystate = 4
DoEvents
Loop
.Document.all.tags("INPUT")(5).Value = "00405"
.Document.all.tags("INPUT")(12).Click
.Document.all.tags("select")(12).Value = "Year"
.Document.forms(0).submit
t = Timer
Do While .busy Or t + 3 > Timer
DoEvents
Loop
k = 0
Set r = .Document.all.tags("td")
ReDim Arr(1 To r.Length / 4, 1 To 4)
For i = 85 To r.Length - 1
Arr((i - 85) \ 4 + 1, k Mod 4 + 1) = r(i).innerText
k = k + 1
Next i
[a1].Resize(UBound(Arr), 4) = Arr
End With
Next p
End Sub

复制代码

lalasnoopy · 发表于 2014-2-11 10:18

ccwan 发表于 2014-2-10 19:11
是不是网速太慢造成的?加上延时看看吧,3秒不够你就再多加几秒试试

行了行了看来就是这个问题哎原来readystate不是万能的呀... 还要靠等待时间来帮忙要是我网速一会快一会慢... 这不科学...

小zhi · 发表于 2015-11-19 08:33

不行，运行不了。一直在第10步到12步循环。

officeg · 发表于 2016-5-17 10:43

ccwan 发表于 2014-2-10 19:11
是不是网速太慢造成的?加上延时看看吧,3秒不够你就再多加几秒试试

网速啊。网速啊。花了好多时间才证实啊。

tsmcp · 发表于 2018-9-13 21:39

本帖最后由 tsmcp 于 2018-9-13 21:46 编辑

能否指点一下吗？我想抓取网页http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.aspx?t=sh的数据，如何修改呢？谢谢。

duquancai · 发表于 2018-9-13 21:44

tsmcp 发表于 2018-9-13 21:39
能否指点一下吗？我想抓取网页http://sc.hkexnews.hk/TuniS/www. ... lmarket_c.aspx?t=sh的数据，如何修改 ...

你提供的“网址”不全。。。。。。。。。。。。。。。。。。。。。。。。。

tsmcp · 发表于 2018-9-13 21:57

duquancai 发表于 2018-9-13 21:44
你提供的“网址”不全。。。。。。。。。。。。。。。。。。。。。。。。。

duquancai · 发表于 2018-9-14 08:51

tsmcp 发表于 2018-9-13 21:57
楼上的网址已更正，谢谢。
http://sc.hkexnews.hk/TuniS/www.hkexnews.hk/sdw/search/mutualmarket_c.as ...

自己去开新帖提问，依附在别人的帖上提问？？？

		自动登录	找回密码
密码			免费注册

[已解决] 求分析！一个网页跳转之后网址不变无法获取新网页数据