自動ログインのVBAを作りたいのですが・・・ 削除
Message#4 2017年11月26日(日)22時42分 From: ジャッカル |
Dim objInpTxt As HTMLTextAreaElement を削除してみたら? あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる? > ジャッカルのメッセージ(#2)への返事 > > > CreateObjectでオブジェクトつくってないからじゃない? > > dimで宣言したからといってobjIEにオブジェクトが作られるわけではない。 > > > > かじじです > 説明不足で申し訳ありません。CreateObjectは下記の通り、実行しています。 > > 'IE(InternetExplorer)のオブジェクトを作成する > Set objIE = CreateObject("InternetExplorer.Application") > > 'IE(InternetExplorer)を表示する > objIE.Visible = True > > '指定したURLのページをIEで起動する > objIE.navigate "http://10.51.2.20/spweb/" > > Call ieCheck(objIE) > > 'ログインボタンをクリック > '*** [ログインへ進む]をクリック > Dim objElement As IHTMLElement2 > Dim strTempText As String > > For Each objElement In objIE.document.all.tags(tagName:="a") > strTempText = objElement.getAttribute _ > (strAttributeName:="href") > Debug.Print strTempText > If InStr(strTempText, "login_new") > 0 Then > objElement.Click > End If > Next > > Call ieCheck(objIE) > > Dim objInpTxt As HTMLTextAreaElement > Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0) <==@ > ーーーー > 変数objIEには、txtLoginIdが見つかりません。@の指定の方法が間違っているのか? > どうアプローチすれば良いのでしょう?気になっているのは、ログインのIDとPWDを > 入力する画面がアニメーションになっていて(スライドして出てくる)、 > javaで書かれているようで、@のような指定はできないのかもとも考えています。 > アドバイスをいただければうれしいです。 |
上のメッセージを削除します。
よければパスワードを入力し、削除ボタンをクリックしてください。