VBA如何查找网页元素ID对应的元素及获取网页特定元素ID??

wwwbjwww

我们知道EXCEL与网页进行交互时,往往需要获取网页中元素的相关信息,网页元素ID是特有身份证,当相同标鉴比如<table具有不同ID时,我们想通过ID实现查找其对应的元素,VB中可行的方法getelmentbyid()用在VBA中似乎行不通.再有我们知道一组相同标鉴<table,想遍历出ID,VB中可行的ID属性用在VBA中似乎也行不通。当然我们可以通过人工分析网页源文件的形式或者通过编程查找网页原文件内容得到上述想要的结果，却总感觉偏离了编程的本义。我提供一网页：http://www.shuangseqiu.cc/kjjl.htm，希望高手能提供查找指定ID=“tablelist"元素的方法及遍历标鉴<table的ID方法。谢谢！！！

醫龍

無聊看了一下，你要的表格是另外崁入框架

<iframe src="http://www.500wan.com/pages/info/datachart/ssq/history/inc/history.php?limit=50" scrolling="auto" width="1004" height="1500" name="zst"
  frameborder="0" ></iframe>

所以我會用笨一點的方法，先取得iframe的src位址

   URL = IE.document.getElementsByTagname("iframe").Item("zst").src

然後再進入取得表格資料

<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#C0DCF8" id="tablelist">

    Set Table = IE.document.getElementsByTagname("table").Item("tablelist")


我習慣使用 InternetExplorer 控件，交流一下.......

1.     Set IE = CreateObject("InternetExplorer.Application")
   
2.     IE.Visible = False
   
3.     URL = "http://www.shuangseqiu.cc/kjjl.htm"
   
4.     IE.Navigate2 URL
   
5.     Do While IE.readyState <> 4 Or _
   
6.             IE.busy = True
   
7.         DoEvents
   
8.     Loop
   
9.     URL = IE.document.getElementsByTagname("iframe").Item("zst").src
   
10.     IE.Navigate2 URL
    
11.     Do While IE.readyState <> 4 Or _
    
12.             IE.busy = True
    
13.         DoEvents
    
14.     Loop
    
15.     Set Table = IE.document.getElementsByTagname("table").Item("tablelist")
    
16.     Set objRANGE = IE.document.body.createControlRange
    
17.     objRANGE.Add Table
    
18.     objRANGE.Select
    
19.     'OLECMDID_COPY= 12, OLECMDEXECOPT_DODEFAULT=0
    
20.     IE.ExecWB 12, 0
    
21.     Sheets.Add
    
22.     ActiveSheet.Name = "HTML"
    
23.     Range("A1").Select
    
24.     ActiveSheet.PasteSpecial Format:="HTML"
    
25.     Columns("A:Z").EntireColumn.AutoFit
    
26.     IE.Quit
    

复制代码

Qinqinjiang

<iframe src="http://www.500wan.com/pages/info/datachart/ssq/history/inc/history.php?limit=50" scrolling="auto" width="1004" height="1500" name="zst"
  frameborder="0" ></iframe>

所以我會用笨一點的方法，先取得iframe的src位址

   URL = IE.document.getElementsByTagname("iframe").Item("zst").src

然後再進入取得表格資料

<table width="100%" border="1" cellpadding="3" cellspacing="0" bordercolor="#C0DCF8" id="tablelist">

    Set Table = IE.document.getElementsByTagname("table").Item("tablelist")


我習慣使用 InternetExplorer 控件，交流一下.......复制内容到剪贴板代码:
    Set IE = CreateObject("InternetExplorer.Application")
    IE.Visible = False
    URL = "http://www.shuangseqiu.cc/kjjl.htm"
    IE.Navigate2 URL
    Do While IE.readyState <> 4 Or _
            IE.busy = True
        DoEvents
    Loop
    URL = IE.document.getElementsByTagname("iframe").Item("zst").src
    IE.Navigate2 URL
    Do While IE.readyState <> 4 Or _
            IE.busy = True
        DoEvents
    Loop
    Set Table = IE.document.getElementsByTagname("table").Item("tablelist")
    Set objRANGE = IE.document.body.createControlRange
    objRANGE.Add Table
    objRANGE.Select
    'OLECMDID_COPY= 12, OLECMDEXECOPT_DODEFAULT=0
    IE.ExecWB 12, 0
    Sheets.Add
    ActiveSheet.Name = "HTML"
    Range("A1").Select
    ActiveSheet.PasteSpecial Format:="HTML"
    Columns("A:Z").EntireColumn.AutoFit
    IE.Quit

liaoliangbang

Mark it!!!!

h2016

Mark it!!!!网页