ªð¦^¦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

¦^´_ 1# vuptp6


    §Ú¤°»ò®É­Ô¼g¹L³oªF¦è?
§A­n°Ýtest1 wantgooª¦ºô¯¸§a,¥h01¤å®Ñ°Ï
¨ºÃ䦳¤j¯«2018/02/11´N¼g¹L¤F,³Ìªñwantgoo§ïª©,¤]¦³­×¥¿¤F
ª½±µ¤U¸ü´N¯à¥Î¤F:lol

TOP

¦^´_ 2# quickfixer


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

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

TOP

        ÀR«ä¦Û¦b : ¡i¬°µ½Ävª§¡j¤H¥Í­n¬°µ½Ävª§¡A¤À¬í¥²ª§¡C
ªð¦^¦Cªí ¤W¤@¥DÃD