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

lcctno

§Ú¬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

Min

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

sub run_all()
call §Y®É²b­È()
call °ê¤º«ü¼Æ()
end sub

lcctno

¦^´_ 2# Min

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

GBKEE

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

lcctno

¦^´_ 4# GBKEE

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

1.·|¥d¦í

¤U¸ü (276.61 KB)

2015-7-25 23:37

2.¿ù»~°T®§

¤U¸ü (184.2 KB)

2015-7-25 23:37

3.°»¿ù

¤U¸ü (70.62 KB)

2015-7-25 23:37

GBKEE

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

lcctno

¦^´_ 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¤°»ò

no3-taco

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

½Æ»s¥N½X

azrael19

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

GBKEE

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