Javascriptのポップアップ

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

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

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

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

Message#6 2016年9月23日(金)02時35分
From: ジャッカル

返事削除変更

それが単純に一番いいかもしれない。
ただ、sendkeys使うとnumlockが外れるからそこだけ注意ですね。

> ありがとうございます。試してみましたが、javascriptの知識に乏しいこともありうまく作動しません。
> ページの条件によって動作が安定しないのですが、TabとEnterをSendKeysで送ることでなんとか対応したいと思います。
>
> > いや、セレクトボックスに対してフォーカスしてってことですね。
> > 選択されたかのチェックでイベントが発生しているかもしれない。
> > あとは、できるかどうかはわからないけど、セレクトボックスに設定されているjavascriptを処理させてみることかな？
> >
> > http://www.vba-ie.net/ie/javascript.html
> >
> > ココにのっているような感じで。
> >
> > > アドバイスをありがとうございます。
> > >
> > > ポップアップにフォーカスするということなのかと思いますが、以下のコードでやはり結果は同じで実行はされますがポップアップは出ませんでした。
> > >
> > > objTag.Focus
> > > objTag.FireEvent ("OnChange")
> > > 又は、
> > > objTag.FireEvent ("OnChange")
> > > objTag.Focus
> > >
> > > objTag.Selectもうまくいきませんでした。
> > >
> > > このようなやり方でよいでしょうか？または別の解説策はないでしょうか？
> > >
> > > > saveOutputFormの処理がどうなっているかによるかもね。
> > > > たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから
> > > >
> > > > objTag.forcus
> > > > か
> > > > objTag.select
> > > >
> > > > なんかをかますとうまくいくかもしれない。
> > > >
> > > > > IE制御初心者です。
> > > > >
> > > > > セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
> > > > >
> > > > > 以下が参考HTMLソースです。
> > > > > <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
> > > > >
> > > > >
> > > > > 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
> > > > >
> > > > > Dim objIE As InternetExplorer
> > > > > Dim objTag As HTMLSelectElement
> > > > >
> > > > > For Each objTag In objIE.document.getElementsByName("saveToMenu")
> > > > > objTag.selectedIndex = 1
> > > > > objTag.FireEvent ("OnChange")
> > > > > objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> > > > > Exit For
> > > > > Next
> > > > >
> > > > > Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

Message#5 2016年9月22日(木)13時57分
From: B-IP

返事削除変更

ありがとうございます。試してみましたが、javascriptの知識に乏しいこともありうまく作動しません。
ページの条件によって動作が安定しないのですが、TabとEnterをSendKeysで送ることでなんとか対応したいと思います。

> いや、セレクトボックスに対してフォーカスしてってことですね。
> 選択されたかのチェックでイベントが発生しているかもしれない。
> あとは、できるかどうかはわからないけど、セレクトボックスに設定されているjavascriptを処理させてみることかな？
>
> http://www.vba-ie.net/ie/javascript.html
>
> ココにのっているような感じで。
>
> > アドバイスをありがとうございます。
> >
> > ポップアップにフォーカスするということなのかと思いますが、以下のコードでやはり結果は同じで実行はされますがポップアップは出ませんでした。
> >
> > objTag.Focus
> > objTag.FireEvent ("OnChange")
> > 又は、
> > objTag.FireEvent ("OnChange")
> > objTag.Focus
> >
> > objTag.Selectもうまくいきませんでした。
> >
> > このようなやり方でよいでしょうか？または別の解説策はないでしょうか？
> >
> > > saveOutputFormの処理がどうなっているかによるかもね。
> > > たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから
> > >
> > > objTag.forcus
> > > か
> > > objTag.select
> > >
> > > なんかをかますとうまくいくかもしれない。
> > >
> > > > IE制御初心者です。
> > > >
> > > > セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
> > > >
> > > > 以下が参考HTMLソースです。
> > > > <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
> > > >
> > > >
> > > > 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
> > > >
> > > > Dim objIE As InternetExplorer
> > > > Dim objTag As HTMLSelectElement
> > > >
> > > > For Each objTag In objIE.document.getElementsByName("saveToMenu")
> > > > objTag.selectedIndex = 1
> > > > objTag.FireEvent ("OnChange")
> > > > objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> > > > Exit For
> > > > Next
> > > >
> > > > Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

Message#4 2016年9月21日(水)02時57分
From: ジャッカル

返事削除変更

いや、セレクトボックスに対してフォーカスしてってことですね。
選択されたかのチェックでイベントが発生しているかもしれない。
あとは、できるかどうかはわからないけど、セレクトボックスに設定されているjavascriptを処理させてみることかな？

