VBAでIE操作：ボタン押下でエラーが発生する理由について

2023/08/16 15:35

このQ&Aのポイント

VBAでInternet Explorerの操作を行い、特定のボタンを押下するコードを組んでいますが、ボタンを押すことができません。コード中の`myObj.Click`は実行されているようですが、なぜボタンが押せないのか理由がわかりません。
エラーは発生しておらず、コードが正常に実行されているように見えますが、なぜボタンが押せないのか原因が不明です。
https://www.jaccs.co.jp/icmclub/icm_login.htmlのログインボタンをVBAで押下しようとしていますが、うまくいきません。問題の特定と解決策についてのアドバイスをいただきたいです。

ベストアンサー

ｖｂａ　ｉｅ操作　ボタンを押したい

2012/12/05 23:45

こんばんは。度々すいません。またまたIE操作で詰んでしまいました。以前、http://hiroba.chintai.net/qa7798169.htmlで質問してご回答いただいたのですが違うサイトにも応用しようとしたところ、うまくいきませんでした。 https://www.jaccs.co.jp/icmclub/icm_login.htmlのログインボタンを押下したいのですが Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.navigate "https://www.jaccs.co.jp/icmclub/icm_login.html" objIE.Visible = True Do While objIE.Busy = True Or objIE.readyState <> 4 DoEvents Loop For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then Debug.Print myObj.alt myObj.Click Exit For End If End If Next Set objIE = Nothing End Sub をするとエラーにもならないけどボタンも押せません。でもmyObj.Clickは通過しているようです。なぜボタンを押せないのでしょうか？ご教授よろしくお願いします。

zxc5463czx
お礼率100% (31/31)

オフィス系ソフト
回答数3
ありがとう数3

みんなの回答 （3）
専門家の回答

質問者が選んだベストアンサー

ベストアンサー

ki-aaa
ベストアンサー率49% (105/213)

2012/12/06 23:43 回答No.3

こんにちわ DOUGLAS_さんの回答にもあるとおり IEのポップアップブロックの設定を変えたら、どうなります。私のところは、IE8ですけど、ポップアップブロックを無効にしたらボタンを押せました。設定は、ツール→インターネットオプション→プライバシーのところで変更できます。

質問者

お礼 2012/12/08 20:42

ポップアップブロックを無効にしてみたら、できました！ありがとうございました！！！

その他の回答 (2)

DOUGLAS_
ベストアンサー率74% (397/534)

2012/12/06 23:30 回答No.2

#1 DOUGLAS_ です。＞以外の方法でログインボタンを押下する方法はありますでしょうか？　普通は、 objIE.Document.forms(0).submit でイケます。 For ～～ Next の９行を objIE.Document.forms(0).submit に置き換えてみてください。　ポップアップの警告が出たら、「常にＯＫ」とすればよいかと存じます。

質問者

お礼 2012/12/08 20:38

DOUGLAS_様いつもありがとうございます。実は、 objIE.Document.forms(0).submit にすると、 https://www.jaccs.co.jp/Service?_TRANID=JXIF030010_00M のページが開き、ログインエラーになってしまうのです。やはりこれもwin7が原因でしょうかね？

DOUGLAS_
ベストアンサー率74% (397/534)

2012/12/06 09:42 回答No.1

　お示しのコードをそのまま実行すると、 https://www.jaccs.co.jp/icmclub/icm_login.html のウィンドウとは別に、 https://www.jaccs.co.jp/Service?_TRANID=JXIF030010_00M のウィンドウが開いて、「お客様のIDが入力されていません。」と表示されました。　ということで、普通にボタンを押せているようですが。。。　VBAによる IEオブジェクトの操作の場合は、OS が Windows7 の場合には、ちゃんと動いてくれないこともあります。　このようなご質問の場合は、お使いのパソコンの OS や IE・エクセルのバージョンなどを書いておかれた方がよいかと存じます。　なお、OS が Windows7 の場合は、私もお手上げです（原因が分からなくて、私自身も困っております）。

質問者

お礼 2012/12/06 21:35

さっそくのご回答ありがとうございます。失礼しました。OSはwin7で、オフィスは２００７です。 win7なのが原因のようですね。試していただきありがとうございます。ＯＳを変える事を検討します。ちなみに、 For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then Debug.Print myObj.alt myObj.Click Exit For End If End If Next 以外の方法でログインボタンを押下する方法はありますでしょうか？再度ご回答いただければ助かります。

関連するQ&A

