- ©«¤l
- 161
- ¥DÃD
- 26
- ºëµØ
- 0
- ¿n¤À
- 187
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- ¨Ó¦Û
- TW
- µù¥U®É¶¡
- 2011-1-2
- ³Ì«áµn¿ý
- 2022-2-16
|
¥»©«³Ì«á¥Ñ wufonna ©ó 2014-12-14 15:09 ½s¿è
¦^´_ 14# GBKEE
½Ð°Ý ¤j¤j ²Ä¤@¬q¹ïÀ³ªº¬O³oµ{¦¡½X¶Ü¡A¨º²Ä¤G¬qªº§Ú³o¼Ë§ï¬°¦ó¬dµL¸ÓªÑ²¼¥N½X¸ê®Æ
½Ñ°Ý ¤j¤j ¦p¦ó¦³»~¡A§ï¦p¦ó°µ½m²ß¡AÁÂÁÂ
<button type="submit" class="btn btn-default"><span class="glyphicon glyphicon-search" aria-hidden="true"></span> ¬d¸ß</button>
Set a = .Document.ALL.tags("BUTTON")
For Each e In a
If Trim(e.innertext) = "¬d¸ß" And e.ID = "" Then
e.Click
Exit For
End If
Next
<input type="radio" id="rdo_search_stk" tabindex="14" name="rdo_search" value="1" class="input-radio-search" checked><span>ӪѬd¸ß</span>
<button id="header_search_btn" tabindex="17" class="input-button ui-corner-all" tabindex="13">·j´M</button>
Sub test()
Dim e As Object, a As Object
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Visible = True
'¨é°Ó¶R½æÃÒ¨é¤é³øªí¬d¸ß¨t²Î¡]¤@¯ë¥æ©ö¡^
.Navigate "http://www.gretai.org.tw/web/stock/aftertrading/broker_trading/brokerBS.php?l=zh-tw"
Do While .Busy Or .readyState <> 4: DoEvents: Loop
.Document.ALL.tags("INPUT")("rdo_search_stk").Value = 1
.Document.ALL.tags("INPUT")("input_search_site").Value = Trim(1258)
Set a = .Document.ALL.tags("BUTTON")
For Each e In a
If e.ID = "header_search_btn" Then
e.Click
Exit For
End If
Next
End With
End Sub |
|