ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

status code : 304 ¬O¤£¬Oª¦¤£¤U¨Ó ?

status code : 304 ¬O¤£¬Oª¦¤£¤U¨Ó ?

½Ð±Ð¦U¦ì

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

¸Õ¤F¦n¦hºØ¤èªk¡A¦ý´N¬Oª¦¤£¤U³o­Óºô­¶¡C

µo²{ ¤@¯ëHeaders ªº status code : 200 ¡A¦ý³o­Óºô­¶  status code : 304

¬O§_³o­Ó¦]¯Àª¦¤£¤U¨Ó ?

¦^´_ 1# vanguarx

ªº½T¦n´X±`¥Îªº¤èªk§ì¤£¤U¨Ó¡A¤£¹L
¥H«e¶W¯ÅªO¥Dµ{¦¡¦¡½X­×§ï«á
©|¥i§ì¨ú
  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 "³o??²Ä" & 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
½Æ»s¥N½X

TOP

¤Ó·P¿E¤F¡C
Joey ¤j¤jÁ٫ܶK¤ß¼g¤Fµù¸Ñ¡A¤Ó¨ü¥Î¤F¡C

TOP

·Q°Ý¤@­Ó°ÝÃD¡A¬°¦ó .ExecWB 17,2 ³o¥Nªí select All ? ExecWB 12,2 ³o¥Nªí copy selection ?? ¤£¤ÓÀ´³o¬O­þ¸Ì¨Óªº

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

TOP

¦^´_ 4# vanguarx

°Ñ¦Ò¬Ý¬Ý

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

TOP

        ÀR«ä¦Û¦b : ªY½à§O¤H´N¬O²øÄY¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD