- ©«¤l
- 34
- ¥DÃD
- 12
- ºëµØ
- 0
- ¿n¤À
- 85
- ÂI¦W
- 0
- §@·~¨t²Î
- xp
- ³nÅ骩¥»
- office 2003
- ¾\ŪÅv
- 20
- µù¥U®É¶¡
- 2012-7-3
- ³Ì«áµn¿ý
- 2013-6-4
|
¦p¦ó§ó§ï??
½Ð±Ð«e½ú!
¼Ó¤Uªºµ{¦¡n¦p¦ó§ï¤~¯à§ì©¹«e5Ӥ몺¸ê®Æ,¥B¨CӤ몺¸ê®Æ³£¯à¥ô·N§ó§ï¶K¹Ïªº¦ì¸m
Sub WEBQYT()
Dim ptxt As String
Dim yy, mm, stock
Sheet1.Activate
If Sheet1.QueryTables.Count = 0 Then
Sheet1.QueryTables.Add Connection:="URL;", Destination:=Range("A1")
End If
yy = InputBox("¿é¤J¬d¸ß¡u¦è¤¸¡v¦~¥÷", "¤WÂdªÑ²¼ - ӪѤ馨¥æ¸ê°T")
If yy = "" Then Exit Sub
mm = InputBox("¿é¤J¬d¸ß¤ë¥÷", "¤WÂdªÑ²¼ - ӪѤ馨¥æ¸ê°T")
If mm = "" Then Exit Sub
stock = InputBox("¿é¤JªÑ²¼¥N½X", "¤WÂdªÑ²¼ - ӪѤ馨¥æ¸ê°T")
If stock = "" Then Exit Sub
With Sheet1.QueryTables(1)
.Connection = "URL;http://www.otc.org.tw/ch/stock/aftertrading/daily_trading_info/result_st43.php"
.PreserveFormatting = False
.WebSelectionType = xlEntirePage
.WebFormatting = xlWebFormattingNone
.WebDisableDateRecognition = True
.PostText = "ajax=true&yy=" & yy & "&mm=" & mm & "&input_stock_code=" & stock
.Refresh False
End With
End Sub |
|