http://www.vba-ie.net/ie/javascript.html

ココにのっているような感じで。

> アドバイスをありがとうございます。
>
> ポップアップにフォーカスするということなのかと思いますが、以下のコードでやはり結果は同じで実行はされますがポップアップは出ませんでした。
>
> objTag.Focus
> objTag.FireEvent ("OnChange")
> 又は、
> objTag.FireEvent ("OnChange")
> objTag.Focus
>
> objTag.Selectもうまくいきませんでした。
>
> このようなやり方でよいでしょうか？または別の解説策はないでしょうか？
>
> > saveOutputFormの処理がどうなっているかによるかもね。
> > たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから
> >
> > objTag.forcus
> > か
> > objTag.select
> >
> > なんかをかますとうまくいくかもしれない。
> >
> > > IE制御初心者です。
> > >
> > > セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
> > >
> > > 以下が参考HTMLソースです。
> > > <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
> > >
> > >
> > > 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
> > >
> > > Dim objIE As InternetExplorer
> > > Dim objTag As HTMLSelectElement
> > >
> > > For Each objTag In objIE.document.getElementsByName("saveToMenu")
> > > objTag.selectedIndex = 1
> > > objTag.FireEvent ("OnChange")
> > > objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> > > Exit For
> > > Next
> > >
> > > Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

Message#3 2016年9月20日(火)23時17分
From: B-IP

返事削除変更

アドバイスをありがとうございます。

ポップアップにフォーカスするということなのかと思いますが、以下のコードでやはり結果は同じで実行はされますがポップアップは出ませんでした。

objTag.Focus
objTag.FireEvent ("OnChange")
又は、
objTag.FireEvent ("OnChange")
objTag.Focus

objTag.Selectもうまくいきませんでした。

このようなやり方でよいでしょうか？または別の解説策はないでしょうか？

> saveOutputFormの処理がどうなっているかによるかもね。
> たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから
>
> objTag.forcus
> か
> objTag.select
>
> なんかをかますとうまくいくかもしれない。
>
> > IE制御初心者です。
> >
> > セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
> >
> > 以下が参考HTMLソースです。
> > <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
> >
> >
> > 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
> >
> > Dim objIE As InternetExplorer
> > Dim objTag As HTMLSelectElement
> >
> > For Each objTag In objIE.document.getElementsByName("saveToMenu")
> > objTag.selectedIndex = 1
> > objTag.FireEvent ("OnChange")
> > objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> > Exit For
> > Next
> >
> > Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

Message#2 2016年9月20日(火)01時41分
From: ジャッカル

返事削除変更

saveOutputFormの処理がどうなっているかによるかもね。
たぶん、フォーカスしたかどうかがトリガーになっている可能性もあるから

objTag.forcus
か
objTag.select

なんかをかますとうまくいくかもしれない。

> IE制御初心者です。
>
> セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。
>
> 以下が参考HTMLソースです。
> <script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>
>
>
> 以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。
>
> Dim objIE As InternetExplorer
> Dim objTag As HTMLSelectElement
>
> For Each objTag In objIE.document.getElementsByName("saveToMenu")
> objTag.selectedIndex = 1
> objTag.FireEvent ("OnChange")
> objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
> Exit For
> Next
>
> Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。

Message#1 2016年9月19日(月)14時40分
From: B-IP

返事削除変更

IE制御初心者です。

セレクトボックスを選択すると、ポップアップ画面が出るIEのサイトでどうやらJavascriptが使われているようで、セレクトボックスの選択はできるのですが、ポップアップが出るようになりません。

以下が参考HTMLソースです。
<script type="text/template" id="quickOutputTemplate"> <input type="hidden" value="xxx" name="selectedQOFormat" /> <select class="saveToMenu" id="saveToMenu" name="saveToMenu" onchange="saveOutputForm('UA_output_input_form'); return false;"> <option selected="selected" value="xxx"><a href="#" class="quickOutputXXX">aaに保存</a></option> 以下Selectオプションが続く</select> </script>

以下のようにコードを書いてみましたが、FireEvent（Onchange）もObjIE.navigateもエラーなく実行されるのですが、セレクトボックスの選択だけされポップアップがでません。

Dim objIE As InternetExplorer
Dim objTag As HTMLSelectElement

For Each objTag In objIE.document.getElementsByName("saveToMenu")
objTag.selectedIndex = 1
objTag.FireEvent ("OnChange")
objIE.navigate "JavaScript:saveOutputForm('UA_output_input_form'); return false;"
Exit For
Next

Javascriptのポップアップを出すために別の操作が必要でしょうか？解決方法をご教示いただければ幸いです。