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

[µo°Ý] ½Ð±Ð ¦p¦ó¦bEXCELL¨ú±o¸Óºô¯¸¤§"§Y®É¦ô­p²b­È"

¦^´_ 5# yan2463
¸Õ¸Õ¬Ý ¥ÎVBA¥¨¶°
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object
  4.     With CreateObject("InternetExplorer.Application")
  5.         .Visible = True
  6.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
  7.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  8.         Application.SendKeys "~", True   '«ö¤U¦P·NÁä
  9.         Do While .Busy Or .ReadyState <> 4: DoEvents: Loop
  10.         Set E = .Document.getelementsbytagname("TABLE")(21)
  11.          .Document.body.innerHTML = E.outerHTML
  12.         .execwb 17, 2       '  Select All
  13.         .execwb 12, 2       '  Copy selection
  14.         With ActiveSheet
  15.             .Cells.Clear
  16.             .[A1].Select
  17.             .PasteSpecial 'Format:="HTML"
  18.         End With
  19.         .Quit        'Ãö³¬ºô­¶
  20.     End With
  21. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-19 10:39 ½s¿è

¦^´_ 6# lcctno
http://forum.twbts.com/thread-14577-1-1.html  ·|¬O¦P¼Ëªº°ÝÃD¶Ü
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 13# lcctno


   
§Úªº°ÝÃD¬O­n°µ­Ó²³æªº«ö¶s¤§EXCELLµ{¦¡ ·íÂI«ö¶s´N¯à¦Û°Ê§ó·sEXCELL¤º¤§"§Y®É¦ô­p²b­È"  À³¸Ó¬O¤£¦Pªº±¡§Î§a!

¥i¦Û¦æ¦b¤u§@ªí¤W´¡¤J¤@«ö¶s ±N"§Y®É¦ô­p²b­È"ªºµ{§Ç«ü©w¨ì³o«ö¶s

¦p¹Ï
EX1.JPG
2015-7-19 14:50
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 27# no3-taco

Application.Wait Now + #12:00:02 AM#   '¸g±`¨S§ì¨ì§ï2¬í

ºô­¶ÀW¼e¤U¸ü³t«×¸ò¤£¤Wµ{¦¡°õ¦æªº³t«×©Ò­P
¥i­×§ï¦p¤U
  1.   'Application.Wait Now + #12:00:01 AM#
  2.         Do
  3.             Set E = .Document.getElementsByTagName("TABLE")(21)
  4.         Loop Until Not E Is Nothing And E.ALL.Length = 431
  5.         
  6.          .Document.body.innerHTML = E.outerHTML
½Æ»s¥N½X
¦p¹Ï¥Ü µ{¦¡·|°±¦b¤¤Â_ÂI


¥¼©R¦W.JPG
2015-7-19 20:13
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

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