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

[µo°Ý] ¶}±Òºô­¶«á´N¥X¿ù

[µo°Ý] ¶}±Òºô­¶«á´N¥X¿ù

¦b¤½¥q¹q¸£­n¼g±±¨îºô­¶ªºVBAµ{¦¡
¥u¥ý¼g¤F¤@ÂI°µ´ú¸Õ
  1. Dim E As Object
  2.     With CreateObject("InternetExplorer.Application")
  3.         .Visible = True
  4.         .Navigate "ºô§}"
  5.         Do While .Busy Or .readyState <> 4: DoEvents: Loop
  6.         With .Document
  7.         End With
  8.     End With
½Æ»s¥N½X
¶}±Òºô­¶«á ¤§«á¦b.busy©M.document´N¥X²{¿ù»~¤F


§Ú¦Û¤v»{¬°À³¸Ó¤£¬Oµ{¦¡½Xªº°ÝÃD§a
¦]¬°§Ú¦b®a¤]¬O®t¤£¦h³o¼Ë¼g´N«Ü¥¿±`

¤½¥q¹q¸£:
Windows XP
Office 2003
µLªk³s¨ì¥~­±ºô¸ô
³sµ²ºô­¶¬O.asp

¤£ª¾­ì¦]¤°»ò­ì¦]³y¦¨¿ù»~ªº
Àµ½Ð¨ó§U
ÁÂÁÂ

¦^´_ 2# singo1232001


§Ú°O±o³o¨â¶µ§Ú¤]³£¦³¶}±Ò¤F
§Ú¦AÀˬd¬Ý¬Ý
ÁÂÁ§A

TOP

        ÀR«ä¦Û¦b : ¯à·F¤£·F¡A¤£¦p­W·F¹ê·F¡C
ªð¦^¦Cªí ¤W¤@¥DÃD