GBKEE

回復 28# joey0415
有些有id與tagname 有些只有id ，但一定會有tagname
摘取網頁原使檔一段內容 <input type="hidden" name="__VIEWSTATE" id="__VIEWSTATE" value="" />
getElementsBytagname("input")     '會是原使檔所有<input type=???  .....>  的集合
getElementsByName("__VIEWSTATE")  '唯一的 Name
getElementById("__VIEWSTATE")     '唯一的 Id

1. Option Explicit
   
2. Sub TEST11()
   
3.     Dim x
   
4.     With CreateObject("InternetExplorer.Application")
   
5.         .Visible = True '是否顯示IE
   
6.         .Navigate "http://www.cnyes.com/twstock/Institutional/1101.htm"
   
7.         Do While .readyState <> 4: DoEvents: Loop
   
8.         Set x = .document.getElementById("a_itrust")
   
9.         x.Click ' 轉到 網頁: 'http://www.cnyes.com/twstock/itrust/1101.htm            '
   
10.         Do While .readyState <> 4: DoEvents: Loop
    
11.         ' .document.body.innerHTML = .document.getElementById("tabvl").outerHTML  '網頁文件元素沒這 Id="tabvl"
    
12.         .document.body.innerHTML = .document.getElementsBytagname("table")(1).outerHTML  'tagname成員從 0 開始
    
13.         .execwb 17, 2 'Select All
    
14.         .execwb 12, 2 'Copy selection
    
15.         ActiveSheet.[A1].Select
    
16.         ActiveSheet.PasteSpecial Format:="HTML" ', NoHTMLFormatting:=True
    
17.         .Quit
    
18.     End With
    
19. End Sub

複製代碼

joey0415

回復 30# c_c_lai

感謝大大分享，我昨天最後也用table來找
不過請問大大.Document.getelementsbytagname("table")(1).outerHTML

中的1是怎麼算的，我算的是2，網頁的table有固定算法嗎？由上而下，尤左而右嗎？
感謝

GBKEE

回復 32# joey0415
IQY 查詢檔的內容(副檔名為 IQY ,存於記事本,小作家.)

1. WEB
   
2. 1
   
3. http://www.cnyes.com/twstock/itrust/1101.htm
   
4. 
   
5. '投信進出網頁 'Selection => table的索引值 ,IQY文件由1開始算起, VBA程式 由0 開始算起
   
6. Selection=2        
   
7. 
   
8. Formatting=None
   
9. PreFormattedTextToColumns=True
   
10. ConsecutiveDelimitersAsOne=True
    
11. SingleBlockTextImport=False
    
12. DisableDateRecognition=False
    
13. DisableRedirections=False

複製代碼

joey0415

回復 33# GBKEE

謝謝版主！我大概知道了！
謝謝

請教一下，鉅亨網的網頁常會定時重新整理
若要用上面的方法抓取時，最後不要quit
只想要將body.innertext內容放上去，不要讓鉅亨網再重新整理成原來的畫面，要加上什麼語句呢？

GBKEE

回復 34# joey0415
我把它放著沒有[重新整理成原來的畫面]
若要用上面的方法抓取時，最後不要quit,不quit要何作用.

c_c_lai

回復 32# joey0415
搜尋 "<table"
(0)   <table border='0' cellspacing='0' cellpadding='0'><tr><td width='16%'>
(1)    <table>
                        <h3>近一個月三大法人買賣超總表</h3>
(2)   <table>
                            <caption>
                                <a href="#">外資買賣超</a></caption>
(3)   <table>
                            <caption>
                                <a href="#">投信買賣超</a></caption>
(4)   <table>
                            <caption>
                                <a href="#">自營商買賣超</a></caption>
(5)   <table>
                            <caption>
                                <a href="#">三大法人買賣超</a></caption>
1101.rar (15.64 KB)

下載次數: 18

2013-11-19 21:43

joey0415

回復 36# c_c_lai
我後來用excelhome 藍天大的分析法，只要輸入網頁，每個tag是哪一個都跑不掉，非常好用

還是感謝指點，教學相長


查找標籤.zip (82.59 KB)

下載次數: 28

2013-11-19 22:57

c_c_lai

回復 37# joey0415
謝謝你！
如果我想要測試 "http://www.cnyes.com/twstock/Institutional/1101.htm"
該如何應用 "查找標籤"？

c_c_lai

回復 37# joey0415
它好像無法檢測出 table。

joey0415

回復 38# c_c_lai


將網址貼在首頁的 A1

再按查詢

點擊該單元格就會看到內容

下載 (106.34 KB)

2013-11-20 11:40