標題: 完成N次下載後 , 才會出現階段錯誤91 [打印本頁]

---

作者: HSIEN6001    時間: 2013-5-15 10:11     標題: 完成N次下載後 , 才會出現階段錯誤91

本帖最後由 HSIEN6001 於 2013-5-15 10:12 編輯

完成N次下載後 , 才會出現階段錯誤91
請問我應該修正哪裡，謝謝!!

1. Sub CashFlow(財報別, fileIdx As String)
   
2. Dim IE As New InternetExplorer
   
3. 
   
4.     Select Case 財報別
   
5.         Case "季報":     程式 = "Cash_Q.aspx"
   
6.         Case "年報":     程式 = "Cash.aspx"
   
7.     End Select
   
8.    
   
9.     寫入工作表 = 財報別
   
10.    
    
11. IE.Visible = False
    
12.     UL = "http://2330.tw/Stock_" & 程式 & "?id=" & fileIdx
    
13.     IE.navigate UL
    
14.         Do While IE.readyState <> READYSTATE_COMPLETE
    
15.             DoEvents
    
16.         Loop
    
17.     Set oDoc = IE.document
    
18.         Call ListTableinnertext(oDoc)
    
19.         '
    
20.         '
    
21.         '
    
22. Set oDoc = Nothing
    
23. End Sub
    
24. 
    
25. Sub ListTableinnertext(oDoc)
    
26. Dim DocElemsCnt As Integer
    
27. Dim Tbl As Object
    
28. Dim CoLen As Integer, RwLen As Integer
    
29. Dim iText As String
    
30.     For DocElemsCnt = 0 To oDoc.all.Length - 1
    
31.         If oDoc.all.Item(DocElemsCnt).tagName = "TABLE" Then    '執行完成 N 次下載後,每次都在這行出現階段錯誤91
    
32.             Set Tbl = oDoc.all.Item(DocElemsCnt)
    
33.             If Tbl.Rows.Length > 5 Then
    
34.                 rCol = 0
    
35.                 For RwLen = 0 To Tbl.Rows.Length - 1
    
36.                     rCol = rCol + 1
    
37.                     For CoLen = 0 To Tbl.Rows(RwLen).Cells.Length - 1
    
38.                         iText = Tbl.Rows(RwLen).Cells(CoLen).innerText
    
39.                         If Left(iText, 4) = "Page" Then Exit Sub
    
40.                         Cells(RwLen + 1, CoLen + 4).Value = iText
    
41.                     Next CoLen
    
42.                 Next RwLen
    
43.             End If
    
44.         End If
    
45.     Next DocElemsCnt
    
46. End Sub

複製代碼

---

作者: GBKEE    時間: 2013-5-15 10:40

本帖最後由 GBKEE 於 2013-5-15 10:44 編輯

回復 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

複製代碼

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)