- ©«¤l
- 98
- ¥DÃD
- 15
- ºëµØ
- 0
- ¿n¤À
- 163
- ÂI¦W
- 0
- §@·~¨t²Î
- WIN7
- ³nÅ骩¥»
- office2010
- ¾\ŪÅv
- 20
- ©Ê§O
- ¨k
- µù¥U®É¶¡
- 2017-5-30
- ³Ì«áµn¿ý
- 2024-1-7
|
¦^´_ 2# Scott090
Scott090 ¤j¤j §Úªá¶O¤F¤@¬q®É¶¡»{ÃѤFµ{¦¡½X«á ¦Û¦æ¸Ñ¨M¤F°ÝÃD ÁٽФj¤j¹L¥Ø
¥t¥~·Q½Ð±Ð °}¦C ¸ò ³æ¤@ þÓªá¶O°_¨Óªº®É¶¡¸òªÅ¶¡·|¤ñ¸û¦h?- Sub byXMLhttp_Test2()
-
- Dim sh As Worksheet
- Dim t!, i%, j%, k%
- Dim myXML As Object, myHTML As Object, myTable, arDATA, URL$
-
- URL = "https://histock.tw/stock/financial.aspx?no=3032&t=2"
- Set sh = Worksheets("¸ÕÅç¶")
- Set myXML = CreateObject("Microsoft.XMLHTTP")
- Set myHTML = CreateObject("HTMLFile")
- sh.Cells.Clear
- With myXML
- .Open "GET", URL, False
- .send
- If .Status <> 200 Then MsgBox "No successful web connection", vbOKOnly: Exit Sub
- myHTML.body.innerhtml = .responsetext
- End With
- Set myTable = myHTML.getelementsbytagname("TABLE")(0)
-
- With myTable
- i = .Rows.Length: j = .Rows(0).Cells.Length
- ReDim arDATA(i, j)
-
- k = 0 '
- For i = 1 To .Rows.Length
- If .Rows(i - 1).innertext <> "" Then
- k = k + 1
- For j = 1 To .Rows(0).Cells.Length
- Cells(k, j) = .Rows(i - 1).Cells(j - 1).innertext
- Next
- End If
- Next
- End With
- Set myXML = Nothing
- Set myHTML = Nothing
- Set myTable = Nothing
-
- End Sub
½Æ»s¥N½X |
|