- ©«¤l
- 79
- ¥DÃD
- 2
- ºëµØ
- 0
- ¿n¤À
- 193
- ÂI¦W
- 0
- §@·~¨t²Î
- Winwos 7 64 bits
- ³nÅ骩¥»
- Excel 2003/2007
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TAIPEI
- µù¥U®É¶¡
- 2010-8-25
- ³Ì«áµn¿ý
- 2019-9-20
|
¦^´_ 1# spermbank - Sub §ì°]³ø(°]³ø§O, ¥«³õ§O, ¦~, ©u)
-
- Select Case °]³ø§O
- Case "·l¯q": µ{¦¡ = "ajax_t51sb08"
- Case "¸ê²£": µ{¦¡ = "ajax_t51sb07"
- Case "¦X¨Ö·l¯q": µ{¦¡ = "ajax_t51sb13"
- Case "¦X¨Ö¸ê²£": µ{¦¡ = "ajax_t51sb12"
- End Select
-
- Select Case ¥«³õ§O
- Case "¤W¥«": ¥«³õ = "sii"
- Case "¤WÂd": ¥«³õ = "otc"
- Case "¿³Âd": ¥«³õ = "rotc"
- Case "¤½¶}": ¥«³õ = "pub"
- End Select
-
- 'ì©lºô§} http://mops.twse.com.tw/mops/web/ajax_t51sb07?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=sii&year=101&season=04
- theURL = "http://mops.twse.com.tw/mops/web/" & µ{¦¡ & "?encodeURIComponent=1&step=1&firstin=1&off=1&TYPEK=" & ¥«³õ & "&year=" & ¦~ & "&season=" & ©u
-
- With ActiveSheet.QueryTables.Add(Connection:="URL;" & theURL, Destination:=Range("A1"))
- .Name = "§ì°]³ø"
- .BackgroundQuery = True
- .RefreshStyle = xlOverwriteCells
- .RefreshPeriod = 0
- .WebSelectionType = xlEntirePage
- .WebFormatting = xlWebFormattingNone
- .WebDisableDateRecognition = False
- .WebDisableRedirections = False
- .Refresh BackgroundQuery:=False
- .Delete
- End With
-
- 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") |
|