- ベストアンサー
VBAでWebページのボタン操作ができない
- VBAを使ってWebページのボタン操作ができない問題について調査しています。
- 特定のボタンをクリックまたは送信するためにVBAを使用していますが、操作がうまくいきません。
- 解決策を見つけるために、ClickとSubmitの動作しない原因を探っています。
- koos_lucas
- お礼率52% (10/19)
- その他MS Office製品
- 回答数1
- ありがとう数1
- みんなの回答 （1）
- 専門家の回答
質問者が選んだベストアンサー
見るとこ間違ってますよ。 このページにはログインボタンが2個ある (^ ^;) <INPUT value=ログイン type=submit> となっているのは右上のボタン。 質問画像のボタンはこっち。 <input class="in" width="76" type="image" height="28" alt="ログイン" src="https://cmm001.goo.ne.jp/img/button/login_s.gif" name="Submit3"> で、それぞれ別の<form>にくっついてる。 右上のほうのはID/パスワード情報などのパラメータなしで、ログイン画面に行くだけ。
関連するQ&A
- ｖｂａ ｉｅ操作 ボタンを押したい（２）
https://ca.omc-card.co.jp/member/omcplus_login.html のサイトにログインしたいのですが、ログインボタンが押せません。 ソースは、 ********************************************************************************** <FORM action="../member/xt_mem_top_login.asp" method="post" name="form1"><input type="hidden" name="sid" value=""><input type="hidden" name="pw" value=""> ～～～省略～～～ <TABLE border="0" cellspacing="0" cellpadding="5" class="tab_button_bottom15"> <TR> <TD><A href="javascript:checkInput(document.form1);"><IMG src="../img/button/login.gif" alt="ログイン" width="160" height="35" border="0"></A></TD> </TR> </TABLE> </FORM> ********************************************************************************** です。 --------------------------------------------------------------------------------- Sub test() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://ca.omc-card.co.jp/member/omcplus_login.html" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.forms(0).Item("sid_input").Value = "×××" objIE.Document.forms(0).Item("pw_input").Value = "×××" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop 'objIE.Document.forms(1).submit 'エラーになる objIE.Document.all.Item("document.form1").Click 'エラーになる objIE.Document.forms(0).getElementsByTagName("input")(0).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("input")(1).Click 'エラーにならないけどクリックもされない。 objIE.Document.forms(0).getElementsByTagName("document.form1")(1).Click 'エラーになる objIE.Document.forms(1).getElementsByTagName("input")(1).Click 'エラーになる Set objIE = Nothing End Sub --------------------------------------------------------------------------------- テキストにＩＤとＰＷを入れるところまでは出来たのですが、 ログインボタンを押すことができません。 すいませんがご教授ご回答よろしくお願いしますｍ（ ）ｍ
- ベストアンサー
- Visual Basic
- VBAでFC２に自動ログインしたい
excel2010 VBAを使ってFC２のログインをしたいと思います。 色々と試してみましたが、ログインボタン押下を無視されているようです。 何か良い方法は、ありませんか。 'ログイン ie.Navigate "http://fc2.com/login.php?ref=blog" waitIE ie Sleep 1000 ie.document.getElementById("id").Value = Worksheets("ブログリスト").Range("C" & num).Value ie.document.getElementById("pass").Value = Worksheets("ブログリスト").Range("D" & num).Value 'ie.document.all.INPUT.Click 'クリックメソッドを実行 ie.document.forms(0).Submit 'ie.document.getElementsByTagName("image").Item(0).Click 'ie.document.getElementById("image").Click 'ie.documant.all.Item("image").Value.Click 'ie.Document.form_login.Submit waitIE ie Sleep 1000 上記のコメントアウトは実行してエラーになりました。 良い手立てがありましたら、ご教示ください。
- 締切済み
- Visual Basic
- VBAからWEB操作
わかりにくい質問でしたらすみません。 VBAからWEB操作ができることを最近知り、 VBAで操作できる範囲のことから JavaScriptの勉強を始めています。 JavaScriptを使って他社が作ったWEBページの テキストボックスに文字を入れたり オプションボタンをチェックしたり するように作っています。 VBAの記述では以下のように使っています。 For Each obj inobjie.document.getelementsbytagname("input") if obj.type="radio" and obj.value="2" then obj.checked=true endif next ホームページからもらった記述を自分の環境に合わせたものなのですが getelementsbytagnameに"input"を入れると typeが取れるという感覚がなくて Nameが取れたりもしますし、何をどこまで取れるのかわからないのです。 "option"を入れたら 何が取れているんだろう？など… "a"だと、<a><／a>の中身が取れているんだな…くらいまではなんとなくわかりました。 WEBページのソースを確認して、 テキストボックスの名前を調べたりしていますが Nameが設定されていなかったりもしますし そのときは、デバックでobjをウォッチしてひとつひとつ見たりしてるんですが こんな方法しかないのかなぁ？と思っています。 VBAを独学していたときは、勉強できるホームページがたくさんあったりしましたが VBAからのWEB操作については 独学ではこんな感じで進めるしかないのでしょうか 幅広い回答いただけるとうれしいです。 ※JavaScriptのほうにも、同じ趣旨の質問を書かせていただきました
- ベストアンサー
- その他（プログラミング・開発）
- VBAでIEで開いたダイアログのオブジェクトの操作
VBAでIE(Edge)上のWebページのエディットボックスやボタンを操作するには、 ie(COMオブジェクト)を取得して、 For Each obj In ie.document.getElementsByTagName("input") If obj.ID = "txtDenpyoNo" Then obj.Value = d_no Exit For End If Next For Each obj In ie.document.getElementsByTagName("input") If obj.ID = "btnSearch" Then obj.Click Exit For End If Next というような感じで、 エディットボックスに値を入れたり取得したり ボタンをクリックしたりする仕方は分かりましたが、 サイト上のボタンをクリックすると、 別のウインドウやダイアログが表示されることがあります。 このような場合、HTMLコードがないため、 上記の方法では記述することができません。 新しいウインドウやダイアログのタイトルから、 IDは取得することはできましたが、この取得したIDで、 ウインドウやダイアログをアクティブにするには、 どのように記述すればよいのでしょうか。 また、ウインドウやダイアログ上のオブジェクトの 指定の仕方がよく分からないのですが、 ウインドウやダイアログ上のオブジェクトを操作するには、 どのように記述をすればよいのでしょうか。 よろしくお願いします。(Windows10,IE,Edge)
- 締切済み
- HTML
- VBAでIEを操作submit処理について
ExcelVBAでIEを操作する処理について勉強中です。 formで、nameが定義されておらず、submitが複数(4つ)ある場合です。 HTMLが下記記載の場合で、submit”A”をクリックしたいです。 <form action="XXXX/admin.cgi" method=POST><td> <input type="submit" value="A"></td></form> <form action="XXXX/admin.cgi" method=POST><td> <input type="submit" value="B"></td></form> <form action="XXXX/admin.cgi" method=POST><td> <input type="submit" value="C"></td></form> <form action="XXXX/admin.cgi" method=POST><td> <input type="submit" value="D"></td></form> VBAでのsubmitの記述を下記で試してみたのですが、うまくクリックできません。 ObjIE.document.forms(0).Action = "XXXX/admin.cgi" ObjIE.document.forms(0).submit どのように変えたらよいのでしょうか。。。 ご教授お願い致します。
- ベストアンサー
- インターネットビジネス
- VBAでIEの操作をするうえで
VBAでIEの操作中、webページからのメッセージが表示されるのですが このメッセージをOKする操作方法を教えてください。 ネットでいろいろと調べましたが、うまくできません。 操作に関係あると思われるソースは下記です。 <td colspan=2 class=xl888205><input name='WriteSheet=KanRegist2;Set_R7C1=1;Set_R9C26=-1;' type='SUBMIT' style='width:100%;font-Weight:bold;' OnClick="if(confirm('作業の登録を行います。よろしいですか？')!=true){return false;} if(DtmErrCheck(2)!=true){return false;}" value='登録'></td> 下記マクロで登録ボタンを押すと 作業の登録を行います。よろしいですか？ のメッセージが表示されます。これをクリックしたいです。 For Each Obj In objIE.document.all.tags("INPUT") '登録 If Obj.Value = "登録" Then '.value値(ボタンの名称) Obj.Click '.Click Exit For 'ループを抜ける End If Next よろしくお願いします。
- 締切済み
- Visual Basic
- VBAでサイトのsubmitボタンをクリックしたい
とあるサイトに自動ログインするｖｂａを作っています。 （三流君を参考にしています） Sub ログイン() Set ObjIE = CreateObject("InternetExplorer.application") ObjIE.Visible = True '************************************************** ObjIE.navigate "https://www" Do While ObjIE.Busy = True '表示させるまで待つ DoEvents Loop Application.Wait (Now + TimeValue("00:00:03")) ObjIE.Document.all.UserId.Value = "ID" ObjIE.Document.all.submit_l貸出照会.Click ’ここでエラーになる End Sub 上記のようなコードを書いているのですが 該当サイトのソースを読み取り、 「INPUT TYPE="text" NAME="userid" VALUE=""」 の部分は ObjIE.Document.all.UserId.Value = "ID" で出来たのですが 「<INPUT TYPE="submit" VALUE="貸出照会">」 の部分をクリックしてログインしたいのですが ObjIE.Document.all.貸出照会.Click だとエラーになってしまいます。 ObjIE.Document.Forms(0).item("貸出照会").Click もダメでした。 ご教授よろしくお願い致します。 （エクセル2003）
- ベストアンサー
- Visual Basic
- ＷＥＢページのラジオボタンを設定するには？？
ＷｉｎＸＰ、ＶＢ．ＮＥＴ、ＩＥでプログラムを作っています。 <input type=radio name=.a value=p checked> <input type=radio name=.b value=m> <input type=radio name=.c value=g> などとなっているところのラジオボタンを設定するにはどうしたらよいでしょうか？ IE.document.Forms(0).Elements(".b").Checked = True IE.document.Forms(0).Elements(".b").value("m") = True など試してみたのですがダメでした。 正しい方法をご教示頂きたくお願い致します。
- ベストアンサー
- Visual Basic
- VBAでブラウザ上のボタンがクリックできないので困っています。
VBAでブラウザ上のボタンがクリックできないので困っています。 ソースは、 『 <input type="submit" value="全員に公開" onClick="sendClickLog(this,'[main]全員に公開ボタン');changeSave('saveentry','/ucs/entry/srventryinsertend1.do', '0');return false;" /> 』 この部分をクリックしたいです。 NameやIdがないのでobjIE.documentなどで設定できるのでしょうか？ 教えてください。おねがいいたします。
- ベストアンサー
- Visual Basic
- VBAからIE操作 .document.forms(0).Submit でフォーム送信処理
VBAからIE操作 .document.forms(0).Submit でフォーム送信処理 フォーム内にある登録ボタンを「objIE.Document.forms(0).Submit」で動作してみると、 ボタンは押されているみたいなのですが、同じページが開かれるだけで、登録されません。 なぜでしょうか？宜しくお願い致します。 以下はボタンのソースです。(他に必要なソースがあったら言ってください) <div><button class="button" onclick="var f=this.form;f.action='/business/entry_menu/entrance/create';;f.submit();this.disabled=true;">登録</button>
- ベストアンサー
- Visual Basic
お礼
何とも初歩的なミス、申し訳ございませんでした。m(_ _)m