[µo°Ý] §ìºô­¶¸ê®Æ°ÝÃD

ck00

§Ú·Q°Ý¤@¤U,¦p¦ó¦b¨Ï¥Îie.navigate ³s½u¨Ãµn¤Jºô­¶«á,
³z¹L³s½u¦Üºô§},¸õ¦Ü¦P¤@ºô­¶ªº¨ä¥L­¶­±,
¨Ã½Æ»sid="abc"ªºtable¦Üworksheet?

Sub portalLog()
    Dim User As String, Pwd As String

        Set ie = CreateObject("InternetExplorer.application")
        ie.Visible = True
        ie.navigate "https://login.yahoo.com/config/mail?.intl=tw"
        With ie
            Do While .busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop
        End With
        
        Application.EnableCancelKey = False
        With ie
            .Document.getElementsByTagName("input")(1).Value = "username"
            .Document.getelementbyID("password").Value = "password"
            .Document.getElementsByTagName("input")(3).Click
        End With
        Application.EnableCancelKey = True
        
        With ie
            Do While .busy: DoEvents: Loop
            Do While .ReadyState <> 4: DoEvents: Loop
        End With
        
¦p¦ó¦b¦¹³s½u¦Ü¤vµn¤Jºô­¶ªº¨ä¥L­¶­±,µM«á¦A®Ú¾ÚTABLEªºID§â¥L½Æ»s
        Set ie = Nothing
End Sub

ck00

»´»´±À¤@±À