標題: VBA 自動取得emome 未出帳帳單的網路流量 [打印本頁]

---

作者: littlesafe    時間: 2013-1-23 16:17     標題: VBA 自動取得emome 未出帳帳單的網路流量

http://www.emome.net/

以下是我目前有寫出來的部份，會自動登入，但接下來的部份就不知道要怎麼寫了 Q_Q 請問高手這該如何處理 謝謝 Orz

Sub login()
     Dim loginID As String
     Dim loginPW As String
     loginID = "ID"
     loginPW = "Passwd"

     Dim IE As InternetExplorer
     Dim doc As HTMLDocument
     Dim element As IHTMLElementCollection
     
     Set IE = CreateObject("InternetExplorer.Application")
     IE.navigate ("http://www.emome.net/channel?chid=48")
     IE.Visible = True
     
     Do Until IE.readyState = READYSTATE_COMPLETE
         DoEvents
     Loop
     Set doc = IE.document
     Set element = doc.getElementsByName("uid")
     element.Item(0).Value = loginID
     Set element = doc.getElementsByName("pw")
     element.Item(0).Value = loginPW
     IE.navigate ("javascript:goRegist()")
     

End Sub

---

作者: littlesafe    時間: 2013-1-23 17:45

回復 1# littlesafe


    剛剛想說要用從web匯入資料 也是不行 Q_Q

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)