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>
> > >
> > > よろしくお願いします。

Message#3 2019年12月5日(木)19時16分
From: oldmac

返事削除変更

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>
> >
> > よろしくお願いします。

Message#2 2019年11月29日(金)16時42分
From: vbavbavba

返事削除変更

表示までできているんなら、クリックでいかないですか？
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>
>
> よろしくお願いします。

Message#1 2019年11月3日(日)20時45分
From: oldmac

返事削除変更

お世話になります。
以下をクリックしたいのですが…

<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>

よろしくお願いします。