- ©«¤l
- 1018
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 1058
- ÂI¦W
- 0
- §@·~¨t²Î
- win7 32bit
- ³nÅ骩¥»
- Office 2016 64-bit
- ¾\ŪÅv
- 50
- ©Ê§O
- ¨k
- ¨Ó¦Û
- ®ç¶é
- µù¥U®É¶¡
- 2012-5-9
- ³Ì«áµn¿ý
- 2022-9-28
|
¦^´_ ¬¡¤O¥R¨K
¤é´Á°Ñ¼Æ¬O input_date , ¤ÀÃþ¶µ¥Ø°Ñ¼Æ¬O select2
§A¥i¥H¸Õ¬Ý¬Ýqueryºô§}¥Î¹³³o¼Ëªº®æ¦¡
http://www.twse.com.tw/ch/trading/fund/T86/T86.php&input_date=101/10/19&select2=13
...
stillfish00 µoªí©ó 2012-10-21 11:52
©êºp »¡¿ù¤F , ¤£¬Oqueryºô§} , À³¸Ó¬OpostText
¹³³o¼Ë¥h§ïÅܰѼÆ
Dim selectDate As String, selectType As String
selectDate = "101/10/19"
selectType = "13"
With QueryTables(1)
.Connection = "URL;http://www.twse.com.tw/ch/trading/fund/T86/T86.php"
.PreserveFormatting = False
.WebSelectionType = xlSpecifiedTables
.WebFormatting = xlWebFormattingNone
.WebDisableDateRecognition = True
.WebTables = "9"
.PostText = "input_date=" & selectDate & "&select2=" & selectType
.Refresh False
End With |
|