·Qn§Q¥Îvba§ì°ÊºAºô¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô¶³]©w¦n¤U©Ô¦¡¿ï³æ¡A¦A¶i¥h¼´¸ê®Æ¡C
- ©«¤l
- 6
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-20
- ³Ì«áµn¿ý
- 2017-10-31
|
·Qn§Q¥Îvba§ì°ÊºAºô¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô¶³]©w¦n¤U©Ô¦¡¿ï³æ¡A¦A¶i¥h¼´¸ê®Æ¡C
·Qn§Q¥Îvba§ì°ÊºAºô¶¸ê®Æ¡A¦³¨S¦³¤èªk¥i¥HÅýºô¶Show entries³]©w¬°"100"¡A¦A¶i¥h¼´¸ê®Æ¡C- Sub test()
- x = Timer
- Dim ie As Object
- Set ie = CreateObject("InternetExplorer.Application")
-
- u = "ºô§}"
- ie.navigate u
- ie.Visible = True
-
- Do
- DoEvents
- Loop Until ie.readyState = READYSTATE_COMPLETE
- Dim doc As HTMLDocument
- Set doc = ie.document
-
- Application.Wait (Now + TimeValue("0:00:03"))
- On Error Resume Next
- For i = 0 To 30
- Worksheets("I").Range("I" & i + 3) = doc.getElementsByClassName("R10 dataTable")(0).getElementsByTagName("td")(i * 6 + 1).innerText
- Next i
- ie.Quit 'Ãö²¦ie
- End Sub
½Æ»s¥N½X |
|
|
|
|
|
|
- ©«¤l
- 6
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 8
- ÂI¦W
- 0
- §@·~¨t²Î
- win7
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-20
- ³Ì«áµn¿ý
- 2017-10-31
|
|
|
|
|
|
|