- ©«¤l
- 18
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 28
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN8
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 10
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2012-3-27
- ³Ì«áµn¿ý
- 2019-10-14
|
¸Éªþ¤WGBKEE¤jªºµ{¦¡½X..
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: '³B¸Ìºô¶¤¤Â_
IE.Quit
ºô¶
Err.Clear
GoTo xlAgain
End Function |
|