[µo°Ý] ie8¥¿±`¦ýie11µLªk°õ¦æ

msmplay

½Ð°Ý¬°¦ó¥H¤U¨â¬q¤£¦Pµ{¦¡½X¦b ie8 §¡¥i¥¿±`°õ¦æ¡A¦ý ie11 «oµL¤ÏÀ³(¤Ï¬õ³B)¡A¬O§_¦]¬°µ{¦¡¼gªk¤£¦P©Î»Ý­n¥[¤J¤°»òª«¥ó©O?

Sub test()
Dim p As Object
Set myIE = CreateObject("InternetExplorer.Application")
With myIE
  .Visible = True
  .Navigate "http://test/Default.aspx" '¤½¥q¤ººô¬GµLªk´£¨Ñ¯u¹êºô§}

  Do While Busy Or .ReadyState <> 4: DoEvents: Loop

  Set p = .Document.all.tags("INPUT")
  .Document.all.txtUsername.innerText = "test"
  .Document.all.txtPassword.innerText = "test"
  .Document.all.ImageButton2.Click

  Do While Busy Or .ReadyState <> 4: DoEvents: Loop

End With
End Sub
--------------------------------------------------------------------------
Sub test()

Set myIE = CreateObject("InternetExplorer.Application")
With myIE
  .Visible = True
  .Navigate "http://test/Report_OMS/Reprt_Sale.aspx" '¤½¥q¤ººô¬GµLªk´£¨Ñ¯u¹êºô§}

  Do While Busy Or .ReadyState <> 4: DoEvents: Loop

  .Document.all("ReportViewer1_ctl01_ctl05_ctl00").Value = "Excel"

End With
End Sub