[µo°Ý] ¦p¦ó¦bºô­¶·j´Mµ²ªG«á¡A¦A«ö­­®É¶¡«ö¶s

Michelle-W

½Ð±Ð¦U¦ì«e½ú­Ì~
¥HVBA¶}±ÒIEºô­¶°µºô¸ô·j´Mªº¤è¦¡¦³«Ü¦h½g´T
§Ú·Q½Ð±Ð¤@¤U¡A
¦pªG¬O·j´M¤§«á¡A·Q­n«ö­¶­±¥ªÃ䪺"¹L¥h1­Ó¤ë"
¦³¿ìªk°µ¨ì¶Ü?
§Ú¥Î«ö¤U"·j´M"ªºµ{¦¡½X(¦p¤U)¨Ó§ï¼g¡A³£¨S¤ÏÀ³~~^^"

IE.document.getElementsByName("btnG").Item.Click

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

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

¦^´_ 13# GBKEE

¤U¸ü (78.44 KB)

2016-8-21 06:38

GBKEE

¦^´_ 12# c_c_lai

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

c_c_lai

¦^´_ 10# GBKEE

¤U¸ü (90.6 KB)

2016-8-20 05:14

Michelle-W

¦^´_ 7# GBKEE


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

GBKEE

¦^´_ 9# c_c_lai
§ó·s3#ªºµ{¦¡½X
2003ª© °õ¦æ¦p¤U¹Ï

¤U¸ü (13.43 KB)

2016-8-19 11:11

c_c_lai

¦^´_ 7# GBKEE
¶¶¤â±NÀÉ®×Âন .xls ¤è«K´ú¸Õ¡C
Data(xls).rar (56.59 KB)

¤U¸ü¦¸¼Æ: 6

2016-8-19 07:42

c_c_lai

¦^´_ 7# GBKEE
§Ú§â¹Lµ{¥Î¹Ï¥Ü¨Óªí¹F¡G

¤U¸ü (85.06 KB)

2016-8-19 07:33

«ö½T©w«á¡AÀH§Y¶i¤J¦p¤U (424) µe­±

¤U¸ü (59.59 KB)

2016-8-19 07:34

Ä@§Ú¤µ¤é²´·ú¤â³N¶¶§Q¡B¦¨¥\¡I