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

lalasnoopy

我想做的事情是
1. 打开http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main.aspx


2. 在“股份代號”那里填股票代码为”00405“


3. 按”搜寻“


4. 下载新弹出来的网页的信息如”

發放時間	代號	股份名稱	文件
05/02/2014 11:00	00405	越秀房產信託基金	月報表 根據《上市規則》第二十章上市的集體投資計劃（不包括已上市的開放式集體投資計劃）的單位變動月報表 ( 截至2014年1月31日 )(144KB, PDF)

“

Sub


已经写到第3步，第四步尝试了很久都无法完成 因为新的网页跟就的网页url是一样的，所以不知道怎样才能拿到I新网页的控制权然后下载里面的信息，求助！！
先谢谢大家了！

SpecialStocksInfo()
Dim i As Integer, SpecialStockLength As Double, j As Integer
Dim r As Variant

For i = 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.forms(0).submit
    Do Until .readystate = 4
      DoEvents
    Loop
   ‘如何抓取新网页的信息呢？？？
  End With
Next i

End Sub

wudixin96

建议用XMLHTTP方式

不过网页没的跳转，从原地址是可以获取的

lalasnoopy

wudixin96 发表于 2014-2-10 14:52
建议用XMLHTTP方式

能再多给点提示么... 网页完全不会呀

lalasnoopy

wudixin96 发表于 2014-2-10 14:52
建议用XMLHTTP方式

不过网页没的跳转，从原地址是可以获取的

你有空的时候能帮我看看么 不知道怎么获取呀 是从提交表单那句源代码吗 <a href="javascript: if (preprocessMainForm() == true )  document.forms[0].submit();">  会得到什么呀？？？

lalasnoopy

大神们一定是新年第一天上班有上班气了 表沉

wudixin96

是嫌麻烦不想写

lalasnoopy

wudixin96 发表于 2014-2-10 15:40
是嫌麻烦不想写

不会的 一定是上班气的原因 我网页原来一点不会 是论坛大神手把手教会的呀

ccwan

正如2楼侠圣所说，网页跳转之后，网址虽然没变，但内容已经变了，直接提取就可以

lalasnoopy

ccwan 发表于 2014-2-10 16:32
正如2楼侠圣所说，网页跳转之后，网址虽然没变，但内容已经变了，直接提取就可以

我尝试了直接提取内容，但是拿到的是原来没有提交表单之前那个网页的内容。

还尝试过加入一句 msg ”XXXX“ 然后点击确定之后，就能提取到新的网页的内容，但是如果我要查询的股票代码很多的话，这个效率很低呀

ccwan

所以人家建议你用XMLHTTP方式啊
根据你的方法写的，你看下，肯定可以取到跳转后的内容。建议你按F8键一步一步运行看

1. Sub SpecialStocksInfo()
   
2.     Dim i As Integer, SpecialStockLength As Double, j As Integer
   
3.     Dim r As Variant
   
4.     Cells.ClearContents
   
5.     For p = 2 To 2
   
6.         On Error Resume Next
   
7.         With CreateObject("internetexplorer.application")
   
8.             .Visible = True
   
9.             .navigate "http://www.hkexnews.hk/listedco/listconews/advancedsearch/search_active_main.aspx"
   
10.             Do Until .readystate = 4
    
11.                 DoEvents
    
12.             Loop
    
13.             .Document.all.tags("INPUT")(5).Value = "00405"
    
14.             .Document.all.tags("INPUT")(12).Click
    
15.             .Document.all.tags("select")(12).Value = "Year"
    
16.             .Document.forms(0).submit
    
17.             Do Until .readystate = 4
    
18.                 DoEvents
    
19.             Loop
    
20.             k = 0
    
21.             Set r = .Document.all.tags("td")
    
22.             ReDim Arr(1 To r.Length / 4, 1 To 4)
    
23.             For i = 85 To r.Length - 1
    
24.                 Arr((i - 85) \ 4 + 1, k Mod 4 + 1) = r(i).innerText
    
25.                 k = k + 1
    
26.             Next i
    
27.             [a1].Resize(UBound(Arr), 4) = Arr
    
28.         End With
    
29.     Next p
    
30. End Sub

复制代码