HSIEN6001

¦^´_ 8# diabo

ÁÂÁÂ,³oUR¸Õ¹L¤F,¥i±¤§ì¤U¨Ó¤å¦r¬O¶Ã½X
G¤jªº´ú¸ÕOK,¦ýÁÙ¦³³\¦h¤£À´,µ¥«Ý«üÂI ^__^

diabo

¦^´_ 11# HSIEN6001


    À˵øIEªº½s½X¡A¬O§_¿ï¾Ü¡u¦Û°Ê½s½X¡v......

HSIEN6001

¦^´_ 12# diabo

¤£À´­C!
¦]¬°¸ÓURª½±µÅã¥Ü¶Ã½X,©Ò¥H§Ú¤U¸ü¤]¬O¶Ã½X

½Ð°Ý±z»¡ªº¬O±Nµ{¦¡½X¼g¦bVBAùØÀY±Æ°£¶Ã½X°ÝÃD?!
¥i§_¥Ü½d?!

HSIEN6001

¦^´_ 4# GBKEE


    G¤j,¦P#5 ¤Î #10¤§°ÝÃD

            ºô­¶ªí®æ = 13  '·l¯qªí
            ºô­¶ªí®æ = 12  '¦X¨Ö·l¯qªí

¥i§_½Ð°Ý13»P12¼Æ¾ÚÀ³¸Ó¦p¦ó§PÂ_³o¼Æ­È?!
¨Ò¦p:http://mops.twse.com.tw/mops/web/t56sb21_q3

GBKEE

¦^´_ 13# HSIEN6001
§R±¼ encodeURIComponent=1

¦^´_ 14# HSIEN6001
¦³ diabo  ´£¨Ñªººô§}¦n¿ì¨Ç

1. Option Explicit
   
2. Sub Ex()
   
3. Dim ie As Object, aa As Object, k As Integer, xx As Integer, i As Integer, j As Integer
   
4. ActiveSheet.Cells.Clear
   
5. Set ie = CreateObject("InternetExplorer.Application")
   
6.     ie.Navigate "http://mops.twse.com.tw/mops/web/ajax_t51sb13?step=1&firstin=1&off=1&TYPEK=sii&year=100&season=04"
   
7.      Do While ie.Busy Or ie.ReadyState <> 4:   DoEvents:     Loop
   
8.     On Error Resume Next
   
9.     Set aa = ie.Document.getelementsbytagname("table")   'ªí®æ¸ê®Æ°Ï
   
10.      k = 1
    
11.     On Error Resume Next
    
12.         For xx = 0 To aa.Length - 1
    
13.         '§ä¨ì«á­×§ï For xx = ??? To aa.Length - 1
    
14.             For i = 0 To aa(xx).Rows.Length - 1      '¼g¤J¸ê®Æ
    
15.                 Cells(k, 1) = "Table" & xx
    
16.                 k = k + 1                            '¦C¼Æ
    
17.                 For j = 0 To 19
    
18.                     Application.StatusBar = "¤U¸ü¸ê®Æ¤¤ ..." & k - 1
    
19.                     Cells(k, j + 2) = aa(xx).Rows(i).Cells(j).innertext
    
20.                 Next
    
21.             Next
    
22.         Next
    
23.     ie.Quit
    
24. End Sub

½Æ»s¥N½X

HSIEN6001

¦^´_ 15# GBKEE

¥H102¦~1~3¤ë¬°¨Ò¡A¤W¥«sii¤Î¤WÂdotc:
ºô§}¬O¡G
http://mops.twse.com.tw/mops/web/ajax_t56sb21?&run=&step=1&TYPEK=sii&year=102&smonth=01&emonth=03&sstep=1&firstin=true                ¡¥¤W¥« sii ¤WÂd otc

¦]¬°¤U¸ü¤§«á§e²{¶Ã½X¡A©Ò¥H¤~¥ÎG¤j#4ªº¤è¦¡
®M¥ÎUR : http://mops.twse.com.tw/mops/web/t56sb21_q3?&step=0&firstin=1&off=1&TYPEK=sii&year=102&smonth=01&emonth=03  ¡¥¤W¥« sii ¤WÂd otc

´ú¸Õ§¹¾ã¥N½X©ó#6 ¡A´ú¸ÕOK ªº (¨S¶Ã½X)
¥u¬O¨Sªk²z¸Ñ----->ºô­¶ªí®æ 13 or 12
¹J¨ì¤£¦Pºô­¶¡A§P§O¤è¦¡¡H¡I

PS¡G­è­è¸Õ #15 ªº¥N½X¡A¤U¸ü¤]§e²{¶Ã½X¡C

HSIEN6001

¤£¦n·N«ä,¸É¥R»¡©ú¤@¤U
#16 ¨â­ÓURL ³£¬O«ü¦P¤@¥÷ªí®æ

diabo

¦^´_ 13# HSIEN6001


1.  EXCELªºWEB¬d¸ß¡A¤]¬O³z¹LIE¡A¦]¦¹IEªº³]©w·|¼vÅT¨ì¤U¸üªºµ²ªG¡C
2.  IE     À˵ø¡÷½s½X¡÷¦Û°Ê¿ï¨ú

§ì°]³ø·JÁ`ªí.rar (327.74 KB)

¤U¸ü¦¸¼Æ: 42

2013-3-31 21:53

GBKEE

¦^´_ 16# HSIEN6001

¥u¬O¨Sªk²z¸Ñ----->ºô­¶ªí®æ 13 or 12  ¹J¨ì¤£¦Pºô­¶¡A§P§O¤è¦¡¡H¡I

4# ³o¬qµ{¦¡½X

1.       k = 1
   
2. 47.        On Error Resume Next
   
3. 48.        For xx = ºô­¶ªí®æ(¸ê°T) To AA.Length - 1
   
4. 49.            For i = 0 To AA(xx).Rows.Length - 1      '¼g¤J¸ê®Æ
   
5. 50.                k = k + 1
   
6. 51.                For j = 0 To 19
   
7. 52.                    Application.StatusBar = "¤U¸ü¸ê®Æ¤¤ ..." & k - 1
   
8. 53.                    .Cells(k, j + 1) = AA(xx).Rows(i).Cells(j).innertext
   
9. 54.                Next
   
10. 55.            Next
    
11. 56.        Next

½Æ»s¥N½X

§ï¦¨15#³o¬qµ{¦¡½X

1. 10.     k = 1
   
2. 11.    On Error Resume Next
   
3. 12.        For xx = 0 To aa.Length - 1  
   
4. 13.       '¤£¦Pºô­¶¡A§P§O¤è¦¡ '§ä¨ì«á­×§ï For xx = ??? To aa.Length - 1        
   
5. 14.            For i = 0 To aa(xx).Rows.Length - 1      '¼g¤J¸ê®Æ
   
6. 15.                Cells(k, 1) = "Table" & xx
   
7. 16.                k = k + 1                            '¦C¼Æ
   
8. 17.                For j = 0 To 19
   
9. 18.                    Application.StatusBar = "¤U¸ü¸ê®Æ¤¤ ..." & k - 1
   
10. 19.                    Cells(k, j + 2) = aa(xx).Rows(i).Cells(j).innertext
    
11. 20.                Next
    
12. 21.            Next
    
13. 22.        Next

½Æ»s¥N½X

HSIEN6001

¦^´_ 19# GBKEE
¦^´_ 18# diabo

ÁÂÁ¨â¦ìÀ°¦£¸Ñ´b
§A­Ì³£¦n´Î³á!
·P®¦ ^__^