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

·Q­n§Q¥Îvba§ì°ÊºAºô­¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô­¶³]©w¦n¤U©Ô¦¡¿ï³æ¡A¦A¶i¥h¼´¸ê®Æ¡C

·Q­n§Q¥Îvba§ì°ÊºAºô­¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô­¶³]©w¦n¤U©Ô¦¡¿ï³æ¡A¦A¶i¥h¼´¸ê®Æ¡C

·Q­n§Q¥Îvba§ì°ÊºAºô­¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô­¶Show  entries³]©w¬°"100"¡A¦A¶i¥h¼´¸ê®Æ¡C
  1. Sub test()

  2.     x = Timer

  3.     Dim ie As Object
  4.     Set ie = CreateObject("InternetExplorer.Application")
  5.    
  6.     u = "ºô§}"

  7.     ie.navigate u
  8.     ie.Visible = True
  9.    

  10.     Do
  11.     DoEvents
  12.     Loop Until ie.readyState = READYSTATE_COMPLETE
  13.     Dim doc As HTMLDocument
  14.     Set doc = ie.document
  15.                  
  16.     Application.Wait (Now + TimeValue("0:00:03"))

  17.     On Error Resume Next

  18.     For i = 0 To 30
  19.     Worksheets("I").Range("I" & i + 3) = doc.getElementsByClassName("R10 dataTable")(0).getElementsByTagName("td")(i * 6 + 1).innerText
  20.     Next i

  21.     ie.Quit      'Ãö²¦ie
  22. End Sub
½Æ»s¥N½X

¦^´_ 1# mattlee1111

1.png (449.27 KB)

1.png

TOP

¦^´_ 1# mattlee1111

½Ð°Ñ¦Ò¡G
    http://forum.twbts.com/thread-13209-1-1.html
   #7¡A½Õ¥Îjsªº¤èªk

TOP

        ÀR«ä¦Û¦b : °µ¦n¨Æ¤£¯à¤Ö§Ú¤@¤H¡A°µÃa¨Æ¤£¯à¦h§Ú¤@¤H¡C
ªð¦^¦Cªí ¤W¤@¥DÃD