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

[µo°Ý] vba¤¤¤Þ¥Îie®Éªº ¼u¸õµøµ¡¦p¦óÃö³¬©O¡H

[µo°Ý] vba¤¤¤Þ¥Îie®Éªº ¼u¸õµøµ¡¦p¦óÃö³¬©O¡H

¥»©«³Ì«á¥Ñ joey0415 ©ó 2013-8-14 13:23 ½s¿è

¶°«Oºô­¶
http://www.tdcc.com.tw/smWeb/QryStock.jsp


¥H«e¤U¸ü¶°«Oºô­¶®É¡A¦pªG¦³¥X²{¼u¥Xµøµ¡®É¡A¥u­n¼g¤U¦C»y¥y´N¥i¥HÃö³¬µøµ¡
  1. Public Declare Function PostMessage Lib "user32" Alias "PostMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long
  2. '¨ú±o³Ìªñ¤@­Ó¼u¸õµøµ¡ªº¥N½X
  3. Public Declare Function GetLastActivePopup Lib "user32" (ByVal hwndOwnder As Long) As Long
  4. 'Åýµøµ¡°±¯d


  5.          
  6. While ie.readystate <> 4 Or ie.busy

  7. '            ¦pªG¥X²{¼u¸õµøµ¡®É½Ð½T»{¬O§_©Mieªº¬Û¦P¡A¦pªG¤£¦P®É½ÐÃö±¼¥¦
  8.                 alerthwnd = GetLastActivePopup(ie.hwnd)
  9.                 If alerthwnd <> ie.hwnd Then
  10. '                ½Õ¥Î¤W­±ªº¤½¥Î³]©w
  11.                     PostMessage alerthwnd, 16, 1, 0
  12.                 End If
  13.             Wend
½Æ»s¥N½X
Å¥°ª¤â»¡¡A¥H¥Î¦bxp¤¤¥i¥H¥Î¤W­±ªº»y¥y¡AÀ³¸Ó¨S¿ù¡A¥i¬O²{¦b¬Owin7´N¤£¦æ¤F¡A¤£ª¾¹D¦³°ª¤â¡AÁÙ¦³¨ä¥¦¼gªk¡A¥i¥H±N§ä¤£¨ì¸ê®Æªº¼u¥Xµøµ¡Ãö³¬©O¡H¤~¯àÅýµ{¦¡©¹¤U°õ¦æ©O¡H

ªþ¤W¥X²{°ÝÃDªºµøµ¡¹Ï¤ù

¥HªÑ²¼1256¬°¨Ò¡A¿ï¾Ü¤ë¥÷¬°20120801


¤W¨Ó¶¢³},µo²{J¤j±z¤]¦³¹J¨ì³o­Ó°ÝÃD!
¥H«e0000~9999´N¥i¥H¤U¸ü©Ò¦³¸ê®Æ," ¬dµL¸ê®Æ"ªº´Nµ¹¥¦ Sendkey¤U¥h!
²{¦bWin7+office2003 ¦æ¤£³q¤F! Ãö¤£±¼Alertµøµ¡.
Happy

TOP

        ÀR«ä¦Û¦b : ¸Ü¦h¤£¦p¸Ü¤Ö¡A¸Ü¤Ö¤£¦p¸Ü¦n¡C
ªð¦^¦Cªí ¤W¤@¥DÃD