status code : 304 是不是爬不下來 ?

vanguarx

請教各位

https://www.cac.edu.tw/apply108/system/108ColQry_forapply_3r5k9d/html/108_001562.htm

試了好多種方法，但就是爬不下這個網頁。

發現 一般Headers 的 status code : 200 ，但這個網頁  status code : 304

是否這個因素爬不下來 ?

joey0415

回復 4# vanguarx

參考看看

http://white5168.blogspot.com/2012/08/excel-vba-js.html

vanguarx

想問一個問題，為何 .ExecWB 17,2 這代表 select All ? ExecWB 12,2 這代表 copy selection ?? 不太懂這是哪裡來的

For xi = st To A.Length - 1 Step 1
            .Document.body.innerHTML = A(xi).outerHTML
            .ExecWB 17, 2       '  Select All
            .ExecWB 12,2        '  Copy selection
            With shts
                .Range("A" & .[A65535].End(xlUp).Row + 1).Select
                .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
            End With
            .Document.body.innerHTML = xlHtm                  '還原
Next xi

vanguarx

太感激了。
Joey 大大還很貼心寫了註解，太受用了。

joey0415

回復 1# vanguarx

的確好幾常用的方法抓不下來，不過
以前超級板主程式式碼修改後
尚可抓取

1. Sub 放榜()
   
2.     Cells.Clear
   
3.     Application.ScreenUpdating = False
   
4.     With CreateObject("internetexplorer.application")
   
5.         surl = "https://www.cac.edu.tw/apply108/system/108ColQry_forapply_3r5k9d/html/108_001562.htm"
   
6.         .Visible = True
   
7.         .Navigate surl
   
8.         Application.Wait Now + TimeValue("00:00:01")
   
9.          Do While .ReadyState <> 4 Or .Busy: DoEvents: Loop
   
10.          
    
11.          Application.Wait Now + TimeValue("00:00:01")
    
12.         x = .Document.getElementsByTagName("table").Length
    
13. '                    For Z = 0 To x - 1
    
14. '                        MsgBox "這??第" & Z & "個表格" & Chr(10) & .Document.getElementsByTagName("table")(Z).innerText
    
15. '                    Next
    
16.         Set shts = ActiveSheet '
    
17.         xlHtm = .Document.body.innerHTML
    
18.         Set A = .Document.getElementsByTagName("table")
    
19.         For xi = st To A.Length - 1 Step 2
    
20.             .Document.body.innerHTML = A(xi).outerHTML
    
21.             .ExecWB 17, 2       '  Select All
    
22.             .ExecWB 12, 2       '  Copy selection
    
23.             With shts
    
24.                 .Range("A" & .[A65535].End(xlUp).Row + 1).Select
    
25.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
26.             End With
    
27.             .Document.body.innerHTML = xlHtm                  '還原
    
28.         Next xi
    
29.             .Quit
    
30.         End With
    
31.     Application.ScreenUpdating = True
    
32.    
    
33. End Sub

複製代碼