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

½Ð¯qª¦ºô¯¸¸ê®Æªº°ÝÃD

½Ð¯qª¦ºô¯¸¸ê®Æªº°ÝÃD

test2¬OquickfixerÀ°§Ú¼g¥X¨Óªº
§Ú¤@¼Ëµe¸¬Äª±Nºô§}§ï¦¨¨ä¥Lªº
¥i¬O«oÅã¥Ü¥X¸òºô­¶ªº¤£¦P
³o¤§¤¤¬O¦³¬Æ»ò®t²§¶Ü?
  1. Sub test1()
  2.     Dim xml As Object, url As String, temp
  3.     Set xml = CreateObject("msxml2.xmlhttp")
  4.    
  5.     url = "https://www.wantgoo.com/stock/2330/major-investors/main-trend-data"
  6.     xml.Open "GET", url, False
  7.     xml.send
  8.     temp = xml.responseText
  9.    
  10.     MsgBox temp
  11.    
  12.     Set getxml = Nothing

  13. End Sub

  14. Sub test2()
  15.     Dim xml As Object, url As String, temp
  16.     Set xml = CreateObject("msxml2.xmlhttp")
  17.    
  18.     url = "https://fubon-ebrokerdj.fbs.com.tw/Z/ZC/ZCL/CZCL3.DJBCD?A=2330&B=Y"
  19.     xml.Open "GET", url, False
  20.     xml.send
  21.     temp = xml.responseText
  22.    
  23.     MsgBox temp
  24.    
  25.     Set getxml = Nothing

  26. End Sub
½Æ»s¥N½X

¦^´_ 2# quickfixer


§Ú§â¥H¤U¤º®e³£§R¤F:shutup:
·Q´ú¸Õ¸ò¨ä¥L¤£¦P¤§³B
¥i¬OÅã¥Üªº«o¤£¦P

ÁÂÁ¡A§Ú¥hmobile¬Ý¬Ý

TOP

        ÀR«ä¦Û¦b : ¦h°µ¦h±o¡C¤Ö°µ¦h¥¢¡C
ªð¦^¦Cªí ¤W¤@¥DÃD