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

[µo°Ý] ½Ð°Ý¯à§_±N2­ÓVBA¥¨¶°¦X¨Ö¦¨1­ÓVBA¥¨¶°

[µo°Ý] ½Ð°Ý¯à§_±N2­ÓVBA¥¨¶°¦X¨Ö¦¨1­ÓVBA¥¨¶°

¥»©«³Ì«á¥Ñ lcctno ©ó 2015-7-23 21:06 ½s¿è

§Ú¬Oªì¾ÇªÌ ºô¸ô¤W§ä¤F¼Æ¤Ñ ¦ý¤@ª½§ä¤£¨ì¤èªk ½Ð°ª¤â­Ì©Ô§Ú¤@§â ÁÂÁÂ

VBA¥¨¶°.1
Sub §Y®É²b­È()
Dim E As Object, myItems As Object, myitem
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        'Application.Wait Now + #12:00:01 AM#   '¦³¿ù¦b¶}±Ò
        Set myItems = .Document.getElementsByTagName("button")
        For Each myitem In myItems
            If myitem.Name = "Agree" Then
                myitem.Click                              '«ö¤U°e¥X¬d¸ß«ö¶s
            End If
        Next
        Application.Wait Now + #12:00:01 AM#
        Set E = .Document.getElementsByTagName("TABLE")(21)
         .Document.body.innerHTML = E.outerHTML
        .ExecWB 17, 2       '  Select All
        .ExecWB 12, 2       '  Copy selection
        With ActiveSheet
            '.Cells.Clear
            .[A1].Select
            .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
        End With
        .Quit        'Ãö³¬ºô­¶
    End With
    Range("L1:Q19").Select
    Selection.ClearContents
        Range("D16:D17").Select
    With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
    End With
End Sub


VBA¥¨¶° 2
Sub °ê¤º«ü¼Æ()
Dim E As Object, myItems As Object, myitem
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.yuantaetfs.com/#/Home/Index"
        Do While .Busy Or .readyState <> 4: DoEvents: Loop
        'Application.Wait Now + #12:00:01 AM#   '¦³¿ù¦b¶}±Ò
        Set myItems = .Document.getElementsByTagName("button")
        For Each myitem In myItems
            If myitem.Name = "Agree" Then
                myitem.Click                              '«ö¤U°e¥X¬d¸ß«ö¶s
            End If
        Next
        Application.Wait Now + #12:00:01 AM#
        Set E = .Document.getElementsByTagName("TABLE")(22)
         .Document.body.innerHTML = E.outerHTML
        .ExecWB 17, 2       '  Select All
        .ExecWB 12, 2       '  Copy selection
        With ActiveSheet
            '.Cells.Clear
            .[A27].Select
            .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
        End With
        .Quit        'Ãö³¬ºô­¶
        End With
         Range("A39:E39").Select
    Selection.ClearContents
        Range("C27:C28").Select
    With Selection.Interior
        .ColorIndex = 35
        .Pattern = xlSolid
    End With
End Sub

³o¼Ë¶Ü? ¨þ¨þ¨þ~ ¤£¬O«ÜÀ´±z·Q­nªº...

sub run_all()
call §Y®É²b­È()
call °ê¤º«ü¼Æ()
end sub
­Y¬O§Ú¦^µª¡A¨Ï±zº¡·N¡A½Ð±zÅý§Úª¾¹D¡I                  
­Y¬O§Úªº¦^ÂСA±z¤´¦³¨ä¥L¨£¸Ñ¡A¤]½Ð±z¤£¶Þ«ü±Ð¡I

TOP

¦^´_ 2# Min

·PÁ±z¼ö¤ßªº¦^ÂÐ ¦ý±z³o¼Ë°Z¤£¬O¤S¼W¥[¤F1­Ó¥y¶° Åܦ¨3­Ó¥¨¶°¤F
§Ú¬O§Æ±æ¯à°÷²¤Æ¦¨¤@­Ó¥¨¶°´N¯à¥]§t¨º2­Ó¥¨¶°ªº°Ê°µ ¥B¥\¯à¤£ÅÜ

