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

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

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

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-3-15 09:17 ½s¿è

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

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


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


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


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

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-3-15 09:38 ½s¿è

³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

TOP

±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.         Set myItems = .Document.getElementsByTagName("button")
  11.         For Each myitem In myItems
  12.         
  13.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
  14.         
  15.             If myitem.Name = "Agree" Then
  16.             
  17.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s

  18.             End If
  19.         Next

  20.         Set E = .Document.getElementsByTagName("TABLE")(22)
  21.          .Document.body.innerHTML = E.outerHTML
  22.         .ExecWB 17, 2       '  Select All
  23.         .ExecWB 12, 2       '  Copy selection
  24.         With ActiveSheet
  25.             '.Cells.Clear
  26.             .[A1].Select
  27.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  28.         End With
  29.         .Quit        'Ãö³¬ºô­¶
  30.     End With
  31.    
  32.     x = Cells(Rows.Count, 1).End(xlUp).Row

  33.   For A = x To 6 Step -1
  34.     If Cells(A, 3) = "" Then
  35.         Rows(A).Delete
  36.     End If
  37.   Next
  38.   
  39.   Application.ScreenUpdating = True
  40. End Sub
½Æ»s¥N½X
¦^´_ 2# lcctno

TOP

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

TOP

¦^´_ 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.         Set myItems = .Document.getElementsByTagName("button")
  11.         For Each myitem In myItems
  12.         
  13.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
  14.         
  15.             If myitem.Name = "Agree" Then
  16.             
  17.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s

  18.             End If
  19.         Next

  20.         Set E = .Document.getElementsByTagName("TABLE")(21)
  21.          .Document.body.innerHTML = E.outerHTML
  22.         .ExecWB 17, 2       '  Select All
  23.         .ExecWB 12, 2       '  Copy selection
  24.         With ActiveSheet
  25.             '.Cells.Clear
  26.             .[A1].Select
  27.             .PasteSpecial Format:="HTML", Link:=False, DisplayAsIcon:=False, NoHTMLFormatting:=True
  28.         End With
  29.         .Quit        'Ãö³¬ºô­¶
  30.     End With
  31.     x = Cells(Rows.Count, 2).End(xlUp).Row

  32.   For A = x To 6 Step -1
  33.     If Cells(A, 4) = "" Then
  34.         Rows(A).Delete
  35.     End If
  36.   Next
  37.   Columns(1).Delete
  38.   Application.ScreenUpdating = True
  39. End Sub
½Æ»s¥N½X

TOP

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


TOP

¦^´_ 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.         Set myItems = .Document.getElementsByTagName("button")
  11.         For Each myitem In myItems
  12.         
  13.         'Application.Wait Now + #12:00:00 AM#   '¦³¿ù¦b¶}±Ò
  14.         
  15.             If myitem.Name = "Agree" Then
  16.                 myitem.Click    '«ö¤U°e¥X¬d¸ß«ö¶s
  17.             End If
  18.         Next
  19.             Set r = .Document.All.tags("table")(22).Rows
  20.             n = Cells(Rows.Count, 1).End(xlUp).Row
  21.             For i = 2 To r.Length - 1
  22.                 For j = 0 To r(i).Cells.Length - 2
  23.                     Cells(i + n + 1 - 3, j + 1) = r(i).Cells(j).innerText
  24.                 Next j
  25.             Next
  26.             
  27.         x = Cells(Rows.Count, 1).End(xlUp).Row
  28.             For A = x To 1 Step -1
  29.               If Cells(A, 3) = "" Then
  30.                   Rows(A).Delete
  31.               End If
  32.             Next
  33.         .Quit
  34.         End With
  35.   
  36.   Application.ScreenUpdating = True
  37. End Sub
½Æ»s¥N½X

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-3-15 21:30 ½s¿è

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

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-3-16 09:23 ½s¿è

¦^´_ 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­È¹Ï


§ó·s«e


§ó·s«á


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

TOP

        ÀR«ä¦Û¦b : ¤ß¤¤±`¦sµ½¸Ñ¡B¥]®e¡B·P«ä¡Bª¾¨¬¡B±¤ºÖ¡C
ªð¦^¦Cªí ¤W¤@¥DÃD