IE上のhref = "Javascript: のクリック

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

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

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

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

Message#4 2019年12月12日(木)08時41分
From: vbavbavba

返事削除変更

VBEのウォッチでオブジェクトつかめているか、要素があるか確認したらどうですか？

> vbavbavbaのメッセージ(#2)への返事
>
> 何も変わらず、変化なしです。
>
>
> > 表示までできているんなら、クリックでいかないですか？
> > htmlDoc.getElementById("dlRepeat_ctl00_tpItem_dgTable_ctl15_b20191201").Click
> >
> > > お世話になります。
> > > 以下をクリックしたいのですが…
> > >
> > > <A onmouseup=mouseUp(event); onclick="return false;" tabIndex=1 onkeypress=keyPress(event); onmousedown="mouseDown(event); return false;" onfocus=lbF(this) onblur=lbB(this) id=dlRepeat_ctl00_tpItem_dgTable_ctl15_b20191201 style="FONT-SIZE: 14pt; FONT-WEIGHT: bold" href="javascript:__doPostBack('dlRepeat$ctl00$tpItem$dgTable$ctl15$b20191201','')">抽選</A>
> > >
> > > 上記は
> > > Dim Chusens As Variant
> > > Set Chusens = htmlDoc.getElementById("dlRepeat_ctl00_tpItem_dgTable_ctl15_b20191201")
> > > Debug.Print Chusens.outerHTML
> > >
> > > でイミディエイトウインドウに表示まで、できています。
> > >
> > > ちなみにhref = のJavascriptは
> > >
> > > <script type="text/javascript">
> > > //<![CDATA[
> > > var theForm = document.forms['Form1'];
> > > if (!theForm) {
> > > theForm = document.Form1;
> > > }
> > > function __doPostBack(eventTarget, eventArgument) {
> > > if (!theForm.onsubmit || (theForm.onsubmit() != false)) {
> > > theForm.__EVENTTARGET.value = eventTarget;
> > > theForm.__EVENTARGUMENT.value = eventArgument;
> > > theForm.submit();
> > > }
> > > }
> > > //]]>
> > > </script>
> > >
> > > よろしくお願いします。