TOP

¦^´_ 3# lcctno
¸Õ¸Õ¬Ý
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, Ar(), i As Integer
  4.     Ar = Array("http://www.yuantaetfs.com/#/RtNav/Index", "http://www.yuantaetfs.com/#/Home/Index")
  5.     'Ar = Array(ºô§}:§Y®É²b­È,ºô§}:°ê¤º«ü¼Æ) ºô§}¸m¤J°}¦C
  6.     ActiveSheet.UsedRange.Clear
  7.     For i = 0 To 1
  8.         With CreateObject("InternetExplorer.Application")
  9.             .Visible = True
  10.             .Navigate Ar(i)
  11.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
  12.             If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
  13.                 Do
  14.                     Set E = .Document.getElementByid("Agree")
  15.                 Loop Until Not E Is Nothing
  16.                 E.Click
  17.             End If
  18.             Do
  19.                 Do
  20.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
  21.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
  22.                 Loop Until Not E Is Nothing
  23.             Loop Until E.all.Length >= IIf(i = 0, 431, 150) '
  24.             .Document.body.innerHTML = E.outerHTML
  25.             .ExecWB 17, 2       '  Select All
  26.             .ExecWB 12, 2       '  Copy selection
  27.             With ActiveSheet
  28.                 .Range("A" & IIf(i = 0, 1, 27)).Select
  29.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  30.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
  31.                     .ColorIndex = 35
  32.                     .Pattern = xlSolid
  33.                 End With
  34.             End With
  35.             .Quit        'Ãö³¬ºô­¶
  36.         End With
  37.     Next
  38. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 4# GBKEE

·PÁ±zªºÀ°§U ¦ý§Ú¶O¤F¨Ç®É¶¡ÁÙ¬OµLªk¸Ñ¨M°ÝÃD °ÝÃD¦p¤U §Æ±æ¤£¬O¤j°ÝÃD ¦A¦¸ªºÁÂÁ±zªºÀ°§U

1.·|¥d¦í
¥d¦í.jpg
2015-7-25 23:37


2.¿ù»~°T®§
¿ù»~°T®§.jpg
2015-7-25 23:37


3.°»¿ù
°»¿ù.jpg
2015-7-25 23:37

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-26 07:32 ½s¿è

¦^´_ 5# lcctno

IE ¬°¦ó·|¤¤Â_³sô? Ie8 «Ü¶¶ºZªº,ADSL 5M/384K
½Ð§iª¾ºô§}¬O i=0 §Y®É²b­È, i=1°ê¤º«ü¼Æ
¦p·|¤¤Â_³sô³o¸Ì´N·|¤F
  1. Do
  2.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
  3.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
  4.                 Loop Until Not E Is Nothing
½Æ»s¥N½X
­×§ï¸Õ¸Õ
  1. If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
  2.                 Do
  3.                     Set E = .Document.getElementByid("Agree")
  4.                 Loop Until Not E Is Nothing
  5.                 E.Click
  6.                 Do While .Busy Or .readyState <> 4: DoEvents: Loop
  7.             End If
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¦^´_ 6# GBKEE

1.À³¸Ó¤£¬O¤U¸ü©Î¤W¶Ç³t«×ªº°ÝÃD §Ú¬O¨Ï¥Î¤¤µØ¹q«H¥ú¥@¥N¤Wºôªº

