自動ログインのVBAを作りたいのですが・・・

最近の書き込み件数: 今日 0件、昨日 0件
未読分:7件

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)


Excel VBAでIEを思いのままに操作できるプログラミング術 Excel 2013/2010/2007/2003対応

近田 伸矢, 植木 悠二, 上田 寛

IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。

Message#7 2017年12月1日(金)18時27分
From: かじじ
返事 変更
ジャッカルのメッセージ(#6)への返事

> これはiframeを使っているのかな?
> iframeはセキュリティー上アクセスできなくなったとかあったと思うけど、その対処法がどこかの板で書かれていたような。
>
> 板が多すぎでどこかは不明だけど

iframeで調べてみます。ありがとうございます。

Message#6 2017年11月30日(木)21時02分
From: ジャッカル
返事 変更
これはiframeを使っているのかな?
iframeはセキュリティー上アクセスできなくなったとかあったと思うけど、その対処法がどこかの板で書かれていたような。

板が多すぎでどこかは不明だけど

> ジャッカルのメッセージ(#4)への返事
>
>
> >> Dim objInpTxt As HTMLTextAreaElement
> >> を削除してみたら?
> 削除したら、エラーは消えました。しかし、「objInpTxtの定義なし」で
> 問題ないのでしょうか?
> Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)
> objInpTxt.value = "1234567" <=== ここで 実行時エラー"91"
>
> >> あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる?
> 失礼しました。javascriptです。
>
> > 'ログインボタンをクリック
> > '*** [ログインへ進む]をクリック
> のあと、IEのDOM Explorerで見てみると下記の※を実行します。まったく想像ですがこのjavascriptの
> 中でログインIDとPWDを入力させる窓を出しているようなので、実際のIDとPWDの受け取りも
> javascriptでやっているのかな?と考えています。それの真偽とログインIDとPWDの渡し方を
> どのように見つけ出すのか?そのアプローチ方法を知りたいです。
>
> <a href="./login/login_new.htm?height=200&width=370" rel="sexylightbox" ><img src="images/btn_login_off.png" class="iepngfix" onClick="JavaScript:document.frmDefault.hdnKushituSearchFlg.value=0;"></a> <<=== ※
>
> </div><!--btn_login-->
>
> <div id="tit_info">
> <img src="images/tit_info.png" class="iepngfix">
> </div><!--tit_info-->
>
>
> <!--
> <iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" scrolling="yes" frameborder="0" id="flame"></iframe>
> -->
>
> <!--
> <iframe src="" scrolling="yes" frameborder="0" id="flame"></iframe>
> -->
> <iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" class="ifr_resize" scrolling="yes" frameborder="0" id="flame"></iframe>
>
>
> </div><!--login_main-->
> </body>
> </html>

Message#5 2017年11月27日(月)16時25分
From: かじじ
返事 変更
ジャッカルのメッセージ(#4)への返事


>> Dim objInpTxt As HTMLTextAreaElement
>> を削除してみたら?
削除したら、エラーは消えました。しかし、「objInpTxtの定義なし」で
問題ないのでしょうか?
Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0)
objInpTxt.value = "1234567" <=== ここで 実行時エラー"91"

>> あとjavaとjavascriptはまったく別物だけど、どのことをjavaといってる?
失礼しました。javascriptです。

> 'ログインボタンをクリック
> '*** [ログインへ進む]をクリック
のあと、IEのDOM Explorerで見てみると下記の※を実行します。まったく想像ですがこのjavascriptの
中でログインIDとPWDを入力させる窓を出しているようなので、実際のIDとPWDの受け取りも
javascriptでやっているのかな?と考えています。それの真偽とログインIDとPWDの渡し方を
どのように見つけ出すのか?そのアプローチ方法を知りたいです。

<a href="./login/login_new.htm?height=200&width=370" rel="sexylightbox" ><img src="images/btn_login_off.png" class="iepngfix" onClick="JavaScript:document.frmDefault.hdnKushituSearchFlg.value=0;"></a> <<=== ※

</div><!--btn_login-->

<div id="tit_info">
<img src="images/tit_info.png" class="iepngfix">
</div><!--tit_info-->


<!--
<iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" scrolling="yes" frameborder="0" id="flame"></iframe>
-->

<!--
<iframe src="" scrolling="yes" frameborder="0" id="flame"></iframe>
-->
<iframe src="http://www.visual-w.co.jp/_sp_info/info.asp" class="ifr_resize" scrolling="yes" frameborder="0" id="flame"></iframe>


</div><!--login_main-->
</body>
</html>

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で書かれているようで、@のような指定はできないのかもとも考えています。
>   アドバイスをいただければうれしいです。

Message#3 2017年11月25日(土)09時31分
From: かじじ
返事 変更
ジャッカルのメッセージ(#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で書かれているようで、@のような指定はできないのかもとも考えています。
  アドバイスをいただければうれしいです。

Message#2 2017年11月20日(月)13時15分
From: ジャッカル
返事 変更
CreateObjectでオブジェクトつくってないからじゃない?
dimで宣言したからといってobjIEにオブジェクトが作られるわけではない。


> 自動ログインのVBAを作成したいのですが、エラー(実行時エラー”91")になってしまいます。対応方法を教えてください。
> <tr>
> <td rowspan="2" width="50"><img src="../images/user.png">
> </td>
> <td width="100" class=""><font class="com_font_moji"> ログインID</font> </td>
> <td width="" class="">
> <input type="text" name="txtLoginId" value=""> <==== ここ
> </td>
> </tr>
>
> <tr>
> <td width="100" class=""><font class="com_font_moji"> パスワード</font> </td>
> <td width="" class="">
> <input type="password" name="txtPassWord"> <==== ここ
> </td>
> </tr>
>
> <tr>
> <td></td><td></td>
> <td align="right">
> <input type="image" src="../images/btn_s_login.gif" border="0" onclick="submit()">
> </td>
> </tr>
> -------
> Dim objIE As InternetExplorer
> Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0) <== エラー

Message#1 2017年11月20日(月)11時31分
From: かじじ
返事 変更
自動ログインのVBAを作成したいのですが、エラー(実行時エラー”91")になってしまいます。対応方法を教えてください。
<tr>
<td rowspan="2" width="50"><img src="../images/user.png">
</td>
<td width="100" class=""><font class="com_font_moji"> ログインID</font> </td>
<td width="" class="">
<input type="text" name="txtLoginId" value=""> <==== ここ
</td>
</tr>

<tr>
<td width="100" class=""><font class="com_font_moji"> パスワード</font> </td>
<td width="" class="">
<input type="password" name="txtPassWord"> <==== ここ
</td>
</tr>

<tr>
<td></td><td></td>
<td align="right">
<input type="image" src="../images/btn_s_login.gif" border="0" onclick="submit()">
</td>
</tr>
-------
Dim objIE As InternetExplorer
Set objInpTxt = objIE.document.getElementsByName("txtLoginId")(0) <== エラー

最新20件 最新50件 最新100件 最新200件 200件以前
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降

VBAのIE制御についてのQ&A掲示板

↑エクセルVBAのIE(InternetExplorer)操作で分からない事があればこちらの掲示板よりご質問ください^^

ExcelのVBA初心者入門

↑こちらはExcelのVBAをマスターできるよう初心者向けのエクセルVBA入門コンテンツになります^^

VBAのIE制御入門RSS

RSSフィードを登録すると最新記事を受け取ることができます。

VBAIE操作のスカイプレッスン

VBAでIE(InternetExplorer)制御の準備

エクセルVBAでIE制御の応用編

こちらでは、エクセルVBAで実際に作成したIE(InternetExplorer)制御ツールをまとめています。自動ログインや情報収集など具体的に解説しています。IE(InternetExplorer)制御をされる方は参考にしてください。

【ダウンロード】IE操作に便利なツール

こちらでは、これまでに紹介したIE(InternetExplorer)操作で便利な機能をツール化しています。無償でダウンロードできますので、目的に合わせたご利用ください。

スポンサー リンク

IEオブジェクトのメソッド・プロパティ

こちらでは、IE(InternetExplorer)オブジェクトのメソッド・プロパティをまとめています。

IE操作に利用されているVBA関数

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたVBA関数をまとめています。

スポンサー リンク

IE操作に利用されているステートメント

こちらでは、エクセルVBAのIE(InternetExplorer)操作で利用されたステートメントをまとめています。ExcelのVBAで基本的な部分になりますので、しっかり理解しましょう。

IE(InternetExplorer)制御のVBAコード

こちらでは、これまでに作成したIE(InternetExplorer)操作で役立つサブルーチンをまとめています。
全てをコピーする必要はありませんが、目的に合わせたサブルーチンをご利用ください。

ExcelのVBAで作成した役立つVBAコード

こちらでは、IE(InternetExplorer)制御の利用だけでなく、Excel全般で利用できるVBAコードです。エクセルVBAで役に立つものばかりですので、ご利用ください。

dmb.cgi Ver. 1.068
Copyright(C) 1997-2014, hidekik.com