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

[µo°Ý] ¤éK¶}°ª§C¦¬Âà´«¡u¶gK¡v¶}°ª§C¦¬

[µo°Ý] ¤éK¶}°ª§C¦¬Âà´«¡u¶gK¡v¶}°ª§C¦¬

¥»©«³Ì«á¥Ñ bill740615 ©ó 2018-5-4 11:45 ½s¿è

¤j®a¦n,
§Ú³£¬O¥HEXCEL¬ö¿ýªÑ²¼«ü¼Æ¨C¤é¼Æ¾Ú(¤éK)
¦pªþ¥ó¡A¨Ì¤é´Á·s©¹¤U±Æ¦C¶}½L-³Ì°ª-³Ì§C-¦¬½L»ù®æ
½Ð°ÝÂà´«¦¨¥kÄ檺¶gK¶}°ª¦¬§C¡AVBA¸Ó¦p¦ó¼g©O¡H
³Æµù¡G¨C¶g¥H¶g¤@¶}©l¡A¶g¤éµ²§ô¡C
W_KD.rar (154.75 KB)

¥¼©R¦W.png
2018-5-4 11:42

¦^´_ 1# bill740615

³o­Ó¬O­n§ì¤j½Lªº©PK¸ê®Æ¶Ü?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 2# iamaraymond

¬Oªº¡A·Q»¡¬O¤£¬O¯à±q¤éKÂà´«¹L¥h

TOP

¦^´_ 3# bill740615
  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://jdata.yuanta.com.tw/Z/ZB/ZBH/CZKC0.djbcd?a=EB09999&b=W&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. Debug.Print Format(Timer - t, "0.00’")

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

TOP

¦^´_ 3# bill740615

³o¬O§Ú±q¨é°Ó¸ê®Æ¨ºÃä§ì¤U¨Óªº¡A³o¼Ë¦³²Å¦X§Aªº»Ý¨D¶Ü?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 5# iamaraymond

·PÁ¡A½Ð±Ð¤@¤U¡A¦pªG­n§ì¨ä¥LªÑ²¼¸ê®Æ¡A«ç»ò¿é¤J¥N¸¹?

TOP

¦^´_ 6# bill740615

§Ú¦³¦b§Aªº¥t¥~¤@­Ó¶K¤å"1¤ÀKÂà´«¤éKªº¶}°ª§C¦¬"©³¤U¯d§ì¨úªÑ»ù¸ê®Æªºµ{¦¡½X
¦binputbox¨ºÃä¥i¥H¿é¤JªÑ²¼¥N¸¹
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 7# iamaraymond

½Ð°Ý¦pªG§Ú­n¬d¸ß2330¥x¿n¹q¡A¤]¬O¿é¤J¡u2330¡v¶Ü? ¨º°ê¥~«ü¼Æ¤]¥i¥H¬d¸ß¶Ü?

TOP

¦^´_ 8# bill740615

¬Oªº¡A·í§A°õ¦æµ{¦¡®É¡AÀ³¸Ó·|¦³¤@­Ó¿é¤J®Ø¸õ¥X¨Ó¡A§A¥u­n¿é¤JªÑ²¼¥N¸¹§Y¥i
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 8# bill740615

À³¸Ó¤£¦æ¡A©ÎªÌ¬O§A§â¥i¥H¬d°ê¥~«ü¼Æªººô§}µ¹§Ú¡A§Ú¦A¸Õ¸Õ¬Ý¥i¤£¥i¥H°µ¦¨³oºØ¼Ò¦¡
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¤Ó¶§¥ú¤j¡B¤÷¥À®¦¤j¡B§g¤l¶q¤j¡A¤p¤H®ð¤j¡C
ªð¦^¦Cªí ¤W¤@¥DÃD