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

ÃÒ¥æ©Ò¥þ³¡¤W¥«ªÑ²¼¥æ©ö©ú²Ó¤U¸ü

¦^´_  white5168

G¤j³o¸Ì«ü¥O«Ü§¹¾ã,À³¸Ó¤£¬O­¶¼Æ¦^ÂаÝÃD (§Ú¤]´ú¸Õ¹L³o­Ó­¶­±¦^ÂÐ)
        Do Whil ...
HSIEN6001 µoªí©ó 2012-8-4 15:01



    ¤S¥u¬Ý¤@¥bªºcode
        Do While .Busy Or .readyState <> IE_READYSTATE.READYSTATE_COMPLETE
            DoEvents
        Loop
        
        Do
            DoEvents
        Loop Until .document.readyState = "complete"
¥H¤Wªºµ{¦¡½X­n¶]§¹,ºô­¶¤~ºâ¬O¶}§¹¥þ

TOP

¦^´_  white5168     ÁÂÁ§Aªº´£¿ô «ü±Ð  
¦^´_  c_c_lai           ¦^´_  HSIEN6001  
white5168  ªº«ü±Ð ...
GBKEE µoªí©ó 2012-8-4 15:19
  1. Sub ¨ú±o¥æ©ö©ú²ÓÁ`­¶¼Æ()
  2.     Dim myTime
  3.     Dim Retry As Integer
  4.    
  5.     Set IE = CreateObject("InternetExplorer.Application")

  6.     strLink = "http://bsr.twse.com.tw/bshtm/bsMenu.aspx"
  7.    
  8.     Retry = 0
  9.    
  10.     Do
  11.         Do
  12.             Do
  13.                 Do
  14.                     Do
  15.                         ºô­¶¶}±Ò§¹¦¨»P§_
  16.                         On Error Resume Next
  17.                         Set doc = IE.document
  18.                         On Error GoTo 0
  19.                     Loop While doc Is Nothing
  20.                     Set element = doc.getElementsByName("txtTASKNO")
  21.                  Loop While element.Length = 0
  22.                  element.Item(0).Value = stockid
  23.                  Set element = doc.getElementsByName("btnOK")
  24.             Loop While element.Length = 0
  25.             element.Item(0).Click
  26.             
  27.             Application.Wait Now + TimeValue("00:00:02")
  28.             
  29.             Set element = doc.getElementsByName("sp_ListCount")
  30.             'Set element = doc.getElementsByTagName("span")
  31.         Loop While element.Length = 0
  32.     Pagecount = element.Item(0).innerText
  33.     Retry = Retry + 1
  34.    
  35.     If Retry = 5 Then Exit Do
  36.     Loop While Pagecount = ""  
  37.    
  38.     Set doc = Nothing
  39.     Set element = Nothing
  40.     IE.Quit
  41.     Set IE = Nothing
  42. End Sub
½Æ»s¥N½X
§Ú¦b³o¤@¬qcode¸Ì§@ªº¦h­«¨¾½d,¦]¬°¥¼¨Ó¦U¦ì§ì¸ê®Æªº®É­Ô¥i¯à¬O¦b¦y®p®É¬q,´N¬O¤j®a¤@°_§ì¸ê®Æ,·|¾É­P»·ºÝ¦øªA¾¹ªºªA°È¸ê·½¤j®a·m,¦pªG¥u³æ³æ¤@¦¸©Ê§ìÁ`­¶¼Æ,¤@©w·|µo¥Í§ì¤£¹Dªº®É­Ô,©Ò¥H¤~­n¦h°µ´X¹D¤âÄò
¦AªÌ§Ú¤]¾á¤ß,¦]¬°VBA ¨S¦³try...cashªº»yªk,©Ò¥H°£¤F¦h®aÀ½¨ì¨¾Å@,¦A¨Ó´N¬O°O¿ý¨C¤@µ§§ì¨úªºID,·í¿ù»~µo¥Íªº®É­Ô¤~¦³¾÷·|¥i¥H¦A­«Â_ÂI¶}©l§ì¨ú,¦Ó¤£¬O­«ÀY
¦b§ìÃÒ¥æ©Ò¸ê®Æ®É,®É±`·|³QÃÒ¥æ©Òªº¨¾¤õÀð±j¨îÂ_¥X,»Ý¬°³o­Ó³¡¤À¦h¥[´X¹D¨¾Å@¤~¦æ,¦]¦¹³o¤@ÂI½Ð¦U¦ì°È¥²¦h¦hª`·N

