- ©«¤l
- 181
- ¥DÃD
- 5
- ºëµØ
- 0
- ¿n¤À
- 197
- ÂI¦W
- 0
- §@·~¨t²Î
- XP
- ³nÅ骩¥»
- 2000
- ¾\ŪÅv
- 20
- ©Ê§O
- ¤k
- µù¥U®É¶¡
- 2014-3-9
- ³Ì«áµn¿ý
- 2024-4-29
|
¥»©«³Ì«á¥Ñ bobomi ©ó 2014-10-18 08:26 ½s¿è
Sub IE345678()
If Not Ie Is Nothing Then
MsgBox "IE345678 ¤w°õ¦æ"
Exit Sub
End If
Set Ie = CreateObject("InternetExplorer.Application")
Ie.Visible = 1
Ie.Navigate "http://newmis.twse.com.tw/stock/group.jsp?ex=tse&ind=TIDX#STATISTICS"
Do While Ie.Busy Or Ie.ReadyState <> 4: DoEvents: Loop
timestock
End Sub
Sub timestock()
'Application.OnTime The_Time, "timestock"
'-------------------------------------------------------
'zzzzz ' ¥Dnµ{§Ç
For w = 1 To 100000000
Next
'------------------------------------------------------------------------------------------
If Not Ie Is Nothing Then
Ie.Quit
Set Ie = Nothing
End If
my = 3 / 86400
The_Time = Time + my
Application.OnTime The_Time, "IE345678"
End Sub |
|