2.À³¸Ó¬O§Ú¹Lµ{±Ô­zªº¤£¦n §Ú¦A±Ô­zªº²M·¡¤@ÂI
·í°õ¦æ¸Ó¥¨¶°«á EXCELLÀɤº¨Ã¥¼¸ü¤J¥ô¦óªF¦è ªÅ¥Õ¤@¤ù·í¤U¥uµo¥Í¦Û°Ê¶}±ÒIE11 °±¦b"5¼Óªº¹Ï1.·|¥d¦í" ·í§ÚÃö±¼IE«á´N¥X²{ "¹Ï2.¿ù»~°T®§" ¹Ï3.¬O°»¿ù«áªººI¹Ï

¦A¦¸ªº·PÁ±zªº¥Î¤ßªºÀ°§U §Æ±æ±z¬ÝÀ´ªì¾ÇªÌªº§Ú¦b±Ô­z¤°»ò

TOP

¥»©«³Ì«á¥Ñ no3-taco ©ó 2015-7-26 09:24 ½s¿è

¥ý¥[¤Jµ{¦¡½X¸Ì­±¨º¨â¦æ¡A­×§ï§¹«á¶]¤@¦¸
À³¸Ó·|¥X²{¨â¦¸°T®§®Ø¡A°O¦í¼Æ¦rµM«á§ï
E.all.Length >= IIf(i = 0, 431, 150)  '²Ä¤@¦¸¥X²{¼Æ¦r´À´«431 ,²Ä¤G¦¸¥X²{¼Æ¦r´À´«150

µL»~«á,´¡¤Jªº¨º¨â¦æ´N¥i¥H§R±¼¤F
¤£¾å±o¬O¤£¬Oieª©¥»¤£¦PªºÃö«Y
  1. '.Visible = True                     '¥ýÁôÂÃ

  2. Dim Atime: Atime = Timer     '¥[¤J³o¸Ì######_1
  3. Do
  4.     Do
  5.         Set E = .document.getElementsByTagName("TABLE")(21 + i)
  6.         '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
  7.     Loop Until Not E Is Nothing
  8.     If Timer - Atime > 5 Then MsgBox E.all.Length: Exit Do     '¥[¤J³o¸Ì######_2
  9. Loop Until E.all.Length >= IIf(i = 0, 431, 150)     '¶]¹L¤@¦¸«á­n­×§ïªº¦a¤è
½Æ»s¥N½X

TOP

¦^´_  GBKEE

1.À³¸Ó¤£¬O¤U¸ü©Î¤W¶Ç³t«×ªº°ÝÃD §Ú¬O¨Ï¥Î¤¤µØ¹q«H¥ú¥@¥N¤Wºôªº

2.À³¸Ó¬O§Ú¹Lµ{±Ô­zªº¤£ ...
lcctno µoªí©ó 2015-7-26 08:23


¸Õ¸Õ¬Ý...
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, Ar(), i As Integer
  4.     Ar = Array("http://www.yuantaetfs.com/#/RtNav/Index", "http://www.yuantaetfs.com/#/Home/Index")
  5.     'Ar = Array(ºô§}:§Y®É²b­È,ºô§}:°ê¤º«ü¼Æ) ºô§}¸m¤J°}¦C
  6.     ActiveSheet.UsedRange.Clear
  7.     For i = 0 To 1
  8.         With CreateObject("InternetExplorer.Application")
  9.             .Visible = True
  10.             .Navigate Ar(i)
  11.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
  12.             If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
  13.                 Do
  14.                     Set E = .Document.getElementByid("Agree")
  15.                 Loop Until Not E Is Nothing
  16.                 E.Click
  17.             End If
  18.             Do
  19.                 Do
  20.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
  21.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
  22.                 Loop Until Not E Is Nothing
  23.             'Loop Until E.all.Length >= IIf(i = 0, 431, 150) '
  24.             Loop Until 0 < InStr(1, E.outerHTML, IIf(i = 0, "°ò¥»¸ê®Æ", "¥xÆW¥[ÅvªÑ»ù«ü¼Æ"))  '§ï¥Î¬ÛÃö¦r¦ê½T»{¬O§_¦³¸ê®Æ
  25.             .Document.body.innerHTML = E.outerHTML
  26.             .ExecWB 17, 2       '  Select All
  27.             .ExecWB 12, 2       '  Copy selection
  28.             With ActiveSheet
  29.                 .Range("A" & IIf(i = 0, 1, 27)).Select
  30.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  31.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
  32.                     .ColorIndex = 35
  33.                     .Pattern = xlSolid
  34.                 End With
  35.             End With
  36.             .Quit        'Ãö³¬ºô­¶
  37.         End With
  38.     Next
  39. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2015-7-27 09:53 ½s¿è

¦^´_ 7# lcctno

·í¤U¥uµo¥Í¦Û°Ê¶}±ÒIE11 °±¦b"5¼Óªº¹Ï1.
¦¹µ{¦¡°õ¦æ«á·|¦^¨ìVBA½s¿èµøµ¡,¨Ã¥´¶}'§Y®É¹Bºâ"ªºµøµ¡
½Ð²Ä¤@­ÓSTOP ¤§«á«ö¤UF5
¦p°±¯d¦bVBA½s¿èµøµ¡,"§Y®É¹Bºâ"¤@ª½¦³¦r¦ê¥X²{,¥Nªíµ{¦¡¤@ª½¦bµ¥«áIEªº¸ê®Æ,¬OIE ªº°ÝÃD
**½Ð­@¤ßµ¥­Ô¨ì¤U ¤@­Ó STOP ¤§«á«ö¤UF5 **
  1. Option Explicit
  2. Sub Ex()
  3.     Dim E As Object, Ar(), i As Integer
  4.     Ar = Array("http://www.yuantaetfs.com/#/RtNav/Index", "http://www.yuantaetfs.com/#/Home/Index")
  5.     'Ar = Array(ºô§}:§Y®É²b­È,ºô§}:°ê¤º«ü¼Æ) ºô§}¸m¤J°}¦C
  6.     ActiveSheet.UsedRange.Clear
  7.     For i = 0 To 1
  8.         With CreateObject("InternetExplorer.Application")
  9.             .Visible = True
  10.             .Navigate Ar(i)
  11.             Do While .Busy Or .readyState <> 4: DoEvents: Loop
  12.             If i = 0 Then  '°ê¤º«ü¼Æ:¤£»Ý«ö¤U¦P·NÁä
  13.                 Do
  14.                     Set E = .Document.getElementByid("Agree")
  15.                 Loop Until Not E Is Nothing
  16.                 E.Click
  17.             End If
  18.             .Visible = False
  19.             Application.VBE.MainWindow.Visible = True
  20.             Application.VBE.Windows("§Y®É¹Bºâ").Visible = True
  21.             Stop  '¤§«á«ö¤UF5
  22.             Do
  23.                 Do
  24.                     Set E = .Document.getElementsByTagName("TABLE")(21 + i)
  25.                     '§Y®É²b­È ²Ä21­Ó "TABLE" ,'°ê¤º«ü¼Æ ²Ä22­Ó "TABLE"
  26.                     Debug.Print i, "e Is Nothing ->", E Is Nothing
  27.                 Loop Until Not E Is Nothing
  28.                     Debug.Print i, "e Is Nothing ->", E Is Nothing, "e.all.Length", E.all.Length
  29.             Loop Until E.all.Length >= IIf(i = 0, 431, 150) '
  30.             Stop  '¤§«á«ö¤UF5
  31.             
  32.             Application.VBE.Windows("§Y®É¹Bºâ").Visible = False
  33.             Application.VBE.MainWindow.Visible = False
  34.             .Document.body.innerHTML = E.outerHTML
  35.             .ExecWB 17, 2       '  Select All
  36.             .ExecWB 12, 2       '  Copy selection
  37.             With ActiveSheet
  38.                 .Range("A" & IIf(i = 0, 1, 27)).Select
  39.                 .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  40.                 With .Range(IIf(i = 0, "D16:D17", "C27:C28")).Interior
  41.                     .ColorIndex = 35
  42.                     .Pattern = xlSolid
  43.                 End With
  44.             End With
  45.             .Quit        'Ãö³¬ºô­¶
  46.         End With
  47.     Next
  48. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

        ÀR«ä¦Û¦b : ¨ü¤HÂI¤ô¤§®¦¡A¶··í´é¬u¥H³ø¡C
ªð¦^¦Cªí ¤W¤@¥DÃD