VBA IE操作、指定したボタンのクリック
未読分:3件
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
Message#3 2015年1月22日(木)23時04分 From: VBAのIE操作 | 返事 削除 変更 |
ありがとうございます。 一応ですが、総当たり作戦で For Each x In objIE.document.Forms(0).All If x.Title = "ログイン" Then x.Click End If Next で目的は達成できました。 もう少し、スマートな方法をご存じでしたら ご指導お願いします。 |
Message#2 2015年1月22日(木)23時00分 From: クロワッサン | 返事 削除 変更 |
VBAのIE操作のメッセージ(#1)への返事 > 具体的には、ヤマト運輸のビジネスメンバーズのHPです。 > https://bmypage.kuronekoyamato.co.jp/bmypage/servlet/jp.co.kuronekoyamato.wur.hmp.servlet.user.HMPLGI0010JspServlet > > 以下のコードで、それぞれのボックス(IDやパスワードなど)を入れることができました。 <dd class="login"><a href="javascript:void(0);" onClick="javascript:func_request_Link('LOGIN'); return false;"><img src="https://bmypage.kuronekoyamato.co.jp/bmypage/script/images/header_contents_login_btn.gif" alt="ログイン" title="ログイン" class="imgover" /></a></dd> ちゃんとtitle="ログイン"と名前がついていますよ |
Message#1 2015年1月22日(木)22時56分 From: VBAのIE操作 | 返事 削除 変更 |
具体的には、ヤマト運輸のビジネスメンバーズのHPです。 https://bmypage.kuronekoyamato.co.jp/bmypage/servlet/jp.co.kuronekoyamato.wur.hmp.servlet.user.HMPLGI0010JspServlet 以下のコードで、それぞれのボックス(IDやパスワードなど)を入れることができました。 D3〜D6セルに IDなどログインに必要な情報をいれてあります。 しかし、その下部分にある ログイン のボタンをクリックする方法が見つからず困っています。 Sub ボタン1_Click() Dim objIE As Object Set objIE = CreateObject("InternetExplorer.Application") objIE.Navigate Range("D3").Value objIE.Visible = True Do Until objIE.Busy = False DoEvents Loop objIE.Document.frm.CSTMR_CD.Value = Left(Range("D4").Value, 12) objIE.Document.frm.CSTMR_CLS_CD.Value = Right(Range("D4").Value, 3) objIE.Document.frm.LOGIN_USER_ID.Value = Range("D5").Value objIE.Document.frm.CSTMR_PSWD.Value = Range("D6").Value objIE.Document.frm.???.Click End Sub ログインのボタンに特に名前の指定がないようなのですが、この場合に ボタンをクリックする方法をご存知の方、ご指導ください。 |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降