WEBページダイアログの操作について

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

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

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

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

Message#5 2017年7月19日(水)02時04分
From: ジャッカル

返事削除変更

なによりです！！！！！

> 齋藤拓也のメッセージ(#3)への返事
>
> やりたかったことがなんとかできました！
> 分かりずらいと思いますが一部を抜粋すると下記のような感じです。
> ジャッカルさんには以前もご意見いただき感謝の言葉もありません。本当にありがとうございました。
>
> 私もいつか聞く側から答えられる側になりたいものです・・・
>
> hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "OSメモ登録画面 -- Web ページダイアログ")
>
> If hwnd <> 0 Then
> SetForegroundWindow (hWnd1)
> Application.Wait Now + TimeValue("00:00:01")
> SetCursorPos 700, 330
> mouse_event 2
> mouse_event 4
> Application.Wait Now + TimeValue("00:00:01")
> SendKeys "^v", True
> Application.Wait Now + TimeValue("00:00:01")
> SendKeys "{TAB}", True
> Application.Wait Now + TimeValue("00:00:01")
> SendKeys "{ENTER}", True
> End If
>
> > sendkeysは思いつかなかったなあ・・・
> > マウスイベントで対象のテキストボックスにフォーカス当ててsendkeysで文字を入力してEnter。で、やってみます！
> >
> > ジャッカルのメッセージ(#2)への返事
> >
> > > sendkeysで直接入力させてEnterで登録とか
> > >
> > > > 表題の件についてお力をお借りしたいです。
> > > >
> > > > ■実現したいこと
> > > > １．IEで特定のウェブページにアクセスする
> > > > ２．テキストボックスに値を入力する
> > > > ３．検索ボタンをクリックする
> > > > ４．特定のボタンをクリックする
> > > > ５．特定のボタンをクリックするとWEBページダイアログが出現する
> > > > 　～ここまで出来ています～
> > > > ６．WEBページダイアログ内のテキストボックスに値を入力する
> > > > ７．WEBページダイアログ内の「登録」ボタンをクリックする
> > > >
> > > > hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
> > > > 上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
> > > > WEBページダイアログという扱いになっていますがHTMLは存在しています。
> > > > このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？
> > > >
> > > > 以上です。お力添えよろしくお願いいたします。

Message#4 2017年7月15日(土)11時17分
From: 齋藤拓也

返事削除変更

齋藤拓也のメッセージ(#3)への返事

やりたかったことがなんとかできました！
分かりずらいと思いますが一部を抜粋すると下記のような感じです。
ジャッカルさんには以前もご意見いただき感謝の言葉もありません。本当にありがとうございました。

私もいつか聞く側から答えられる側になりたいものです・・・

hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "OSメモ登録画面 -- Web ページダイアログ")

If hwnd <> 0 Then
SetForegroundWindow (hWnd1)
Application.Wait Now + TimeValue("00:00:01")
SetCursorPos 700, 330
mouse_event 2
mouse_event 4
Application.Wait Now + TimeValue("00:00:01")
SendKeys "^v", True
Application.Wait Now + TimeValue("00:00:01")
SendKeys "{TAB}", True
Application.Wait Now + TimeValue("00:00:01")
SendKeys "{ENTER}", True
End If

> sendkeysは思いつかなかったなあ・・・
> マウスイベントで対象のテキストボックスにフォーカス当ててsendkeysで文字を入力してEnter。で、やってみます！
>
> ジャッカルのメッセージ(#2)への返事
>
> > sendkeysで直接入力させてEnterで登録とか
> >
> > > 表題の件についてお力をお借りしたいです。
> > >
> > > ■実現したいこと
> > > １．IEで特定のウェブページにアクセスする
> > > ２．テキストボックスに値を入力する
> > > ３．検索ボタンをクリックする
> > > ４．特定のボタンをクリックする
> > > ５．特定のボタンをクリックするとWEBページダイアログが出現する
> > > 　～ここまで出来ています～
> > > ６．WEBページダイアログ内のテキストボックスに値を入力する
> > > ７．WEBページダイアログ内の「登録」ボタンをクリックする
> > >
> > > hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
> > > 上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
> > > WEBページダイアログという扱いになっていますがHTMLは存在しています。
> > > このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？
> > >
> > > 以上です。お力添えよろしくお願いいたします。

Message#3 2017年7月9日(日)15時30分
From: 齋藤拓也

返事削除変更

sendkeysは思いつかなかったなあ・・・
マウスイベントで対象のテキストボックスにフォーカス当ててsendkeysで文字を入力してEnter。で、やってみます！

ジャッカルのメッセージ(#2)への返事

> sendkeysで直接入力させてEnterで登録とか
>
> > 表題の件についてお力をお借りしたいです。
> >
> > ■実現したいこと
> > １．IEで特定のウェブページにアクセスする
> > ２．テキストボックスに値を入力する
> > ３．検索ボタンをクリックする
> > ４．特定のボタンをクリックする
> > ５．特定のボタンをクリックするとWEBページダイアログが出現する
> > 　～ここまで出来ています～
> > ６．WEBページダイアログ内のテキストボックスに値を入力する
> > ７．WEBページダイアログ内の「登録」ボタンをクリックする
> >
> > hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
> > 上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
> > WEBページダイアログという扱いになっていますがHTMLは存在しています。
> > このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？
> >
> > 以上です。お力添えよろしくお願いいたします。

Message#2 2017年7月6日(木)05時48分
From: ジャッカル

返事削除変更

sendkeysで直接入力させてEnterで登録とか

> 表題の件についてお力をお借りしたいです。
>
> ■実現したいこと
> １．IEで特定のウェブページにアクセスする
> ２．テキストボックスに値を入力する
> ３．検索ボタンをクリックする
> ４．特定のボタンをクリックする
> ５．特定のボタンをクリックするとWEBページダイアログが出現する
> 　～ここまで出来ています～
> ６．WEBページダイアログ内のテキストボックスに値を入力する
> ７．WEBページダイアログ内の「登録」ボタンをクリックする
>
> hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
> 上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
> WEBページダイアログという扱いになっていますがHTMLは存在しています。
> このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？
>
> 以上です。お力添えよろしくお願いいたします。

Message#1 2017年7月5日(水)12時46分
From: 齋藤拓也

返事削除変更

表題の件についてお力をお借りしたいです。

■実現したいこと
１．IEで特定のウェブページにアクセスする
２．テキストボックスに値を入力する
３．検索ボタンをクリックする
４．特定のボタンをクリックする
５．特定のボタンをクリックするとWEBページダイアログが出現する
　～ここまで出来ています～
６．WEBページダイアログ内のテキストボックスに値を入力する
７．WEBページダイアログ内の「登録」ボタンをクリックする

hwnd = FindWindow("Internet Explorer_TridentDlgFrame", "メモ登録画面 -- Web ページダイアログ")
上記にてダイアログのハンドルは取得できているのですがIEではないのでIEオブジェクトのように操作ができていない状況です。
WEBページダイアログという扱いになっていますがHTMLは存在しています。
このWEBページダイアログをIEオブジェクトとして操作方法はないものでしょうか？

以上です。お力添えよろしくお願いいたします。