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

[µo°Ý] ¤U¸ü ¤WÂdªÑ²¼¨C¤é¦¬½L¦æ±¡, ¥uÅã¥Ü¼Ð´£¦C

[µo°Ý] ¤U¸ü ¤WÂdªÑ²¼¨C¤é¦¬½L¦æ±¡, ¥uÅã¥Ü¼Ð´£¦C

§Ú·Q­n¤U¸ü ¤WÂdªÑ²¼¨C¤é¦¬½L¦æ±¡
¥i¬O ­×§ï«á ¥u·|¦C¥X ¼ÐÃD
½Ð«e½ú«üÂI

¤WÂdªÑ²¼¤U¸ü.rar (10.08 KB)

¦]¬°§Ú¥Ø«eµLªk¤U¸ü§AªºÀɮסA©Ò¥H¥i¥H¥Î¶K¹Ï¤è¦¡¨Ó´y­z§Aªº°ÝÃD¶Ü?
§Ú¤§«eªºµ{¦¡¼gªk¦p¤U©Ò­z¡A¤£ª¾¹D¬O§_»P§Aªº»Ý¨D¬Û¦P¡G
1¡B¿é¤J´Á±æªº¤é´Á°_°W¡A©Î¦A¼W¥[ªÑ²¼½s¸¹¡q±ø¥ó§PÂ_¡A­Y¦³ªÑ²¼½s¸¹¬d¸ß±ø¥ó¡A«h«Ý·|¸ê®Æ¥u»Ý¾ã²z¸Óµ§¸ê®Æ¡A­YµLªÑ²¼½s¸¹¡A´N¥þ³¡³£¾ã²z¡r
2¡B¦Û°Ê§P©w¬O§_¸Ó¤éªºÀɮ׬O§_¦s¦b¡A­YµL¡A«h¦Û°Ê¨ì¤W¥«¤WÂdºô­¶¤U¸üÀÉ®×¥BÀx¦s¦b¹q¸£¤º¡q³o¼Ë¸ê®Æ¥i¥H­«½Æ¨Ï¥Î¡A¦Ó¥B¤£»Ý¾á¤ß®É¶¡¤[¤F¡Aºô¸ô¸ê®Æ´N¤£¨£¤F¡r
3¡B¦Û°Ê¶}±Ò¤U¸üªºÀɮסA¨Ã®Ú¾Ú»Ý¨D§ì¨úData¡qÄ´¦p¬Y¤@ÀɪѲ¼ªº¨º¤@¦C¸ê®Æ¡r¡A¦Û°Ê¨Ì¾Ú¤é´Á±Æ¦C¸ê®Æ¡A³Ì«á¦A¦Û°ÊøÁͶչÏ

TOP

  1. Sub otc()
  2. Cells.Delete
  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "URL;http://www.tpex.org.tw/web/stock/aftertrading/otc_quotes_no1430/stk_wn1430_print.php?l=zh-tw&d=104/04/14&se=EW&s=0,asc,0" _
  5.         , Destination:=Range("$A$1"))
  6.         .Refresh BackgroundQuery:=False
  7.     End With
  8. End Sub
½Æ»s¥N½X
¤é´Á§ï¤@§ï´N¦æ

TOP

T¤j, ÁÂÁ±zªº¦^ÂÐ, ¤£¹L§Ú¦A¯d¦sªº¬O Raw Data
J¤j, ¨º½Ð°Ý¦pªG¬O ª½±µ§ì¨ú·í¤Ñ¦¬½L¸ê°T ¤é´Á³¡¤À­n¦p¦ó§ó§ï?

TOP

¦^´_ 4# k123456770
µ{¦¡½X¤¤ªº
104/04/14


    ´N¬O¤é´Á

TOP

®¦...§Úª¾¹D¥i¥H§ó§ï¨ºÃä
¦ý¬O¬O§_¥i¥H¤£¥Î¨C¤Ñ§ó§ï, Àq»{¤U¸ü·í¤Ñ¸ê®Æ

TOP

        ÀR«ä¦Û¦b : §g¤l¬°¥Ø¼Ð¡A¤p¤H¬°¥Øªº¡C
ªð¦^¦Cªí ¤W¤@¥DÃD