すでに起動しているHPのテキストボックスに値を出力して検索する方法（vba ie）

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

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

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

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

Message#2 2016年3月26日(土)01時20分
From: ジャッカル

返事削除変更

何がしたいのかが全然分からない！

TDB企業サーチに値を入れて検索したいってこと？
ウィキペディアで検索したいってこと？
ROBINSで事業者を探したいってこと？

ソースコードもGoogleを開く処理だけど何をどうしたいのかが分からないので答えようがない

それと値入力→検索処理をしたいのならまずはどこまで出来ているのか提示しないとこれまた答えれないですよ。

> 下記①，②，③が既に開いている状態でテキストボックスに値を出力して検索（虫眼鏡）をクリックする方法（コード）のご教示よろしくお願いします。
> ①TDB企業サーチ（https://www.tdb.co.jp/service/u/1000.jsp）の「企業名」テキストボックスに値を出力・検索する方法や②ウィキペディア（https://ja.wikipedia.org/）の「検索」テキストボックスに値を出力・検索する方法を、③ROBINS（https://robins.jipdec.or.jp/robins/）の「キーワードを入力してください」テキストボックスに値を出力・検索する方法を教えていただきたく質問しました。
> 本書「Excel VBAでIEを思いのままに操作できるプログラミング術」4-2のコードや、以下のコードなどいろいろ試しましたが、私の知識不足もあり全くダメでした（本書サンプルや下記コードどうりには動きます）。
> Sub ie_test() 'IEテストする。'IEの起動
> Dim objIE As Object '変数を定義します。
> Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成。
> objIE.Visible = True '可視、Trueで見えるようにします。
> objIE.Navigate "http://www.google.co.jp/"'処理したいページを表示します。
> 'ページの表示完了を待ちます。
> While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
> DoEvents '重いので嫌いな人居るけど。
> Wend
> 'google検索項目(name=q)にセットする。
> objIE.Document.getElementsByName("q")(0).Value = "三流"
> すみません、厚かましいお願いだとは思いますがよろしくお願いします。

Message#1 2016年3月25日(金)21時47分
From: 長尾　高志

返事削除変更

下記①，②，③が既に開いている状態でテキストボックスに値を出力して検索（虫眼鏡）をクリックする方法（コード）のご教示よろしくお願いします。
①TDB企業サーチ（https://www.tdb.co.jp/service/u/1000.jsp）の「企業名」テキストボックスに値を出力・検索する方法や②ウィキペディア（https://ja.wikipedia.org/）の「検索」テキストボックスに値を出力・検索する方法を、③ROBINS（https://robins.jipdec.or.jp/robins/）の「キーワードを入力してください」テキストボックスに値を出力・検索する方法を教えていただきたく質問しました。
本書「Excel VBAでIEを思いのままに操作できるプログラミング術」4-2のコードや、以下のコードなどいろいろ試しましたが、私の知識不足もあり全くダメでした（本書サンプルや下記コードどうりには動きます）。
Sub ie_test() 'IEテストする。'IEの起動
Dim objIE As Object '変数を定義します。
Set objIE = CreateObject("InternetExplorer.Application") 'オブジェクトを作成。
objIE.Visible = True '可視、Trueで見えるようにします。
objIE.Navigate "http://www.google.co.jp/"'処理したいページを表示します。
'ページの表示完了を待ちます。
While objIE.ReadyState <> 4 Or objIE.Busy = True '.ReadyState <> 4の間まわる。
DoEvents '重いので嫌いな人居るけど。
Wend
'google検索項目(name=q)にセットする。
objIE.Document.getElementsByName("q")(0).Value = "三流"
すみません、厚かましいお願いだとは思いますがよろしくお願いします。