- ©«¤l
- 3
- ¥DÃD
- 1
- ºëµØ
- 0
- ¿n¤À
- 4
- ÂI¦W
- 0
- §@·~¨t²Î
- winxp
- ³nÅ骩¥»
- office2007
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2013-5-17
- ³Ì«áµn¿ý
- 2014-12-12
|
¦^´_ 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«ü¾É,ÁÂÁ |
|