ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

[µo°Ý] vba ¾Þ§@ie¶×¤J¸ê®Æ

[µo°Ý] vba ¾Þ§@ie¶×¤J¸ê®Æ

¦U¦ì¦n
½Ð°Ý¯à¥Hvba ¶}±Ò¥H¤Uºô§}¨Ã§¹¦¨
http://mops.twse.com.tw/mops/web/t164sb04
1.³Ì·s¸ê®Æ§ï¦¨¾ú¥v¸ê®Æ
2.¤½¥q¥N¸¹¿é¤J2330
3.¦~«×102
4.¿ï²Ä¤@©u
¨Ã¦b¬d¸ß¥X¸ê®Æ«á¶×¤Jexcel,

¦]¬°¤µ¦~«×IFRS¤W¸ô«á,¤½¶}¸ê°T¯¸¤j§ïª©,­ì¥»¥i¥H¥Îhttp»yªk¬d¸ß¥X­Ó§O¤½¥q³øªí,
±æºô¥S¤£§[«ü±Ð,·PÁÂ

¦^´_ 2# GBKEE


ÁÂÁÂGBKEE«ü¾É
³o­Óºô­¶¬Oºî¦X·l¯qªí,2013¦~«á¤W¥«Âd¤½¥q¥Ñ¤½¥¬·l¯qªí§ï¬°¤½¥¬ºî¦X·l¯qªí,
¥Ø«e¥u¦³²Ä¤@©u¤½¥¬,©Ò¥H³Ì·s¸ê®Æ¸ò¾ú¥v¸ê®Æ³£¬O²Ä¤@©u,
µ¥²Ä¤G©u¤½¥¬«á,´N¤£¦P¤F

¦A½Ð±Ð:
¤p§Ì²ßºD¥Î¥H¤U³oºØ»yªk¦b§ìºô­¶,¦ü¥G«e´£¬O¯à°÷§ä¥X¸ê®Æªºhttp,½Ð°Ý¤W­±ªººî¦X·l¯qªí¯à°÷§ä¥X¶Ü?
With ActiveSheet.QueryTables.Add(Connection:="URL;http://dj.mybank.com.tw/z/zc/zca/zca_" & mywb1.Sheets("Price").Cells(i, "A") & ".asp.htm", Destination:=Range("$A$1"))
End With

¥t¥~GBKEE¥S¤W­±´£¨Ñªºµ{¦¡¤¤,¥Î¨ìªº
.getelementsbytagname("INPUT")    =>"co_id" ¬°¤½¥q¥N¸¹
.getelementsbytagname("SELECT")   =>¦³"isnew" "year" "season"
½Ð°Ý­n«ç¼Ë±qºô­¶ª¾¹D¬O("INPUT")  ©Î¬O("SELECT")  ,¥H¤Î¦p¦ó§ä¥X¥L­Ìªºname ¦U¬O"isnew" "year" "season",

·PÁÂGBKEE¥SÄ@·N«ü¾É,ÁÂÁÂ

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD