質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう!

新規登録して質問してみよう
ただいま回答率
85.50%
VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

Q&A

解決済

1回答

5265閲覧

VBAでIEの検索を実行させる方法

sobue

総合スコア329

VBA

VBAはオブジェクト指向プログラミング言語のひとつで、マクロを作成によりExcelなどのOffice業務を自動化することができます。

Internet Explorer

Internet Explorer(IE;MSIE)はマイクロソフトが開発したウェブブラウザです。Microsoft Windowsに組み込まれています。

0グッド

0クリップ

投稿2018/08/25 08:29

VBA

1Option Explicit 2 3Private objIE As InternetExplorer 4Private infoSheet As Worksheet 5 6'------------------------------------------------------------------------------------------------- 7'  初期化 8'------------------------------------------------------------------------------------------------- 9Sub init() 10 11 Set infoSheet = ActiveWorkbook.Worksheets("メーカーサイト") 12 13 'IEをセットする 14 Set objIE = CreateObject("InternetExplorer.Application") 15 16 'IEを表示する(標準が非表示のため) 17 objIE.Visible = True 18 19 Call searchProduct(infoSheet) 20 21End Sub 22 23'------------------------------------------------------------------------------------------------- 24'  主処理を記述 25'------------------------------------------------------------------------------------------------- 26Sub main() 27 28 '初期化を行う 29 Call init 30 31 'メーカーWebサイトへ行き、商品ページを表示する 32 Call searchProduct(infoSheet) 33 34 Dim s As String 35 s = "th65fz1000" 36 Dim objtag, objImg As Object 37 For Each objtag In objIE.document.getElementsByTagName("input") 38 If InStr(objtag.outerHTML, """s""") > 0 Then 39 objtag.Value = s 40 Exit For 41 End If 42 Next 43 44 For Each objImg In objIE.document.getElementsByTagName("IMG") 45 Debug.Print objImg.src 46 If InStr(objImg.src, "icn-search.png") > 0 Then 47 objImg.Click 48 Call WaitFor(3) 49 Exit For 50 End If 51 Next 52End Sub 53'------------------------------------------------------------------------------------------------- 54'  商品情報の検索 55'------------------------------------------------------------------------------------------------- 56Sub searchProduct(infoSheet As Worksheet) 57 58 Call getWebPage(objIE, infoSheet.Cells(2, 2)) 59 60End Sub 61'------------------------------------------------------------------------------------------------- 62'  インターネットのページを取得 63'------------------------------------------------------------------------------------------------- 64Sub getWebPage(objIE As InternetExplorer, URL As String) 65 66 objIE.navigate (URL) 67 68End Sub 69'------------------------------------------------------------------------------------------------- 70'  IEが目的ページに移動するまで待つ 71'------------------------------------------------------------------------------------------------- 72Function IEWait(ByRef objIE As Object) 73 Do While objIE.Busy = True Or objIE.readyState <> 4 74 DoEvents 75 Loop 76End Function 77 78'------------------------------------------------------------------------------------------------- 79'  指定した秒だけ停止する 80'------------------------------------------------------------------------------------------------- 81Function WaitFor(ByVal second As Integer) 82 Dim futureTime As Date 83 futureTime = DateAdd("s", second, Now) 84 While Now < futureTime 85 DoEvents 86 Wend 87End Function 88

参考HP

やりたいこと
ホームページで検索テキストボックスに文字列を入力して検索をしたい

現在挑戦中のHP

実行環境
Excel2010
IE11
Windows10

気になる質問をクリップする

クリップした質問は、後からいつでもMYページで確認できます。

またクリップした質問に回答があった際、通知やメールを受け取ることができます。

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

guest

回答1

0

ベストアンサー

実際に試していませんが、下記の方法で検索テキストボックスに
"キーワード入力" で検索できないでしょうか。

objIE.document.getElementById("s").Value = "キーワード入力" objIE.document.Forms(0).submit

投稿2018/08/25 09:22

TanakaHiroaki

総合スコア1063

バッドをするには、ログインかつ

こちらの条件を満たす必要があります。

sobue

2018/08/25 09:38 編集

検索はできたのですが、2行目の意味が分かりません。 Forms(0)はなぜ必要で、どのように今回submitしたいところを特定しているのですか?
TanakaHiroaki

2018/08/25 09:33

検索できて何よりです。 以下の通り、このページの1番最初の<form>に検索テキストボックスがあったので Forms(0)としています。 <form id="searchformhead" role="search" action="/search.html" method="get"> <input name="q" title="Keyword" class="field" id="s" type="text" placeholder="検索キーワード" autocomplete="on"> <input name="searchIn" type="hidden" value=""> <input name="_charset_" type="hidden" value="utf-8"> <button class="submit" type="submit"><img alt="Search" src="/etc/designs/panasonic/searchautocomplete-clientlibs/images/icn-search.png"></button> </form>
sobue

2018/08/25 09:44

今回は、1つしか該当がないのでいいのですが、2つ以上ある場合はどうなるのですか?
TanakaHiroaki

2018/08/25 09:47

例えば3つある場合、Formsコレクション 0,1,2 となるので 3番目は下記の記述となります。 objIE.document.Forms(2).submit
sobue

2018/08/25 09:54 編集

formはいいのですが、submitは1つしか存在しないものなのですか? ボタンが2つ以上ある場合もあるとおもうのですが
TanakaHiroaki

2018/08/25 09:58

確かに同一Form内で複数のSubmitが存在するケースはあります。 その場合でも、この記述で検索できるはずです。
sobue

2018/08/25 10:08

なぜ個別に指定していないのに検索ができるのですか?
TanakaHiroaki

2018/09/06 13:01 編集

回答にご納得されていないようですが、私の実力では、ご期待の回答はできかねます。 たとえ期待通りの回答が得られていなくても、回答してくれた方への感謝の気持ちを表現しつつ、更に質問するほうが印象がよいと思います。 ご自身でいろいろ試した結果、想定通りの動作ができたのか、できなかったのかをご報告いただき、ご質問内容を明確にしていただければ、詳しい方が、あなたの期待する回答をしてくれると思います。 結局、やりたいこと「 ホームページで検索テキストボックスに文字列を入力して検索をしたい」について、まだ達成されていないのであれば、それが何かを具体的に補足してもらうことは可能でしょうか。
sobue

2018/09/17 00:39

解決しました。ありがとうございます。
guest

あなたの回答

tips

太字

斜体

打ち消し線

見出し

引用テキストの挿入

コードの挿入

リンクの挿入

リストの挿入

番号リストの挿入

表の挿入

水平線の挿入

プレビュー

15分調べてもわからないことは
teratailで質問しよう!

ただいまの回答率
85.50%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

関連した質問