diabo

¦^´_ 1# spermbank

«Øij±q¸ÑªR­ì©l¸ê®Æºô§}µÛ¤â¡A­Y¸Óºô­¶ª©­±³]­pÅܧó¡Aµ{¦¡½X¤£»Ý­×§ï¡A¤ñ¸û¤£®e©ö¨ü¨ì¼vÅT¡Cµ{¦¡½X¥Î¿ýªº(WEB¬d¸ß-Querytable)´N¥i¥H¨ú±o.....´N¤£¼g¤F....

¹ê¬IIFRS¤§«e[101¦~²Ä4©u(§t)¥H«e]

­Ó§O·l¯qªí
http://mops.twse.com.tw/mops/web/ajax_t51sb08?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04

­Ó§O¸ê²£­t¶Åªí
http://mops.twse.com.tw/mops/web/ajax_t51sb07?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04

¦X¨Ö·l¯qªí
http://mops.twse.com.tw/mops/web/ajax_t51sb13?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04

¦X¨Ö¸ê²£­t¶Åªí
http://mops.twse.com.tw/mops/web/ajax_t51sb12?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04

¤W¥« TYPEK=sii
¤WÂd TYPEK=otc
year = ¥Á°ê¦~, ¨Ò 102
season = ©u«×, ¨Ò 01, 02, 03, 04

diabo

¦^´_ 5# HSIEN6001

¦P¤W¤@½g¦^ÂСA²¤Æ°ÝÃD±q·½ÀY¶}©l....

http://mops.twse.com.tw/mops/web/ajax_t56sb21?encodeURIComponent=1&run=Y&step=1&TYPEK=sii&year=102&smonth=01&emonth=03&sstep=1&firstin=true

diabo

¦^´_ 1# spermbank

1. Sub §ì°]³ø(°]³ø§O, ¥«³õ§O, ¦~, ©u)
   
2.    
   
3.     Select Case °]³ø§O
   
4.         Case "·l¯q":     µ{¦¡ = "ajax_t51sb08"
   
5.         Case "¸ê²£":     µ{¦¡ = "ajax_t51sb07"
   
6.         Case "¦X¨Ö·l¯q": µ{¦¡ = "ajax_t51sb13"
   
7.         Case "¦X¨Ö¸ê²£": µ{¦¡ = "ajax_t51sb12"
   
8.     End Select
   
9.    
   
10.     Select Case ¥«³õ§O
    
11.         Case "¤W¥«": ¥«³õ = "sii"
    
12.         Case "¤WÂd": ¥«³õ = "otc"
    
13.         Case "¿³Âd": ¥«³õ = "rotc"
    
14.         Case "¤½¶}": ¥«³õ = "pub"
    
15.     End Select
    
16.    
    
17.    '­ì©lºô§} http://mops.twse.com.tw/mops/web/ajax_t51sb07?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04
    
18.     theURL = "http://mops.twse.com.tw/mops/web/" & µ{¦¡ & "?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=" & ¥«³õ & "&year=" & ¦~ & "&season=" & ©u
    
19.    
    
20.     With ActiveSheet.QueryTables.Add(Connection:="URL;" & theURL, Destination:=Range("A1"))
    
21.         .Name = "§ì°]³ø"
    
22.         .BackgroundQuery = True
    
23.         .RefreshStyle = xlOverwriteCells
    
24.         .RefreshPeriod = 0
    
25.         .WebSelectionType = xlEntirePage
    
26.         .WebFormatting = xlWebFormattingNone
    
27.         .WebDisableDateRecognition = False
    
28.         .WebDisableRedirections = False
    
29.         .Refresh BackgroundQuery:=False
    
30.         .Delete
    
31.     End With
    
32.    
    
33. End Sub

½Æ»s¥N½X

1. ¥H¤Wµ{¦¡½X¶È§ì¸ê®Æ¡A¨Ã¥¼³B²zª÷¿Ä«OÀIÃÒ¨é...ÃþªÑ·|­p¬ì¥Ø¤£¦Pªº°ÝÃD
2. ¨Ï¥Î½d¨Ò  call §ì°]³ø( "·l¯q","¤WÂd",101,"04")

diabo

¦^´_ 11# HSIEN6001


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

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