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

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

¦^´_ 20# Farnsworth

§ÚÂI«ö¶s£¾¨Ã¨S¿ù»~°T®§ £½¥u¬O±Ò¥Î¤FInternet ExplorerÀ°§Ú³s¨ì¸Ó­¶­± »P§Ú´ú¸Õ³sµ²¦ÜYAHOO¦³§¹¥þ¤£¦Pªº±¡§Î(µ²ªG) YAHOO ¥i§ì¨ì¸ê®Æ ·íµM¨º¬O§Ú´ú¸Õ§ìªºDATA(¨Ã«D§Ú­nªºDATA)
±z¥i§_¶K¤W­×¥¿«á§¹¾ãªº¤º®e ¦]¬°§Ú¨S¯à¤O¦Û¦æ²Õ¦X ¦ý±z¼gªº­Y¯uªº¥i¥Î ¨º§Ú¥i¦pªkªw»s «D±`ªº·PÁ±zªº¼ö±¡À°§U ¦b¦¹ÁÂÁ±z¤F ÁÙ¦³§Æ±æ¤£­n³Q¤H·í¦¨Äé¤ô
    £½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½£½

TOP

¸Õ¬Ý¬Ý
  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.         Application.Wait Now + #12:00:02 AM#   '­×§ïªº¦a¤è#######
  11.         Set E = .Document.getElementsByTagName("TABLE")(21)
  12.          .Document.body.innerHTML = E.outerHTML
  13.         .ExecWB 17, 2       '  Select All
  14.         .ExecWB 12, 2       '  Copy selection
  15.         With ActiveSheet
  16.             .Cells.Clear
  17.             .[A1].Select
  18.             .PasteSpecial 'Format:="HTML"
  19.         End With
  20.         .Quit        'Ãö³¬ºô­¶
  21.     End With
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-7-19 17:28 ½s¿è

¦^´_ 22# no3-taco

µ²ªG¤@¼Ë ¦Û°Ê¶} IE ¨ì¨ººô¯¸




¿ù»~°T®§1


¿ù»~°T®§2 (°»¿ùµ²ªG)

TOP

§Ú¤£¤Ó·|¥Î¦^´_¡A¦A¸Õ¬Ý¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, myItems As Object, myitem
  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.Wait Now + #12:00:01 AM#   '¦³¿ù¦b¶}±Ò
  9.         Set myItems = .Document.getElementsByTagName("button")
  10.         For Each myitem In myItems
  11.             If myitem.Name = "Agree" Then
  12.                 myitem.Click                              '«ö¤U°e¥X¬d¸ß«ö¶s
  13.             End If
  14.         Next
  15.         Application.Wait Now + #12:00:01 AM#
  16.         Set E = .Document.getElementsByTagName("TABLE")(21)
  17.          .Document.body.innerHTML = E.outerHTML
  18.         .ExecWB 17, 2       '  Select All
  19.         .ExecWB 12, 2       '  Copy selection
  20.         With ActiveSheet
  21.             .Cells.Clear
  22.             .[A1].Select
  23.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  24.         End With
  25.         .Quit        'Ãö³¬ºô­¶
  26.     End With
  27. End Sub
½Æ»s¥N½X

TOP

¦^´_ 25# no3-taco


«z ¯uªº¦¨¥\¤F «D±`«D±`ªº·PÁ±zªº§V¤O(À°§U)  §Ú±o¦n¦n¬ã¨s±z´£¨Ñªº¤º®e¤F



¥i¥Î¤§´ú¸ÕÀÉ
§Y®É¦ô­p²b­È.zip (9.49 KB)

TOP

¦^´_ 26# lcctno

.Visible = True §ï¦¨¤U­±
.Visible = False    '¥i¥HÁôÂÃie

¦pªG°¸º¸§ì¤£¨ì¡A¦h«ö´X¤U¡A©ÎªÌ§â®É¶¡¼W¥[¨ì¨â¬í
Application.Wait Now + #12:00:02 AM#   '¸g±`¨S§ì¨ì§ï2¬í

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


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

TOP

¦^´_ 28# GBKEE

¤§«e¦³¤@½g©«¤l¤]¬O¥d¦b³o¸Ì¡A¤µ¤Ñ²×©ó¬Ý¨ì§ó¦nªº¸Ñ¨M¿ìªk¤F¡C:lol

TOP

[ª©¥DºÞ²z¯d¨¥]
  • GBKEE(2015/7/23 10:23): ½Ðpo¤Wµ{¦¡½X

¦^´_ 25# no3-taco

½Ð°Ý¦pªG·Q¨C1¤ÀÄÁ,©Î¨C¤Q¤ÀÄÁ¦Û°Ê§ó·s¤@¦¸,¸Ó¦p¦ó§ï

TOP

¦^´_ 1# yan2463

yan2463 ½Ð°Ý±zªº°ÝÃD¸Ñ¨M¤F¶Ü?
yan2463 »¡¡G
¦^´_ lcctno §Úªº°ÝÃD©|¥¼¸Ñ¨M

¦^´_ yan2463
½Ð¬Ý 26¼Ó
  http://forum.twbts.com/redirect. ... 5&fromuid=21526

TOP

        ÀR«ä¦Û¦b : ¦³¤ß´N¦³ºÖ¡A¦³Ä@´N¦³¤O¡A¦Û³yºÖ¥Ð¡A¦Û±oºÖ½t¡C
ªð¦^¦Cªí ¤W¤@¥DÃD