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

Ãö©óCreateObject("InternetExplorer.Application")ªº¨Ï¥Î

Ãö©óCreateObject("InternetExplorer.Application")ªº¨Ï¥Î

·í§Ú©ñ¦bUserForm1¤º°õ¦æ®É¡A·|°õ¦æ«D±`¤[³£¨S¤ÏÀ³¡C
  1. Private Sub CommandButton1_Click()
  2. '±b±KÅçÃÒ
  3.     With CreateObject("InternetExplorer.Application")
  4.         .Navigate "https://tw.yahoo.com"
  5.    
  6.         Do While .Busy Or .ReadyState <> 4
  7.             DoEvents
  8.         Loop
  9.         .Document.all("username").innerText = "A"
  10.         .Document.all("password").innerText = "B"
  11.         .Document.all("submit2").Click
  12.         .Visible = True
  13.     End With
  14.                
  15.     With CreateObject("InternetExplorer.Application")
  16.         .Navigate "https://tw.yahoo.com"
  17.    
  18.         Do While .Busy Or .ReadyState <> 4
  19.             DoEvents
  20.         Loop
  21.         .Document.all("username").innerText = "A"
  22.         .Document.all("password").innerText = "B"
  23.         .Visible = True
  24.     End With
  25. End Sub
½Æ»s¥N½X

¦^´_ 1# av8d


    °ÝÃD¤w¸Ñ¨M~­«¶}¾÷§Y¥i= =

TOP

¦^´_ 1# av8d


    ½Ð°Ýª©¤Í
Ãö©ó³o­Óª«¥ó¡A¬O¤£¬OEXCEL VBE »¡©ú¸Ì­±³£§ä¤£¨ìªü

§Ú§ä¤F¾ã¤Ñ¤F»¡

­n«Ø¥ß¤@­Óª«¥ó ¶}±Ò ¤@­ÓIE  ³o­Ó  

CreateObject("internetexplorer.application") '¨Ï¥Î¦¹¤è¦¡¥i¥H§K°£ "³]©w¤Þ¥Î¶µ¥Ø"

¦³¸Ô²Óªº»¡©ú¤è¦¡¶Ü  ¥L«á­±ªº´X­ÓÄÝ©Ê

§Ú³£·Q­n¤F¸Ñ»¡  ÁÂÁ±z¤F^^"

TOP

        ÀR«ä¦Û¦b : ¡i®É¶¡¦pÆp¥Û¡j®É¶¡¹ï¤@­Ó¦³´¼¼zªº¤H¦Ó¨¥¡A´N¦pÆp¥Û¯ë¬Ã¶Q¡F¦ý¹ï·M¤H¨Ó»¡¡A«o¹³¬O¤@§âªd¤g¡A¤@ÂI»ù­È¤]¨S¦³¡C
ªð¦^¦Cªí ¤W¤@¥DÃD