Michelle-W

¦^´_ 7# GBKEE


¯uªº«D±`ÁÂÁª©¥Dªº¨ó§U
§Ú·|¦b«ùÄò¬ã¨s´ú¸Õ~~~
·P®¦ ^^

c_c_lai

¦^´_ 10# GBKEE

¤U¸ü (90.6 KB)

2016-8-20 05:14

GBKEE

¦^´_ 12# c_c_lai

3# ªºµ{¦¡½X¤w§ó¥¿½Ð¦A¸Õ¸Õ¬Ý
2003¤¤¤@ª½¨S³o¿ù»~

c_c_lai

¦^´_ 13# GBKEE

¤U¸ü (78.44 KB)

2016-8-21 06:38

GBKEE

¦^´_ 14# c_c_lai
²´·ú¬Ý¦n¤F.
½Ð°Ñ¦Ò¬Ý¬Ý

1. ag:   '¤U¸ü·j´Mµ²ªG
   
2.     Msg = False
   
3.     FnWait 1   ''µ¥«Ý®É¶¡ :¦³¿ù»~®É,½Õ¾ãµ¥­Ôªº®É¶¡,«Ýºô­¶¾ã²z§¹²¦
   
4.     '************************************************************
   
5.   ' While IE.Busy Or IE.readyState <> 4:  DoEvents: Wend '½T«Oºô­¶§¹¾ã¥´¶}
   
6.   '** While ** 2003, IE8 , Adsl 5M/384K.¤@ª½¨S¿ù»~°Ú
   
7.   
   
8.   '*************************************************************
   
9.     For Each E In IE.Document.ALL.TAGS("H3")
   
10.         i = i + 1
    
11.         Sh.Cells(Sh.Range("A" & Sh.Rows.Count).End(xlUp).Row + 1, 1) = E.ALL(0).innertext
    
12.         Sh.Cells(Sh.Range("B" & Sh.Rows.Count).End(xlUp).Row + 1, 2) = E.ALL(0).HREF
    
13.         Application.StatusBar = E.ALL(0).innertext
    
14.     Next

½Æ»s¥N½X

c_c_lai

¦^´_ 15# GBKEE
²{¦b¬O¿W²´Às¡A¤@®É¶¡µJ¶ZµLªk¶°¤¤¡A¦Y¤O¡I
µ¥¹L¤@¬P´Á«á¦A¨Ó¦n¦n¬ã¨s¤@µf¡AÁÂÁÂÅo¡I