TOP

¦^´_ 22# white5168
»¡ªº¦n²z¹D¥X: ¤U¸ü¿ù»~ÂIªº­ì¦]
¦hÁµoªíÀ°¤j²³¸Ñ´b

TOP

¦^´_ 20# white5168

O_p ¦n°Õ!§Ú¦Û­º----->(PS:¦Û­ºµL¸o!!Please)

³oVBA¾Ç²ß,±`¹J¨ì«Ü¦h¥Í¦r,¤@ª½¬d¸ê®Æ + §l¦¬®ø¤Æ¤£¨}
±`¤ß¥Í°h©À--->(µoÃi)
¦]¬°¤j®vªº½s½X¤è¦¡¹ï§Ú³oªì¾ÇªÌ¨Ó»¡¤Ó²`¶ø¤F!
´N¬Ý¤F«e­±ÅSÅSªø´N²´ªá¼º¶Ã---->¤£ª¾±q¦ó¬d¥Í¦r
¸õ¹L®ö¹L,´N¦Û¤v·d¯ºÅo!¬£Á®º!

¹ï¤F!¤W¥«¥N¸¹¨ú±o®É,¤Ö¤F¨â¤ä;¤ñ¹ïµ²ªG¬O
3638 ¡@F-IML
3673 ¡@F-TPK
·íµMÁ٬ݤ£À´¤j®v§@«~,¤£·|¦Û¦æ°£¿ù

­¶¼Æ¨ú±o®É,­Y§ï¦¨postdataÂ^¨ú­ì©l½Xªº¤è¦¡¤ñ¸û§Ö?
¬ÝµÛie¨ê¤F¦n´X¦¸µe­±³£¨ú¤£¨ì­¶¼Æ
¤Ï¦Ó¦b¦¹¦h¥d¤F¨Ç®É¶¡

¥Ø«e¥ý´ú¸Õ¥N¸¹¤Î­¶­±¨ú±o
¨ä¥L....ÁÙ¨S®ø¤Æ
Sorry!¶M¯º¤j¤è

TOP

°õ¦æ³o­Óµ{¦¡§ìªº¸ê®Æ¶q¤j¡A¬O§_ÃÒ¥æ©Ò·|°»´ú¦Ó¤¤Â_¤U¸ü©O?
funnydisk µoªí©ó 2012-8-4 19:27



ÃÒ¥æ©Ò¨ä¹ê¦³¦b°»´ú¬O§_¦³¤H¥Îµ{¦¡¦b§ì¨ú¸ê®Æ,³o¤@ÂI¥i¥Îpython¦^¨ìªºµ²ªG§ó©úÅã²M·¡ªº¬Ý¨ì,¦]¬°¨C·í¸ê®Æªø®É¶¡Åª¨ú®É,ÃÒ¥æ©Òªº¨¾¤õÀð´N·|Åý¦P¤@²ÕIP±j¨îÂ_¶},¦nÅý¨ä¥L¤H¥i¥H¨Ï¥Î,¨ä¹ê¦U¦ì¤]¥i¥H²M·¡¸ê®Æ,«çï»´ú¸Õ©O?´N¦b¨C¤Ñ¦U¥æ©ö¤éªº¤U¤È17:30¶}©l´N·|¦³¤H¶}©l§ì¨ú¸ê®Æ,¦y®p®É¬q8:30~13:30.¦A³o¬q®É¶¡²z,¥i¥H¦Û¦æ³sµ²¥h¬d¸ß,´N·|µo²{ºô­¶µLªk¥¿±`¶}±Ò,¦Ó¥B³o¼Ëªºª¬ªp·|«ùÄò¨ì23~23:30ºCÜ»¦a«ì´_¥¿±`,¤£¹L¦³Å²¦þ±`¨Æ§ì¸ê®Æ¤j¦³¤H¦b,¥L­Ì¤]¦b§ïÅܬFµ¦,¥Ø«e¦³Å¥»¡±N·|¦b9¤ë¥÷¦h´£¨Ñ¥I¶OªºCSVÀÉ,¤j®a¥i¥H´Á«Ý

