[VBA] IEによる自動ログインについて
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
| Message#2 2015年2月4日(水)21時24分 From: ホワイトペッパー | 返事 削除 変更 |
| こんな感じで。 --- Option Explicit Sub hoge() Const url = "https://www.nanaco-net.jp/pc/emServlet" Dim ie As Object Set ie = CreateObject("InternetExplorer.Application") ie.Visible = True ie.Navigate url While ie.busy Or ie.ReadyState <> 4 DoEvents Wend ie.document.forms(0).Item("XCID").Value = "ID" ie.document.forms(0).Item("SECURITY_CD").Value = "PW" ie.document.forms(0).all("ACT_ACBS_do_LOGIN2").Click End Sub |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降
