stillfish00

¦^´_ 1# vanguarx
§ï¥ÎPost , ¤j·§¦p¤U¡A¿é¤J¤é´Á©MÀx¦s¸ô®|¦Û¤v§ï¦¨§A­nªº§a~

1. Sub TestWeb()
   
2.     Dim myURL As String
   
3.     Dim oStream As Object           'ADODB.Stream
   
4.     Dim WinHttpReq As Object            'XMLHTTP
   
5.     Dim fileidx As String
   
6.     Dim sPost As String
   
7.     Dim dteQueryDate As Date
   
8.    
   
9.     dteQueryDate = #3/11/2015#
   
10.    
    
11.     myURL = "http://www.twse.com.tw/ch/trading/fund/TWT38U/TWT38U.php"
    
12.     sPost = "download=csv&qdate=" & Format(dteQueryDate, "e/mm/dd") & "&sorting=by_issue"
    
13.     sPost = Replace(sPost, "/", "%2F")  'or urlencode
    
14.    
    
15.     ''¥~¸ê¶R½æ¸ê°T
    
16.     Set WinHttpReq = CreateObject("MSXML2.XMLHTTP")
    
17.     With WinHttpReq
    
18.         .Open "POST", myURL, False
    
19.         .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
20.         .setRequestHeader "Content-Length", Len(sPost)
    
21.         .Send (sPost)
    
22.     End With
    
23.    
    
24.     Set oStream = CreateObject("ADODB.Stream")
    
25.     With oStream
    
26.         .Open
    
27.         .Type = 1
    
28.         .Write WinHttpReq.responseBody
    
29.         fileidx = ThisWorkbook.Path & "\" & Format(dteQueryDate, "yyyymmdd") & ".csv"          ''³]©w¤U¸ü¸ô®|¤ÎÀɦW
    
30.         On Error Resume Next
    
31.         Kill fileidx
    
32.         On Error GoTo 0
    
33.         .SaveToFile fileidx
    
34.         .Close
    
35.     End With
    
36.    
    
37.     Set WinHttpReq = Nothing
    
38.     Set oStream = Nothing
    
39. End Sub

½Æ»s¥N½X

stillfish00

¦^´_ 4# adranimal
urlstr = "URL;http://www.twse.com.tw/ch/trading/exchange/MI_INDEX/MI_INDEX.php"
.WebTables = "2"
.PostText = "download=&qdate=104%2F03%2F12&selectType=ALLBUT0999"

§ï³o¤T­Ó¦a¤è

stillfish00

¦^´_ 6# adranimal
¥J²ÓÂI°Ú¡A§A.WebTables Äݩʧï¤F¨â¦¸

stillfish00

¦^´_ 8# adranimal
¤@¤G¼Ó³£¦³½u¯Á¡A¦Û¤v°µ°µ¬Ý

stillfish00

¦^´_ 10# go2hk
·íµM¤£¬OÀH«K®M¥Î....
ºô­¶¤d¦ÊºØ¡A¤W­±¤èªk¬O¦b§A¯àª¾¹D¦b¤U¸üÀÉ®×®É
¥¦©Òµo¥X½Ð¨Dªº¹ï¶Hºô­¶©MPost ©ÎGet°Ñ¼Æ®É¤~¥Îªº....

¦Ü©ó«ç»ò¤ÀªR¥X¤U¸ü½Ð¨Dªº¹ï¶Hºô­¶©MPost ©ÎGet°Ñ¼Æ¡A
¨º¬O¥t¤@¦^¨Æ¡A§Ú¤]¨Ã«D³£¤F¸Ñ....

³£¤£ª¾¹Dªº¸Ü´N¾ÇµÛ¥Î IEª«¥ó(InternetExplorer.Application)ªº¤èªk§a¡A¤ñ¸û¦n¤Jªù...

ex:
1.   Âd¶R¤¤¤ß¤T¤jªk¤H¶R½æ©ú²Ó¸ê°T
¥ÎGET¤èªk
¤U¸üºô§}   http://www.tpex.org.tw/web/stock ... _hedge_download.php
GET°Ñ¼Æ    l=zh-tw&t=D&d=104/03/24&s=0,asc,0

2Ãi±o§ä¤F..