前提・実現したいこと

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

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

TanakaHiroaki

2018/09/10 12:43

私もチャレンジしてみましたが、ダメでした。getElementById　では実現できないサイトであることを認識してください。

退会済みユーザー

2018/09/11 07:11

返信が遅くなってしまい申し訳ありません。私の拙い説明から、汲み取っていただきありがとうございます。まったくの初心者ですのでもう少し勉強したいと思います。

行動規範の内容に同意します

回答1件

ベストアンサー

JWNET[Portal]のソースはちゃんと確認されたのでしょうか？

ログインフォームそのものがhttps://www.jwnetweb.jp/wusr/index.html内には存在せず、iframeで読み込まれています。iframe内のドキュメントで探索しないと見つかりません。
idがusername・user_pass・loginform・user_login・user_passwordとなっている要素は存在しません。IDとパスワードはNameが設定されているため、getElementsByNameを使用すれば取得できるでしょう。

上記以外のもんだ点として、手元で試したときhttps://www.jwnetweb.jp/wusr/index.htmlからiframe内の要素にアクセスできませんでした。
iframeで呼ばれているページを直接開けば変更出来るようですが、アカウントを持っていないため詳しくは試していません。

質問の修正依頼

vba
1Sub logIn()
2    
3    Dim objIE As InternetExplorer 'IEオブジェクトを準備
4    Set objIE = CreateObject("Internetexplorer.Application") '新しいIEオブジェクトを作成してセット
5    
6    objIE.Visible = True 'IEを表示
7    
8    Dim strUrl As String '次ページのURL
9    strUrl = "https://www.jwnetweb.jp/wusr/index.html"
10    
11    objIE.navigate strUrl 'IEでURLを開く
12    Const READYSTATE_COMPLETE = 4
13    Do While objIE.Busy = True Or objIE.readyState < READYSTATE_COMPLETE '読み込み待ち
14    
15        DoEvents
16    
17    Loop
18    
19    Dim htmlDoc As HTMLDocument 'HTMLドキュメントオブジェクトを準備
20    Set htmlDoc = objIE.document 'objIEで読み込まれているHTMLドキュメントをセット
21    
22    htmlDoc.getElementById("username").Value = "XXXXXXXXXX" 'id="user_login"にユーザー名を入力
23    htmlDoc.getElementById("user_pass").Value = "XXXXXXXXXX" 'id="user_pass"にパスワードを入力
24    htmlDoc.getElementById("loginform").submit 'フォームの内容を送信
25
26End Sub