[µo°Ý] ½Ð°ª¤â«ü¾É­×¥¿"§Y®É¦ô­p²b­È"

lcctno

³o¬O¤¸¤jÄ_¨ÓETF²b­Èªººô§}
http://www.yuantaetfs.com/#/RtNav/Index

¦p¹Ï ³o¬O¤¸¤jÄ_¨Óºô¸ô¬Ý¨ìªºETF²b­È

¤U¸ü (113.35 KB)

2016-3-15 09:06

³o¹Ï¬O¥»¨Ó¤µ¤Ñ¤§«eªº§Y®É²b­È¹Ï

¤U¸ü (143.62 KB)

2016-3-15 09:08

³o¹Ï¬O§Ú¥Ø«eµLªk¨Ï¥Îªº§Y®É²b­È¹Ï

¤U¸ü (158.98 KB)

2016-3-15 09:08

§Ú¹Á¸Õ¤F«Ü¤[ µLªk§Ë¦nVBA ³Â·Ð°ª¤âÀ°§Ú¸Ñ¨M°ÝÃD ÁÂÁÂ
ªþ¥ó:§Y®É²b­È.zip
~§Y®É²b­È.zip (11.64 KB)

¤U¸ü¦¸¼Æ: 3

2016-3-15 09:09

lcctno

³o¬O§Y®É²b­ÈVBA ­è­èº|¤F¼g ³Â·Ð°ª¤âÀ°§Ú­×¥¿¦¨¥i¥¿±`¨Ï¥ÎªºEXCELLªí®æ

Sub §Y®É²b­È()

Dim E As Object, myItems As Object, myitem
    With CreateObject("InternetExplorer.Application")
        .Visible = True
        .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
        
        Application.Wait Now + #12:00:03 AM#   '¦³¿ù¦b¶}±Ò

        Set myItems = .Document.getElementsByTagName("button")
        For Each myitem In myItems
        
        'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
        
            If myitem.Name = "Agree" Then
            
                myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s

            End If
        Next

        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
  
End Sub

joey0415

±z¸Õ¸Õ¬Ý

1. Sub §Y®É²b­È()
   
2. Application.ScreenUpdating = False
   
3. Cells.Delete
   
4. Dim E As Object, myItems As Object, myitem
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Visible = True
   
7.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
   
8.         
   
9.         Application.Wait Now + #12:00:03 AM#   '¦³¿ù¦b¶}±Ò
   
10. 
    
11.         Set myItems = .Document.getElementsByTagName("button")
    
12.         For Each myitem In myItems
    
13.         
    
14.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
    
15.         
    
16.             If myitem.Name = "Agree" Then
    
17.             
    
18.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s
    
19. 
    
20.             End If
    
21.         Next
    
22. 
    
23.         Set E = .Document.getElementsByTagName("TABLE")(22)
    
24.          .Document.body.innerHTML = E.outerHTML
    
25.         .ExecWB 17, 2       '  Select All
    
26.         .ExecWB 12, 2       '  Copy selection
    
27.         With ActiveSheet
    
28.             '.Cells.Clear
    
29.             .[A1].Select
    
30.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
31.         End With
    
32.         .Quit        'Ãö³¬ºô­¶
    
33.     End With
    
34.    
    
35.     x = Cells(Rows.Count, 1).End(xlUp).Row
    
36. 
    
37.   For A = x To 6 Step -1
    
38.     If Cells(A, 3) = "" Then
    
39.         Rows(A).Delete
    
40.     End If
    
41.   Next
    
42.   
    
43.   Application.ScreenUpdating = True
    
44. End Sub

½Æ»s¥N½X

¦^´_ 2# lcctno

lcctno

¦^´_ 3# joey0415
·PÁ±zªºÀ°¦£
¦ý·|¯Ê¥xÆW50 ¦p¹Ï

¤U¸ü (123.72 KB)

2016-3-15 12:29

joey0415

¦^´_ 4# lcctno

¤p­×§ï¤@¤U¡AÀ³¸Ó¥i¥H

1. Sub §Y®É²b­È()
   
2. Application.ScreenUpdating = False
   
3. Cells.Delete
   
4. Dim E As Object, myItems As Object, myitem
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Visible = True
   
7.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
   
8.         
   
9.         Application.Wait Now + #12:00:03 AM#   '¦³¿ù¦b¶}±Ò
   
10. 
    
11.         Set myItems = .Document.getElementsByTagName("button")
    
12.         For Each myitem In myItems
    
13.         
    
14.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
    
15.         
    
16.             If myitem.Name = "Agree" Then
    
17.             
    
18.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s
    
19. 
    
20.             End If
    
21.         Next
    
22. 
    
23.         Set E = .Document.getElementsByTagName("TABLE")(21)
    
24.          .Document.body.innerHTML = E.outerHTML
    
25.         .ExecWB 17, 2       '  Select All
    
26.         .ExecWB 12, 2       '  Copy selection
    
27.         With ActiveSheet
    
28.             '.Cells.Clear
    
29.             .[A1].Select
    
30.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
    
31.         End With
    
32.         .Quit        'Ãö³¬ºô­¶
    
33.     End With
    
34.     x = Cells(Rows.Count, 2).End(xlUp).Row
    
35. 
    
36.   For A = x To 6 Step -1
    
37.     If Cells(A, 4) = "" Then
    
38.         Rows(A).Delete
    
39.     End If
    
40.   Next
    
41.   Columns(1).Delete
    
42.   Application.ScreenUpdating = True
    
43. End Sub

½Æ»s¥N½X

lcctno

¦^´_ 5# joey0415
¥Ø«eÁÙ¬O¯Ê¥xÆW50 §Ú¤µ¤é¤W¶Çªº»yªk ´N·|¯Ê¥xÆW50 ¦ý¤§«eªº¦³¥xÆW50
±z½Ð¬Ý¹Ï³Ì¤W¤è ¦³µu¤Öªº¥xÆW50¸ê®Æ

¤U¸ü (123.51 KB)

2016-3-15 13:26

joey0415

¦^´_ 6# lcctno
§A¦A¸Õ¸Õ

1. Sub §Y®É²b­È()
   
2. Application.ScreenUpdating = False
   
3. Cells.Delete
   
4. Dim E As Object, myItems As Object, myitem
   
5.     With CreateObject("InternetExplorer.Application")
   
6.         .Visible = True
   
7.         .Navigate "http://www.yuantaetfs.com/#/RtNav/Index"
   
8.         
   
9.         Application.Wait Now + #12:00:03 AM#   '¦³¿ù¦b¶}±Ò
   
10. 
    
11.         Set myItems = .Document.getElementsByTagName("button")
    
12.         For Each myitem In myItems
    
13.         
    
14.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
    
15.         
    
16.             If myitem.Name = "Agree" Then
    
17.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s
    
18.             End If
    
19.         Next
    
20.             Set r = .Document.All.tags("table")(22).Rows
    
21.             n = Cells(Rows.Count, 1).End(xlUp).Row
    
22.             For i = 2 To r.Length - 1
    
23.                 For j = 0 To r(i).Cells.Length - 2
    
24.                     Cells(i + n + 1 - 3, j + 1) = r(i).Cells(j).innerText
    
25.                 Next j
    
26.             Next
    
27.             
    
28.         x = Cells(Rows.Count, 1).End(xlUp).Row
    
29.             For A = x To 1 Step -1
    
30.               If Cells(A, 3) = "" Then
    
31.                   Rows(A).Delete
    
32.               End If
    
33.             Next
    
34.         .Quit
    
35.         End With
    
36.   
    
37.   Application.ScreenUpdating = True
    
38. End Sub

½Æ»s¥N½X

lcctno

¦^´_ 7# joey0415
¦^´_: °ª¤â ¥¿±`¤F
¥i¥H¤À¨É±zªº¸Ñ¨M¤èªk¶Ü?
¬°¦ó§Ú¶Kªº»yªk ¥xÆW50·|¤£¥¿±` µLªk¥þ³¡Åãµø(¥u¯àÅãµø³¡¤Àªº¸ê°T)
±z¥i¤£¥i¥HÀ°§Ú¤W¶Çªº³¡¤À±z­×§ïªº¦a¤è »¡©ú¤@¤U ¬O§_¯à±N"¸ê®Æ®É¶¡"¯àÅã¥Ü¥X¨Ó
ÁÂÁ±zªº¨¯­W¤F

lcctno

¦^´_ 7# joey0415
²{¦b¦³­Ó¤ñ¸û¤jªº°ÝÃD¬O
¥u­n¤@§ó·s²b­È ¨ä¥L¨Ï¥Î¸Ó¸ê°Tªº³sµ²´N·|µo¥Í°ÝÃD (½Ð¬Ý§ó·s«á)
±z¥i¤£¥i¥H±NVBA§ï¬°§Ú³Ì­ì©lªº¼Ë¤l
¦ý­n¦³0050ªº¥þ³¡¸ê°T
¤£¥Î»Ý­n§¹¬üªº¦A±Æ§Ç ÁÂÁ±z¤F

­Y¤£¯Ê0050 ³o¬O§Ú¥i¥H¥Îªº§Y®É²b­È¹Ï

¤U¸ü (27.24 KB)

2016-3-16 09:20

§ó·s«e

¤U¸ü (151.94 KB)

2016-3-16 09:09

§ó·s«á

¤U¸ü (171.7 KB)

2016-3-16 09:09

ªþ¥ó
~§Y®É²b­È.zip (16.05 KB)

¤U¸ü¦¸¼Æ: 4

2016-3-16 09:08