gto1208

¦U¦ì°ª¤â±z¦n
http://www.gretai.org.tw/ch/stock/statistics/monthly/st44.php
»P¤W­zºô¯¸¬ÛÃþ¡A¦ý¥¦¿é¤J®É¦³¤G­Ó°Ñ¼Æ¡A¥Ø«e§ä¨ìªº°Ñ¼Æ¬O"yy"¡A·Q½Ð±Ð¤@¤U¦pªG¬O¦³stk_no»Pyy¡A¤U­±sendªºµ{¦¡¸Ó¦p¦ó­×§ï©O? ÁÂÁÂ
.Send ("stk_no=" & code)

gto1208

heavenweaver±z¦n¡A

§Ú¤w¦³½Æ»s#12ªºSub WrittenByLalalada()¨Ó­×§ï
http://www.gretai.org.tw/ch/stock/statstics/monthly/download_st44.php
¤W¦Cºô§}¦³¤G­Ó°Ñ¼Æ¡A¤w±Nµ{¦¡§ï¼g¦p¤U¡A¦ý¦~«×ªºsend±ø¥óÁÙ¬O§ì¨ú¤£¨ì(µ{¦¡½X¦p¤U)¡AÁÂÁ±z

1. Private Sub CommandButton1_Click()
   
2. 
   
3. '«Å§iÅܼÆ
   
4. Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
   
5. Dim TMP As Workbook
   
6. 
   
7. '²M°£Â¸ê®Æ
   
8. Range("A4:Z2000").Select
   
9. Selection.Clear
   
10. 
    
11. code = Range("A1").Value  'ªÑ²¼¥N½X
    
12. yy = Range("B1").Value  '¦~«×
    
13. 
    
14.     '±N¸ê®Æ¥ý¦s¦ÜcÁV
    
15.     With WinHttpReq
    
16.     '.Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
    
17.     .Open "POST", Range("C1").Value, False
    
18.     .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
19.     .Send ("stk_no=" & code & "yy=" & yy)
    
20.            Set oStream = CreateObject("ADODB.Stream")
    
21.            oStream.Open
    
22.            oStream.Type = 1
    
23.            oStream.Write WinHttpReq.ResponseBody
    
24.            oStream.SaveToFile ("C:\" & code & ".csv")
    
25.            oStream.Close
    
26.     End With
    
27. End Sub

½Æ»s¥N½X

gto1208

heavenweaver±z¦n¡A

·Q¦V±z½Ð±Ð¡A¥ý«eª©¥»¨Ì·Ó±zªº«ü¾É¤w¥i¥¿±`¨Ï¥Î¡A¦ý¤µ¤é¾Þ§@®É¡Aµo²{excel¸ê®Æ¸ü¤£¤U¨Ó¡A¬O§_¬ÛÃö°Ñ¼Æ­n­×§ï©O? ÁÂÁ±z¡C

1. Private Sub CommandButton4_Click()
   
2. 
   
3. '«Å§iÅܼÆ
   
4.    Set WinHttpReq = CreateObject("Microsoft.XMLHTTP")
   
5.    Dim TMP As Workbook
   
6. 
   
7. 
   
8. '²M°£Â¸ê®Æ
   
9.    Range("F66:Z200").Select
   
10.    Selection.Clear
    
11. 
    
12.    code = Range("A1").Value  'ªÑ²¼¥N½X
    
13.    yy = Range("H4").Value '¦~«×
    
14. 
    
15. 
    
16. '±N¸ê®Æ¥ý¦s¦ÜcÁV
    
17.    With WinHttpReq
    
18.    .Open "POST", "http://www.gretai.org.tw/ch/stock/statistics/monthly/download_st44.php", False
    
19.    .Open "POST", Range("I4").Value, False
    
20.    .setRequestHeader "Content-Type", "application/x-www-form-urlencoded"
    
21.    .Send "stk_no=" & code & "&yy=" & yy  '¶ÇªÑ²¼¥N½X¡B¦~«×°Ñ¼Æ
    
22.           Set oStream = CreateObject("ADODB.Stream")
    
23.           oStream.Open
    
24.           oStream.Type = 1
    
25.           oStream.Write WinHttpReq.ResponseBody
    
26.           oStream.SaveToFile ("C:\" & code & "-M.csv")
    
27.           oStream.Close
    
28.    End With
    
29.    
    
30. 
    
31. End Sub
    
32.    

½Æ»s¥N½X

gto1208

heavenweaver±z¦n¡A

¨Ï¥ÎFiddler¤u¨ãµo²{ºô§}¦³²§°Ê¡A¤w§ä¨ì°ÝÃD¤F¡AÁÂÁ±z