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

[µo°Ý] 1¤ÀKÂà´«¤éKªº¶}°ª§C¦¬

[µo°Ý] 1¤ÀKÂà´«¤éKªº¶}°ª§C¦¬

¥»©«³Ì«á¥Ñ bill740615 ©ó 2018-5-3 20:42 ½s¿è

¦U¦ì¤j¤j¦n¡A
¤p§Ì¤~²¨¾Ç²L¡A½Ð°ÝÀɮסu20160812.xlsx¡v¦p¦óÂà´«1¤ÀKªº¸ê®Æ¬°¤éKªº¶}°ª§C¦¬
Àɮ׸û¤j¡A¤À¨É¦b¶³ºÝªÅ¶¡¡Ahttps://mega.nz/#!g0hCjRwR!YC2ZPOI7ISgFfx3567wr8jQGMMq_WAEP8E4eWYheeRQ
¦A½Ð¤j¤jµ¹¤©«ü±Ð!!

¥¼©R¦W.png
2018-5-3 20:35

¦^´_ 1# bill740615

½Ð°Ý¬°¤°»ò¤£ª½±µ§ì¤éK¸ê®Æ©O?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 1# bill740615

¦h¦~«e§Ú¤]¸g¹L³o¨Ç¹Lµ{

§Ú§ï¥Îsql»yªk¸Ñ¨M

½Ð°Ñ¦Ò

https://www.mobile01.com/topicdetail.php?f=514&t=3522285&p=1#45891769

TOP

¦^´_ 2# iamaraymond
´Á¥æ©Ò¥u¦³¤éKªº¦¬½L»ù¡A¨S¦³¶}°ª§Cªº¼Æ¾Ú¡A¥u¯à¦Û¤vÂà´«

¦^´_ 3# joey0415
ÁÂÁÂjoey0415¡A¤£¹L§Ú¤£À´³oµ{¦¡»yªk¡Aexcel VBA¯à³B²z³o¨Ç¼Æ¾Ú¶Ü?

TOP

¦^´_ 4# bill740615

³z¹L¸ê®Æ¿z¿ï¡A¨Ò¦p¿ï¨ú20160812¤Ñ·íªº¸ê®Æ¡A¦A¥Î¤@¨Ç²³æ¨ç¼Æmax  minµ¥¡A´N¥i¥H§ì¥X¨Ó

½Ð°Ý§A³o¸ê®Æ¬O±q­þ­Óºô­¶§ì¤U¨Óªº¡H

TOP

¦^´_ 5# joey0415

±qcoco-in¯Á¨úªº¸ê®Æ¡A¥i¬O³o¼Ë¤H¤u¿z¿ïÀ³¸Ó·|ºÆ±¼§a...

TOP

¦^´_ 6# bill740615
¤§«e¦³¼g¹L§ì5¦~ªÑ»ùªº¸ê®Æ¡A¤£ª¾¹D²Å¤£²Å¦X§Aªº»Ý¨D
  1. Sub test()

  2. Cells.Clear

  3. stockno = InputBox("¿é¤JªÑ²¼¥N¸¹")

  4. Dim t: t = Timer
  5. Dim myXML As Object
  6. Set myXML = CreateObject("Microsoft.XMLHTTP")

  7. Dim myArr(1 To 1500, 1 To 6)

  8. With myXML
  9.     .Open "GET", "http://justdata.yuanta.com.tw/Z/ZC/ZCW/CZKC1.djbcd?a=" & stockno & "&b=D&c=1440", False
  10.     .send
  11.     myText = .responseText
  12. End With

  13.     myText1s = Split(myText, " ")
  14.     j = 1
  15.     For Each myText1 In myText1s
  16.         i = 1
  17.         myText2s = Split(myText1, ",")
  18.         For Each myText2 In myText2s
  19.             If j > 6 Then Exit For
  20.             myArr(i, j) = myText2
  21.             i = i + 1
  22.         Next
  23.         j = j + 1
  24.     Next

  25. [A2:F2] = Array("¤é´Á", "¶}", "°ª", "§C", "¦¬", "¦¨¥æ¶q")
  26. [A3].Resize(1500, 6).Value = myArr

  27. Set myXML = Nothing
  28. Erase myArr
  29. Debug.Print Format(Timer - t, "0.00’")

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

TOP

¦^´_ 7# iamaraymond
½Ð°Ý坂¤j
http://webrtqt.fortunengine.com.tw/rtdata/k-chart/day-9904.txt?ts=1526775289018
³oÁ`¸ê®Æ µ{¦¡¸Ó¦p¦ó­×§ï
ÁÂÁÂ

TOP

¦^´_ 8# f3202

¥i¥HÀ°±z­×§ï¡A¦ý¥i¥H°Ý¤@¤U³o¬O¬Æ»ò¸ê®Æ¶Ü?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 9# iamaraymond

³o¬O 9904 ªÑ²¼£§Kªº¸ê®Æ
ÁöµMweb¥i¨ú¥X¦ý¬OÁٻݸê®Æ­åªR¦³¨Ç³Â·Ð
¥Î6¼Óµ{¦¡­×§ï°}¦C·d¤£¤F
¥ýÁÂÁª©¤j

TOP

        ÀR«ä¦Û¦b : ¦n¨Æ­n´£±o°_¡A¬O«D­n©ñ±o¤U¡A¦¨´N§O¤H§Y¬O¦¨´N¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD