標題: [發問] 程式碼在2003可執行..在2010出現錯誤 [打印本頁]

---

作者: go2hk    時間: 2014-2-27 13:14     標題: 程式碼在2003可執行..在2010出現錯誤

討論區的文章 : 證交所全部上市股票交易明細下載
按照 7# GBKEE 大的程式碼可以在EXCEL 2003執行
但在EXCEL  2010有出現錯誤 ( 執行階段錯誤91 : 沒有設定物件變數或With區塊變數 )
按F8逐步執行時發現是卡在第149行 ( 報表頁數 = element.Item(0).innertext )
想請問各位高手該如何修改
謝謝

---

作者: go2hk    時間: 2014-2-27 13:34

補附上GBKEE大的程式碼..

Private Function 報表頁數(Sstock_N0 As String)
    Dim element As Object
    On Error GoTo xlerr:
xlAgain:
    Set element = IE.Document.getElementsByName("txtTASKNO")
    element.Item(0).Value = Sstock_N0
    Set element = IE.Document.getElementsByName("btnOK")
    element.Item(0).Click
    With IE
        Do While .Busy Or .ReadyState <> 4
            DoEvents
        Loop
    End With
    Set element = IE.Document.getElementsByName("sp_ListCount")
    報表頁數 = element.Item(0).innertext
    Exit Function
xlerr:        '處裡網頁中斷
    IE.Quit
    網頁
    Err.Clear
    GoTo xlAgain
End Function

---

作者: go2hk    時間: 2014-3-1 15:23

請問是否問題描述不夠清楚
不曉得是否與windows 8 作業系統有關
或是我個人的電腦的問題
謝謝

---

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