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

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

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