GBKEE

1. Option Explicit
   
2. Sub Ex()
   
3.     Dim oXmlhttp As Object, oHtmldoc As Object, surl As String, E As Object, R As Integer, C As Integer
   
4.     Set oXmlhttp = CreateObject("msxml2.xmlhttp")
   
5.     Set oHtmldoc = CreateObject("htmlfile")
   
6.     surl = "https://tw.stock.yahoo.com/q/q?s=2330"
   
7.         With oXmlhttp
   
8.         .Open "Get", surl, False
   
9.         .Send
   
10.         oHtmldoc.write .responseText
    
11.     End With
    
12.     ActiveSheet.Cells.Clear
    
13.      With oHtmldoc
    
14.         Set E = .all.tags("table")(6)
    
15.         For R = 0 To E.Rows.Length - 1
    
16.             For C = 0 To E.Rows(R).Cells.Length - 1
    
17.                 ActiveSheet.Cells(R + 1, C + 1) = E.Rows(R).Cells(C).INNERTEXT
    
18.             Next
    
19.         Next
    
20.         ActiveSheet.Cells(R + 1, 1) = Trim(.all.tags("table")(4).INNERTEXT)
    
21.     End With
    
22. End Sub

½Æ»s¥N½X

¦^´_ 4# Scott090