[µo°Ý] ½Ð°Ý¦p¦ó±N§Y®É¸ê°T§¹¾ã§ì¤U¨Ó(¦p¹Ï5.3619)

lcctno

½Ð°Ý¦p¦ó±N§Y®É¸ê°T§¹¾ã§ì¤U¨Ó(¦p¹Ï5.3619) ¦ý§Ú¥u¯à§ì¨ì 5.36 ÁÂÁ±zªºÀ°§U
¸ê°T¨Ó·½¦p¤U:
http://finance.yahoo.com/quote/%5ESPGCL2LP?ltr=1

¤U¸ü (157.45 KB)

2016-12-6 10:00

lcctno

¦^´_ 2# stillfish00

§Ú¦A¸É¥R»¡©ú ¸Óºô¯¸ÂsÄý¾¹ªì¶}±Ò®É ¥u·|Åã¥ÜÃþ¦ü"5.36" µ¥­Ó´X¬í«á´N·|Åã¥ÜÃþ¦ü"5.3619"§¹¾ãªº¼Æ¾Ú µM«á·|¦Û°Ê§ó·s¼Æ­È

ªþ¥ó
SPGCL2LP.zip (11.96 KB)

¤U¸ü¦¸¼Æ: 3

2016-12-6 18:55

lcctno

¦^´_ 2# stillfish00


    Sub SPGCL2LP()

    Sheets("SPGCL2LP").Select
    Dim E As Object, myItems As Object, myitem
    With CreateObject("InternetExplorer.Application")
        .Visible = False
        .Navigate "http://finance.yahoo.com/quote/%5ESPGCL2LP"
        
        Application.Wait Now + #12:00:03 AM#  

        .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
   
    [A52].Select
  
    End Sub

stillfish00

¦^´_ 1# lcctno
«ç»ò§ì¨ì 5.36ªº?