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

[µo°Ý] ¦³Ãö©ó¼´ªÑ²¼Code°ÝÃD

[µo°Ý] ¦³Ãö©ó¼´ªÑ²¼Code°ÝÃD

¦U¦ì°ª¤â»P¤j¤j ¦n
  
                   ¥i§_¨ó§U¸Ñ¨Mªþ¥óÀÉ®×,¥»¨ÓÂ^¨ú©_¼¯ºô¯¸ªºªÑ²¼¼Æ¾Ú,¤£ª¾¬°¤°³Â³o§«ôCode¦n¹³¥X¤F¤°³Â°ÝÃD,¸ê®Æ¼´¤£¶i¨Ó,§Ú»{¬° §Ú³o­Ócodeºâ§Y®Éªº
            ÁÙ¬O¦³¤j¤j¥i´£¨Ñ¨ä¥Lªº¤è¦¡,¥t¨D¨ä¸Ñ!!!·PÁÂÀ°¦£ ·P®¦¤£ºÉ

©_¼¯ºô¯¸¼´ªÑ²¼.zip (37.14 KB)
yvonne

¦^´_ 1# afu9240
©Ò¥H±z­nªº¸ê®Æ¬O:
®É¶¡¡B¦¨¥æ¡B½æ¶i¡B½æ¥X¡Bº¦¶^¡B±i¼Æ¡B¬Q¦¬¡B¶}½L¡B³Ì°ª¡B³Ì§C¶Ü?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 2# iamaraymond


    ¬Oªº ¤j¤j,¥i¥H´£¨Ñ¶Ü???·P®¦
yvonne

TOP

¦^´_ 3# afu9240
  1. Sub test()

  2. Dim myXML As Object
  3. Set myXML = CreateObject("Microsoft.XMLHTTP")

  4. Dim myHTML As Object
  5. Set myHTML = CreateObject("HTMLFile")

  6. i = 2
  7. With myXML
  8.     For Each stockNo In Range("A2:A4").Value
  9.         .Open "GET", "https://tw.stock.yahoo.com/q/q?s=" & stockNo, False
  10.         .send
  11.    
  12.         myHTML.body.innerHTML = .responseText
  13.         
  14.         Set myTable = myHTML.getElementsByTagName("table")(6)
  15.         
  16.         For j = 1 To 10
  17.             Cells(i, j + 1) = myTable.Rows(1).Cells(j).innerText
  18.         Next
  19.         
  20.         i = i + 1
  21.     Next
  22. End With

  23. Set myXML = Nothing
  24. Set myHTML = Nothing

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

TOP

¦^´_ 4# iamaraymond


    ¦n¹³¨S¿ìªk§Y®É
yvonne

TOP

¦^´_ 5# afu9240

¤£¤ÓÀ´§Y®Éªº·N«ä¡A¥i¥H½Ðafu¤jÁ¿¸Ô²Ó¤@ÂI¶Ü?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

¦^´_ 6# iamaraymond


   ·PÁÂi¤j¦^´_

       §Ú©Ò¿×¤£§Y®É¬O¤ñ¦pºô­¶¤w¸g§ó·s¨ì11:25,¼´¶i¨Óªº¸ê®ÆÁÙ¬O¦b'09:30,·|¦³³oºØª¬ªp!!@@

yvonne

TOP

¥»©«³Ì«á¥Ñ quickfixer ©ó 2018-5-9 09:03 ½s¿è

.setRequestHeader "Cache-Control", "no-cache"
.setRequestHeader "Pragma", "no-cache"
.setRequestHeader "If-Modified-Since", "Sat, 1 Jan 2000 00:00:00 GMT"
.send

§ì§Y®É¸ê®Æ,­n§ï¦¨³o¼Ë,01¨ºÃ䦳¤ñ¸û¸Ô²Óªº»¡©ú

TOP

¦^´_ 8# quickfixer


    ¤£¦n·N«ä01­þÃä¬O«ü??????­þ¨à
yvonne

TOP

¦^´_ 9# afu9240

§Y®Éªº³¡¤À¡A§Ú­è­è¸Õ¬OOKªº

±z¹Ï¤ùªº¿ù»~À³¸Ó¬O¦]¬°§Ú¬O¨úA2¨ìA4ªºªÑ²¼¥N¸¹¡A¦ý±z¦n¹³¥u¦³A2¦³­È¡A¤~¾É­P³o­Ó¿ù»~¡A©Ò¥HÀ³¸Ó²³æ§ï¤@¤U°j°é§Y¥i¸Ñ¨M

01§Ú·QÀ³¸Ó¬O«ümobile01§a?
Excel VBAºô­¶¸ê®Æ¦¬¶°±Ð¾Ç:
http://forum.twbts.com/thread-20848-1-1.html

TOP

        ÀR«ä¦Û¦b : ¡i°±º¢¤£«e¡A²×µL©Ò±o¡j¤H³£°g©ó´M§ä©_ÂÝ¡A¦]¦Ó°±º¢¤£«e¡FÁa¨Ï®É¶¡¦A¦h¡B¸ô¦Aªø¡A¤]¤FµL¥Î³B¡A²×µL©Ò±o¡C
ªð¦^¦Cªí ¤W¤@¥DÃD