返回列表 上一主題 發帖

[發問] 程式碼在2003可執行..在2010出現錯誤

go2hk

帖子
18 
主題
5 
精華
0 
積分
28 
點名
0  
作業系統
WIN8 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-3-27 
最後登錄
2019-10-14 
1# 跳轉到 » 正序看帖
打印
tT
發表於 2014-2-27 13:14 | 只看該作者

[發問] 程式碼在2003可執行..在2010出現錯誤

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

go2hk

帖子
18 
主題
5 
精華
0 
積分
28 
點名
0  
作業系統
WIN8 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-3-27 
最後登錄
2019-10-14 
3#
發表於 2014-3-1 15:23 | 只看該作者
請問是否問題描述不夠清楚
不曉得是否與windows 8 作業系統有關
或是我個人的電腦的問題
謝謝

TOP

go2hk

帖子
18 
主題
5 
精華
0 
積分
28 
點名
0  
作業系統
WIN8 
軟體版本
office2010 
閱讀權限
10 
性別
男 
註冊時間
2012-3-27 
最後登錄
2019-10-14 
2#
發表於 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

TOP

        靜思自在 : 有時當思無時苦，好天要積雨來糧。
返回列表 上一主題