TOP

¹ïVBA¦³¿³½ìªÌ¦ý¨S¤°©O°ò¦ªÌ¥i¥H°Ñ¦Òhttp://forum.twbts.com/viewthread.php?tid=7356&extra=

TOP

¦^´_ 28# funnydisk

¨ä¹ê¥I¶O¾÷¨î¦­´N¦s¦b
http://dataeshop.twse.com.tw/frontend/cht/index.jsp

¥u¬O.....·|¼gµ{¦¡§ì¸ê®Æªº,¦pW¤j
¨ºµ§¿ú,·íµM·|¦Û¤v¬Ù°_¨ÓÅo!

TOP

¦^´_ 22# white5168


    µU¡C¡C¡C¡C¡C¬ðµM·N·|¹L¨Ó¡A¥ý«e³o¼Ë´ú¸Õ
W¤j³o¤ä,¥ú¦b³o¸Ìhttp://bsr.twse.com.tw/bshtm/bsMenu.aspx?
¨ú¤£¨ì­¶¼Æªº®É­Ô,­n¨ê­Ó¦n´X¦¸µe­± (ºô­¶¶}±Ò§¹¦¨»P§_?)

¥ú¬O³o¼Ë¨êªº¤è¦¡,½ä¦ºªº¾÷²v§ó°ª
·|³y¦¨¶ë¨®!!!!¦y®p®É¬q§ó·|°ô¦í

TOP

¦^´_  white5168


    µU¡C¡C¡C¡C¡C¬ðµM·N·|¹L¨Ó¡A¥ý«e³o¼Ë´ú¸Õ
W¤j³o¤ä,¥ú¦b³o¸Ìhttp://bsr.twse.co ...
HSIEN6001 µoªí©ó 2012-8-4 21:37


½Ð¦^²Ä¤@­¶§Ú£¸¶}©lPO¤åªº¤º®e,½Ð¥J²Ó¸ÔŪ¥\¯à,¤å¦r»¡©úªº«Ü²M·¡·|Retry´X¦¸?½Ð¦A§âcodeŪ²M·¡

TOP

¦^´_ 30# white5168


    ¨S¿ù§r!´ú¸Õµ²ªG¦p¦P§A¼gªº
·íºô­¶¶}±Ò¦³°ÝÃD®É,¤Î»·ºÝÃÒ¥æ©Ò¦øªA¾¹¹L¦£¸L®É,±N·|¶i¦æRetryª½¨ì¨ú±o¸ê®Æ
§A¥á­Ó¨S¦³¥æ©ö¶R½æªº¥N¸¹µ¹¥¦,´N¨ê¤£°±¤F
¨Ò¦p§NªùªºªÑ²¼,¥¦ªº¥æ©ö¶q¦³¥i¯à¬O " 0 "
´N·|¥X²{µL¥æ©ö¸ê®Æ,·íµM´N¨ú¤£¨ì  "­¶¼Æ"
§A»¡¦Û¤vµ{¦¡­n¨ê´X¦¸,§A·íµM¤ñ§Ú²M·¡

§Ú´ú¸Õ®É,¥ú¬Ý¥¦¤£Â_¦P¤@­Ó¥N¸¹key in ¥N½X  --->´N¶Ì²´¤F
µe­±¤£Â_¨ê­Ó¦n´X¦¸,¤~·|¸õ¥X¦^°é  (Do...Loop ¤]¤£¤Ö)
¦h¨êN¦¸,¤]¥Nªí¥d¦b¨º¸Ì

¶ë¨®­ì²z´N¬O  "§Ú¶ë¦í,¤j®a¤]¶ë¦í!"

¸Õ¸Õ§ïpostdata¦n¤@ÂI!
¤j®v!!

TOP

        ÀR«ä¦Û¦b : ¥¬¬I¦p¼½ºØ¡A¥HÅw³ß¤ß´þ¼íºØ¤l¡A¤~·|µoªÞ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD