[µo°Ý] ¦p¦ó±N¤U¸ü¤U¨Óªº¸ê®Æ«O«ù­ì¨Ó®æ¦¡

zheng211016

¦p¤U¹Ï
¦¹¹Ï ¬O§Ú¥ÑTWSE¦Û°Ê¤U¸üªº¸ê®Æ ¦ý¬O¦³¨ÇªÑ²¼¥N½X¬O00¶}ÀYªº «o¨S¿ìªk«O«ù­ì¨Óªº¼Æ­È ·Q½Ð¨D¦U¦ì¦Ñ¤â¨ó§U

¤U¸ü (139.43 KB)

2018-4-10 19:02

¤U¸ü (27.5 KB)

2018-4-10 19:04

nolookyou

¦^´_ 1# zheng211016


    ¤p§Ìª½Ä±¤£Ãø¸Ñ¨M¡AAÄ椺®e©T©w¬OªÑ²¼¥N¸¹ªº¸Ü¡A¥i¹Á¸Õ¡G
   1.¸ü¤JAÄ椺®e«e¡AÀx¦s®æ[®æ¦¡]>[Ãþ§O]¥ý§ï¦¨[¤å¦r]¸Õ¸Õ¬Ý
   2.©Î§iª¾¤U¸ü¤º®eºô§}§ÚÀ°§A¸Õ¤@¤U
   3.©Îª½±µµ¹EXCELÀɮקÚÀ°§A¸Õ¤@¤U

zheng211016

http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=20180427&type=ALLBUT0999
³Â·Ð±z¤F

iamaraymond

¦^´_ 3# zheng211016

­n¤£­n¸Õ¸Õ¬ÝVBAªº¤èªk?

1. Sub test()
   
2. 
   
3. 'Dim t: t = Timer
   
4. 
   
5. Cells.Clear
   
6. 
   
7. Dim myXML As Object
   
8. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
9. 
   
10. Dim myHTML As Object
    
11. Set myHTML = CreateObject("HTMLFile")
    
12. 
    
13. With myXML
    
14.     .Open "GET", "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=" & Format(Now(), "yyyy/mm/dd") & "&type=ALLBUT0999", False
    
15.     .send
    
16.    
    
17.     myHTML.body.innerHTML = .responseText
    
18.     Set myTable = myHTML.getElementsByTagName("Table")(4)
    
19.     i = 1
    
20.    
    
21.     For Each myRow In myTable.Rows
    
22.         j = 1
    
23.         For Each myCell In myRow.Cells
    
24.             If j = 1 Then
    
25.                 Cells(i, j) = "'" & myCell.innerText
    
26.             Else
    
27.                 Cells(i, j) = myCell.innerText
    
28.             End If
    
29.             j = j + 1
    
30.         Next
    
31.         i = i + 1
    
32.     Next
    
33.    
    
34. End With
    
35. 
    
36. Set myXML = Nothing
    
37. 
    
38. 'Debug.Print Format(Timer - t, "0.00’")
    
39. 
    
40. End Sub

½Æ»s¥N½X

zheng211016

¦^´_ 4# iamaraymond
ÁÂÁ¤j¤j ªG¯u¥i¥H ¤S¨³³t ¤p§Ì·P¿E¤£ºÉ

iamaraymond

¦^´_ 5# zheng211016

­Y¦³°ÝÃD¦A´£¥X~