icestormer

原本都沒有題但昨天跟今左開始如上圖的錯誤 然後 錯行碼停在
   
    Application.Wait Now + TimeValue("00:00:05")  '等待5秒完成
Set x = .document.getElementById("results").tFoot.all.tags("span") 在這一行?

這種問題是網站來不及處理的問題  對吧?? 能怎處理呢? 把5秒變10或更長可行??

icestormer

回復 21# icestormer


  忘了說 網站有時 可以用有時又不行..不知是不是剛好很多人用在忙中

icestormer

我用以下的程式碼 出現以上圖的錯(之前不會有這問題) 另外奇怪的是 只要我是手動貼入 再手動點擊SUMBIT 網站都不會出錯呢 不知 如果改用FIREFOX 或GOOGLE的會好些?
有人能幫忙嗎?

Sub Test()
  Dim oIe, myData As DataObject, x
  
  Set myData = New DataObject  '需引用 MS Form Object Library
  
  With Sheets("自動計算表")
    .Range(.[A4], .[F4].End(xlDown)).Copy
  End With
  myData.GetFromClipboard
  
  Set oIe = CreateObject("internetExplorer.Application")
  With oIe
    '.Visible = False
    .navigate "http://www.evepraisal.com"
    Do While oIe.readystate <> 4: DoEvents: Loop
   
    .document.getElementById("raw_textarea").innerText = myData.GetText '填入
    .document.getElementById("result_submit").Click 'submit
   
    Application.Wait Now + TimeValue("00:00:05")  '等待5秒完成
   
       Set x = .document.getElementById("results").tFoot.all.tags("span")
    [L22].Value = x(0).innerText & " : " & x(3).innerText
    [L23].Value = x(1).innerText & " : " & x(4).innerText
    [L24].Value = x(2).innerText & " : " & x(5).innerText
    .Quit
  End With
  
End Sub