ExcelVBAからInternetExplolarのサイトに自動ログインしたい

Question

###前提・実現したいこと

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にそれぞれログインとパスワードを書いて実行しましたが、上記のエラーが出てきて失敗しました。

分かる方、ご教示願います。

Answer 1

下記でどうでしょうか。

    htmlDoc.getElementById("memberCode").Value = "123456789" '会員番号入力
    htmlDoc.getElementById("password").Value = "0123456789" 'パスワード入力
    htmlDoc.getElementById("login").Click                   'ログインボタンクリック

ユーザー操作をそのまま再現してみました。
submit でうまくいかない場合、これでうまくいく場合があります。

実験してみると、下記のページに飛びました。
「会員番号またはパスワードが違います。」
正しい会員番号、パスワードを入力したらログインできると思います。

要素のID名は、IEなら右クリックの「要素の検査」、Chromeなら「検証」で確認できます。

Comments

[1004]

ありがとうございます。うまくいきました。

Answer 2

IEの操作はほとんどやったことがないので勉強がてらやってみましたが、
提示されたコードでは同じエラーが再現しませんでした。
ただ、対象のサイトのログインフォームのIDが違うようですので下記の通りお伝えします。

正:memberCode 誤:user_login
正:password　　誤:user_password
正:Form　　　　誤:loginform

参考までに、同じコードでteratailへのログインを試したところ、当方の環境では問題なくログインできました。
Excel 2016
参照設定
Microsoft Internet Controls
Microsoft HTML Object Library

Comments

[1004]

「memberCode」には正しく入力されましたが、「password」には設定した値が入りませんでした。何か原因があるのでしょうか？