afu9240

¦^´_ 6# iamaraymond


   ·PÁÂi¤j¦^´_

       §Ú©Ò¿×¤£§Y®É¬O¤ñ¦pºô­¶¤w¸g§ó·s¨ì11:25,¼´¶i¨Óªº¸ê®ÆÁÙ¬O¦b'09:30,·|¦³³oºØª¬ªp!!@@

¤U¸ü (113.92 KB)

2018-5-9 08:46

¤U¸ü (119.03 KB)

2018-5-9 08:46

iamaraymond

¦^´_ 5# afu9240

¤£¤ÓÀ´§Y®Éªº·N«ä¡A¥i¥H½Ðafu¤jÁ¿¸Ô²Ó¤@ÂI¶Ü?

afu9240

¦^´_ 4# iamaraymond


    ¦n¹³¨S¿ìªk§Y®É

iamaraymond

¦^´_ 3# afu9240

1. Sub test()
   
2. 
   
3. Dim myXML As Object
   
4. Set myXML = CreateObject("Microsoft.XMLHTTP")
   
5. 
   
6. Dim myHTML As Object
   
7. Set myHTML = CreateObject("HTMLFile")
   
8. 
   
9. i = 2
   
10. With myXML
    
11.     For Each stockNo In Range("A2:A4").Value
    
12.         .Open "GET", "https://tw.stock.yahoo.com/q/q?s=" & stockNo, False
    
13.         .send
    
14.    
    
15.         myHTML.body.innerHTML = .responseText
    
16.         
    
17.         Set myTable = myHTML.getElementsByTagName("table")(6)
    
18.         
    
19.         For j = 1 To 10
    
20.             Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
    
21.         Next
    
22.         
    
23.         i = i + 1
    
24.     Next
    
25. End With
    
26. 
    
27. Set myXML = Nothing
    
28. Set myHTML = Nothing
    
29. 
    
30. End Sub

½Æ»s¥N½X

afu9240

¦^´_ 2# iamaraymond


    ¬Oªº ¤j¤j,¥i¥H´£¨Ñ¶Ü???·P®¦

iamaraymond

¦^´_ 1# afu9240
©Ò¥H±z­nªº¸ê®Æ¬O:
®É¶¡¡B¦¨¥æ¡B½æ¶i¡B½æ¥X¡Bº¦¶^¡B±i¼Æ¡B¬Q¦¬¡B¶}½L¡B³Ì°ª¡B³Ì§C¶Ü?