###前提・実現したいこと
ExcelVBAでIEのあるサイトから自動的にログインできるようなシステムを作っています。
自動ログイン機能作成時に以下のエラーメッセージが発生しました。
###該当のソースコード
Sub logIn() Dim objIE As InternetExplorer 'IEオブジェクトを準備 Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット objIE.Visible = True 'IEを表示 Dim strUrl As String '次ページのURL strUrl = "https://reserve.yoga-lava.com/reserve/" objIE.navigate strUrl 'IEでURLを開く Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち DoEvents Loop Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備 Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット htmlDoc.getElementById("user_login").Value = "XXXXXXXX" 'id="user_login"にユーザー名を入力 htmlDoc.getElementById("user_password").Value = "XXXXXXXXXX" 'id="user_pass"にパスワードを入力 htmlDoc.getElementById("loginform").submit 'フォームの内容を送信 End Sub
###試したこと
htmlDoc.getElementById("user_login").Value = "XXXXXXXX" 'id="user_login"にユーザー名を入力
htmlDoc.getElementById("user_password").Value = "XXXXXXXXXX" 'id="user_pass"にパスワードを入力
Xにそれぞれログインとパスワードを書いて実行しましたが、上記のエラーが出てきて失敗しました。
分かる方、ご教示願います。
回答2件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2018/01/04 13:03