- 帖子
- 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 |
|