ªð¦^¦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 : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD