完成N次下載後 , 才會出現階段錯誤91

論壇榮譽勳章論壇贊助勳章

1^# 跳轉到 » 正序看帖

打印

字體大小: tT

發表於 2013-5-15 10:11 | 只看該作者

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

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

Sub CashFlow(財報別, fileIdx As String)
Dim IE As New InternetExplorer
Select Case 財報別
Case "季報": 程式 = "Cash_Q.aspx"
Case "年報": 程式 = "Cash.aspx"
End Select
寫入工作表 = 財報別
IE.Visible = False
UL = "http://2330.tw/Stock_" & 程式 & "?id=" & fileIdx
IE.navigate UL
Do While IE.readyState <> READYSTATE_COMPLETE
DoEvents
Loop
Set oDoc = IE.document
Call ListTableinnertext(oDoc)
'
'
'
Set oDoc = Nothing
End Sub
Sub ListTableinnertext(oDoc)
Dim DocElemsCnt As Integer
Dim Tbl As Object
Dim CoLen As Integer, RwLen As Integer
Dim iText As String
For DocElemsCnt = 0 To oDoc.all.Length - 1
If oDoc.all.Item(DocElemsCnt).tagName = "TABLE" Then '執行完成 N 次下載後,每次都在這行出現階段錯誤91
Set Tbl = oDoc.all.Item(DocElemsCnt)
If Tbl.Rows.Length > 5 Then
rCol = 0
For RwLen = 0 To Tbl.Rows.Length - 1
rCol = rCol + 1
For CoLen = 0 To Tbl.Rows(RwLen).Cells.Length - 1
iText = Tbl.Rows(RwLen).Cells(CoLen).innerText
If Left(iText, 4) = "Page" Then Exit Sub
Cells(RwLen + 1, CoLen + 4).Value = iText
Next CoLen
Next RwLen
End If
End If
Next DocElemsCnt
End Sub

複製代碼

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

2^#

發表於 2013-5-15 10:40 | 只看該作者

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

回復 1# HSIEN6001

複製代碼

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

複製代碼

感恩的心......(在麻辣家族討論區.用心學習會有進步的)
但資源無限,後援有限, 一天1元的贊助,人人有能力.

靜思自在 : 【時間無法遮擋】怕時間消逝，花了許多心血，想盡各式方法要遮擋時間，結果是：浪費了更多時間，且一無所成！