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

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

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

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

¦^´_ 1# lcctno
«ç»ò§ì¨ì 5.36ªº?
ªí¹F¤£²M¡BÃD·N¤£©ú½T¡B¨SªþÀɮ׮榡¡B¨S¦³°Q½×°ÝÃDªººA«×~~~~~~¥H¤W·R²ö¯à§U¡C

TOP

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

TOP

¥»©«³Ì«á¥Ñ lcctno ©ó 2016-12-6 18:57 ½s¿è

¦^´_ 2# stillfish00

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

ªþ¥ó
SPGCL2LP.zip (11.96 KB)

TOP

        ÀR«ä¦Û¦b : ¤£­nÀH¤ß©Ò±ý¡A­nÀH¤ß±Ð¨|¦Û¤v¡C
ªð¦^¦Cªí ¤W¤@¥DÃD