vbaでnanacoにログイン（ie操作）
私は「緑のパスワードがなくnanacoをお持ちの方」です。カード記載の番号にはvbaで値を入れることはできるのですが、 nanaco番号に値を入れることとログインボタンを押すことができません。 ********************************************** Sub nanaco() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://www.nanaco-net.jp/pc/emServlet" Do While objIE.Busy = True DoEvents Loop Do While objIE.document.readyState <> "complete" DoEvents Loop objIE.document.all("XCID").Value = "12345" objIE.document.all("SECURITY_CD").Value = "Password" For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then myObj.Click Exit For End If End If Next Set objIE = Nothing End Sub ********************************************** これだとまずall("XCID").Value でエラーになります。ソースでは、 <input name="XCID" tabIndex="1" class="txtBoxLogin" accessKey="1" type="text" maxLength="16" value=""/> となっておりますが、同じコードが二つあるからエラーになるのでしょうか？ all("SECURITY_CD").Value は問題なくできます。ソースにも、SECURITY_CDは一つしかないです。次にログインボタンも二つあるのですが、 For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then myObj.Click Exit For End If End If Next このコードを実行すると、多分上の方のログインボタンが押されてるようです。なので、 Dim 二つ目 As Boolean For Each myObj In objIE.document.forms(0).all If TypeName(myObj) = "HTMLInputElement" Then If myObj.alt = "ログイン" Then If 二つ目 = True Then myObj.Click Exit For End If 二つ目 = True End If End If Next に変更してみたのですが、どうやら If myObj.alt = "ログイン" Then になるのは、1回しかないようです。うーん、うまくできません。ご教授よろしくお願いします。
- ベストアンサー
- Visual Basic
ｖｂａ　ｉｅ操作　電気家計簿ログインできない
いつもお世話になっております。何度も質問して申し訳ございません。またまた教えてください。電気家計簿（https://www.kakeibo.tepco.co.jp/dk/aut/login/）のログインボタンをＶＢＡで押したいのですがうまくできません。コードは下記の通りです。 ***************************************************************** Sub test() Dim objIE As InternetExplorer Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.Navigate "https://www.kakeibo.tepco.co.jp/dk/aut/login/" Do While objIE.Busy = True Or objIE.ReadyState <> 4 DoEvents Loop objIE.Document.all("id").Value = "test" objIE.Document.all("password").Value = "tset" 'objIE.Document.Forms(0).submit 'これだと更新されちゃうっぽい 'objIE.Document.Forms(0).Item(2).Click 'Item(0)とItem(1)はエラーにならないけど何も起こらない。Item(2)にするとエラー 'objIE.Document.all.submit.Click 'エラー 'エラーにならないけど何も起こらない 'For i = 0 To objIE.Document.Links.Length - 1 ' If objIE.Document.Links(i).innerHTML Like "*alt=ログイン*" Then ' objIE.Document.Links(i).Click ' Exit For ' End If 'Next i 'エラーにならないけど何も起こらない 'For Each myObj In objIE.Document.forms(0).all ' If TypeName(myObj) = "HTMLInputElement" Then ' If myObj.alt = "ログイン" Then ' myObj.Click ' Exit For ' End If ' End If 'Next Set objIE = Nothing End Sub ***************************************************************** 自分なりにいくつか試してみたのですが、うまくいきませんでした。ご教授よろしくお願いします。
- ベストアンサー
- オフィス系ソフト
vba IE操作で　こういう事ってできない？
vba IE操作で　こういう事ってできないのでしょうか？ Dim objIE As InternetExplorer Sub test() Dim myObj As Object Dim myStr As String Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://employment.en-japan.com/search/search_list.cfm?area=23&startRow=1&m=1&job=100000" objIE.Visible = True Call iewait For Each myObj In objIE.Document.all.tags("a") If myObj.outerText = "詳細を見る" Then myObj.Click Call iewait Debug.Print objIE.LocationName objIE.GoBack Call iewait End If Next objIE.Quit Set objIE = Nothing End Sub Sub iewait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.ReadyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub このコードを実行して、１ページ目の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し１ページ目に戻り、次の「詳細を見る」をクリックして、２ページ目のタイトルを抜き出し・・・と言う処理を繰り返したいのですが、１回目のmyObj.Clickを通った後（Call iewaitの後かも？）に、 myObjの値が変数なしになってしまい、２回目のIf myObj.outerText = "詳細を見る" Thenで書き込みできません。(Error 70) になります。１ページ目のリンクをクリックして、戻ってまた１ページ目のリンクをクリックして・・・と言う処理をしたい場合どうすればよろしいでしょうか？
- ベストアンサー
- オフィス系ソフト
食べログに価格ドットコムのIDでログインしたい
食べログにvbaを使ってログインしたいのですが、どうしてもログインボタンを押せません。クリックできない状態です。 Enabledプロパティと同じような状態です。 Dim objIE As InternetExplorer Sub Sample1() Dim SiteName As String Dim myObj As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Visible = True objIE.navigate "https://ssl.tabelog.com/account/kakakuid_entry/" With objIE.document .all("mail_address").Value = "test" .all("password").Value = "test" End With For Each myObj In objIE.document.all.tags("input") If myObj.alt = "ログイン" Then myObj.Click Exit For End If Next Set objIE = Nothing End Sub こうしても、なぜかログインボタンが選択状態になりません。手動でIDとPWを入力すると、ボタンが青くなり、押せるようになりますが VBAで情報を入力すると、選択不可状態のままです。これが原因で、vbaでログインボタンがクリックできないのでしょうか？
- ベストアンサー
- オフィス系ソフト
VBAでIE操作をするサンプル
VBAでIE操作をするサンプルをネットでいくつか見ているのですが Sub Sample1() Dim objShell As Object Dim objIE As New InternetExplorer Set objShell = CreateObject("Shell.Application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing Set objShell = Nothing End Sub Sub Sample2() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.yahoo.co.jp/" Set objIE = Nothing End Sub ではどちらを使った方がいいのでしょうか？圧倒的にSample2の方がネットでは多いのですが Sample1のやり方もあることを知りました。 Sample1の方法でブラウザを開くメリットはあるのでしょうか？
- ベストアンサー
- Visual Basic
vba　ie操作　検索後のタイトルが取得できない
vba　ie操作ヤフーファイナンス　検索後のタイトルが取得できないｗｉｎ８、エクセル２０１０です。ヤフーファイナンスで会社名を検索して、その後のコードを取得したいのですがその場合、タイトルに企業コードがあるので、その文字を取得しようとしたら、検索前のページが取得されてしまいます。 ------------------------------------------------------------ Dim objIE As New InternetExplorer Sub test() Dim str企業名 As String Dim myObj As Object str企業名 = "ホテルオークラ" Set objIE = CreateObject("InternetExplorer.application") With objIE .navigate "http://finance.yahoo.co.jp/" .Top = 0 .Left = 0 .Width = 1000 .Visible = True End With Call IE_wait For Each myObj In objIE.document.all.tags("input") If myObj.ID = "searchText" Then myObj.Value = str企業名 Exit For End If Next For Each myObj In objIE.document.all.tags("input") If myObj.ID = "searchButton" Then myObj.Click Call IE_wait Exit For End If Next Debug.Print objIE.document.Title Set objIE = Nothing End Sub ----------------------- Sub IE_wait() Const READYSTATE_COMPLETE As Long = 4 Do Until objIE.readyState = READYSTATE_COMPLETE Loop Do While objIE.Busy = True DoEvents Loop End Sub ------------------------------------------------------------ というコードなのですが検索語の２ページ目は「(株)京都ホテル【9723】：株式-株価 - Yahoo!ファイナンス」というタイトルなのに１ページ目と同じ「Yahoo!ファイナンス - 株価やニュース、企業情報などを配信する投資・マネーの総合サイト」が返ります。なぜ次のページのタイトルが取得できないのでしょうか？画面上ＩＥブラウザには２ページ目が表示されています。
- 締切済み
- Visual Basic
VBAからIEの操作
グーグルをIEで開いてVBA（語句）を検索して見終わったら IEを閉じる作業をしたいのですが、検索窓にVBA（語句）を入力するところでエラーとなります。初心者ですが、なんとか勉強したいのでよろしくお願いいたします。 Sub ie_test_Navigate() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.application") objIE.Visible = True objIE.Navigate "http://www.google.co.jp/" IE.document.all.q.Value = "VBA" IE.document.all.btnG.Click If MsgBox("IEを閉じますか？", vbYesNo, "終了確認") = vbYes Then objIE.Quit End If Set objIE = Nothing End Sub
- 締切済み
- Visual Basic
objIE.Document.all.tags("
Sub test1() Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate "http://oshiete.goo.ne.jp/" objIE.Visible = True Call IE_wait(objIE) objIE.Document.forms("center_searchform").elements("MT").Value = "教えて" For Each myObj In objIE.Document.all.tags("input") If myObj.alt = "検索する" Then objIE.Document.all.tags("input").alt("検索する").Click　‘ココでエラー End If Next Set objIE = Nothing End Sub これを実行するとクリックできないのですがなぜでしょうか？オブジェクトは、このプロパティまたはメソッドをサポートしていません。(Error 438) が表示されます。他の方法で解決する事は出来ますが、 If myObj.alt = "検索する" Then が出来てるからこのままうまく行きそうな気がするのですが？理由を教えてください。ご回答よろしくお願いします。
- ベストアンサー
- その他（プログラミング・開発）
二つのタブを開き、二つ目のタブに対して、操作し
vbaのie操作で一つ目はタブはグーグルメール二つ目のタブはドコモメールを開きたいのですが、ドコモメールはPWをVBAで入れないと進めないので入れたいのですが Sub test() Dim myObj As Object Dim objIE As InternetExplorer Set objIE = CreateObject("InternetExplorer.Application") With objIE .Visible = True .Navigate "https://mail.google.com/mail/u/0/?pli=1#inbox"　’グーグル End With objIE.Navigate2 "https://mail.smt.docomo.ne.jp/mail/#fid=10000000&page=1", 2048　’ドコモ For Each myObj In objIE.document.all.tags("input") If myObj.ID = "persistent" Then myObj.Value = "PW" Exit For End If Next Set objIE = Nothing End Sub だと、 For Each myObj In objIE.document.all.tags("input") は、グーグルメールを参照しています。 LocationURLを見てみたら、 "https://mail.google.com/mail/u/0/#inbox" になっていました。このように、二つのタブを開き、二つ目のタブに対して、操作したい場合どうすればいいでしょうか？
- ベストアンサー
- Excel（エクセル）
ｖｂａ　ｉｅ操作　ボタンを押したい（２）
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でIE操作：ボタン押下でエラーが発生する理由について

ｖｂａ　ｉｅ操作　ボタンを押したい