前提・実現したいこと
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://www.jwnetweb.jp/wusr/index.html" 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("username").Value = "XXXXXXXXXX" 'id="user_login"にユーザー名を入力 htmlDoc.getElementById("user_pass").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にそれぞれログインとパスワードを書いて実行しましたが、上記のエラーが出てきて失敗しました。 分かる方、ご教示願います。
私もチャレンジしてみましたが、ダメでした。getElementById では実現できないサイトであることを認識してください。
返信が遅くなってしまい申し訳ありません。 私の拙い説明から、汲み取っていただきありがとうございます。 まったくの初心者ですのでもう少し勉強したいと思います。
回答1件
あなたの回答
tips
プレビュー