すでに起動しているHPのテキストボックスに値を出力して検索する方法(vba ie)
未読分:2件
昨日以降(0) 2日前以降(0) 3日前以降(0) 4日前以降(0) 5日前以降(0)
近田 伸矢, 植木 悠二, 上田 寛
IEのデータ収集&自動操作のプログラミング本はこの1冊だけ!IEの起動やポップアップウィンドウ、表示を制御する基本的なコードはもちろん、テキストボックスやラジオボタン、表、ハイパーリンクなどのHTML部品を制御する方法など、自動操作に欠かせないノウハウを丁寧に解説。
Message#2 2016年3月26日(土)01時20分 From: ジャッカル | 返事 削除 変更 |
何がしたいのかが全然分からない! TDB企業サーチに値を入れて検索したいってこと? ウィキペディアで検索したいってこと? ROBINSで事業者を探したいってこと? ソースコードもGoogleを開く処理だけど何をどうしたいのかが分からないので答えようがない それと値入力→検索処理をしたいのならまずはどこまで出来ているのか提示しないとこれまた答えれないですよ。 > 下記@,A,Bが既に開いている状態でテキストボックスに値を出力して検索(虫眼鏡)をクリックする方法(コード)のご教示よろしくお願いします。 > @TDB企業サーチ(https://www.tdb.co.jp/service/u/1000.jsp)の「企業名」テキストボックスに値を出力・検索する方法やAウィキペディア(https://ja.wikipedia.org/)の「検索」テキストボックスに値を出力・検索する方法を、BROBINS(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: 長尾 高志 | 返事 削除 変更 |
下記@,A,Bが既に開いている状態でテキストボックスに値を出力して検索(虫眼鏡)をクリックする方法(コード)のご教示よろしくお願いします。 @TDB企業サーチ(https://www.tdb.co.jp/service/u/1000.jsp)の「企業名」テキストボックスに値を出力・検索する方法やAウィキペディア(https://ja.wikipedia.org/)の「検索」テキストボックスに値を出力・検索する方法を、BROBINS(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 = "三流" すみません、厚かましいお願いだとは思いますがよろしくお願いします。 |
昨日以降 2日前以降 3日前以降 4日前以降 5日前以降