GBKEE

¦^´_ 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

GBKEE

¦^´_ 6# lcctno
http://forum.twbts.com/thread-14577-1-1.html  ·|¬O¦P¼Ëªº°ÝÃD¶Ü

GBKEE

¦^´_ 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¹Ï

¤U¸ü (57.31 KB)

2015-7-19 14:50

GBKEE

¦^´_ 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

¤U¸ü (109.36 KB)

2015-7-19 20:13