GBKEE

回復 1# HSIEN6001

1.     Set oDoc = IE.document
   
2.         Call ListTableinnertext(oDoc)
   
3.         '
   
4.         '
   
5.         '
   
6. Set oDoc = Nothing
   
7. IE.Quit     ' 關閉它: 可減少使用記憶裡
   
8. End Sub

複製代碼

1.    On Error Resume Next    '程式有錯誤,繼續執行程式.
   
2.     For DocElemsCnt = 0 To oDoc.all.Length - 1
   
3.         If oDoc.all.Item(DocElemsCnt).tagName = "TABLE" Then    '執行完成 N 次下載後,每次都在這行出現階段錯誤91

複製代碼