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

[µo°Ý] ¦³ÃöWith CreateObject("internetexplorer.application")¤§ºô­¶¨Ï¥Î¤èªk

[µo°Ý] ¦³ÃöWith CreateObject("internetexplorer.application")¤§ºô­¶¨Ï¥Î¤èªk

½Ð°Ý¦³ÃöWith CreateObject("internetexplorer.application")¤§ºô­¶¨Ï¥Î¤èªk¡A
¬O§_¦³°ò¥»¹q¸£³]©wªº±ø¥ó(EXCEL¡Bµn¿ýÀÉ¡B¨¾¤õÀð...)¡A¼¶¼gªºVBA¦b¨ä¥L¥D¾÷¥i¥H¨Ï¥Î¡A
²¾¨ì·s¹q¸£µ{¦¡µLªkºI¨úºô­¶¸ê®Æ¦ÜEXCEL¡A¦A³Â·Ð¦U¦ì¨ó§U¸Ñµª¡AÁÂÁ¤F¡C

¦pªG¬O64¦ì¤¸ªºEXCEL¬O§_¶·©óµ{¦¡½X¥[¤Jµ{¦¡½X¡H¦p¦ó½Õ¾ã¡H

TOP

¦^´_ 2# a68951
°£«D¦³¨Ï¥Î¨ì Windows ¨t²Î°ÊºA³sµ²µ{¦¡®w (.DLL) ¥~¡A
  1. #If VBA7 Then      '  64 ¦ì¤¸ªº«Å§i
  2.     Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  3. #Else              '  32 ¦ì¤¸ªº«Å§i
  4.     Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
  5. #End If
½Æ»s¥N½X
¤@¯ëµ{¦¡À³¥Î¨ÃµL¨ä®t²§©Ê¡C

TOP

        ÀR«ä¦Û¦b : ¨C¤ÑµL©Ò¨Æ¨Æ¡A¬O¤H¥Íªº®ø¶OªÌ¡A¿n·¥¡B¦³¥Î¤~¬O¤H¥Íªº³Ð³yªÌ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD