ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

¦^´_ 3# zheng211016

­n¤£­n¸Õ¸Õ¬ÝVBAªº¤èªk?
  1. Sub test()

  2. 'Dim t: t = Timer

  3. Cells.Clear

  4. Dim myXML As Object
  5. Set myXML = CreateObject("Microsoft.XMLHTTP")

  6. Dim myHTML As Object
  7. Set myHTML = CreateObject("HTMLFile")

  8. With myXML
  9.     .Open "GET", "http://www.twse.com.tw/exchangeReport/MI_INDEX?response=html&date=" & Format(Now(), "yyyy/mm/dd") & "&type=ALLBUT0999", False
  10.     .send
  11.    
  12.     myHTML.body.innerHTML = .responseText
  13.     Set myTable = myHTML.getElementsByTagName("Table")(4)
  14.     i = 1
  15.    
  16.     For Each myRow In myTable.Rows
  17.         j = 1
  18.         For Each myCell In myRow.Cells
  19.             If j = 1 Then
  20.                 Cells(i, j) = "'" & myCell.innerText
  21.             Else
  22.                 Cells(i, j) = myCell.innerText
  23.             End If
  24.             j = j + 1
  25.         Next
  26.         i = i + 1
  27.     Next
  28.    
  29. End With

  30. Set myXML = Nothing

  31. 'Debug.Print Format(Timer - t, "0.00’")

  32. End Sub
½Æ»s¥N½X
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 5# zheng211016

­Y¦³°ÝÃD¦A´£¥X~
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¡i»X½ªªº¦Û¥Ñ¡j¤H±`¦b¤°»ò³£¥i¥H¦Û¥Ñ¦Û¦bªº®É­Ô¡A«o³Q³oºØÀH¤ß©Ò±ýªº¦Û¥Ñ»X½ª¡AµêÂY®É¥ú¦Ó²@µLıª¾¡C
ªð¦^¦Cªí ¤W¤@¥DÃD