プロが教えるわが家の防犯対策術!

以下のようなツールを探しています。

たとえば、47都道府県分のB級グルメマップをGoogleで調べて作りたいとします。
Googleの検索窓に「北海道 B級グルメ」「青森県 B級グルメ」... と47回入力することになりますが、この工程を簡略化したいのです。
検索ワードのテキストを作っておけば、それを読み込んでGoogleで検索をかけ、結果を返してくれるようなツールがないでしょうか。
結果表示の形式は特に問いません(ブラウザ以外でも可)
GUIでもコマンドライン入力でも構いません。
当方OSはwindow2000です。

よろしくお願いします。

このQ&Aに関連する最新のQ&A

A 回答 (1件)

フリーソフトの合わせ技、というのは如何でしょう?



>検索ワードのテキストを作っておけば、それを読み込んで…~
*クリップボードへコピーしたものを検索、というのでは駄目でしょうか?
QuickSearch
http://www.vector.co.jp/soft/dl/win95/net/se1843 …
タスクトレイに常駐して、クリップボード内のテキストを検索サイトを使って検索
*これだけだと大量の語句には対応出来ない様子なので…
http://www.vector.co.jp/vpack/filearea/win95/uti …
から適当な自動化ソフトと組み合わせてできませんかねぇ…。

動作確認はしていないので、情報提供ということで。
当然、ポイントは要りません。
    • good
    • 0
この回答へのお礼

ありがとうございます。
自動化ツールも検討しましたが、今回は急いでおりましたので、結局、バッチを書いてDOS窓から実行しました。タブブラウザでないとIEのウィンドウが何十個も立ち上がるので、おすすめできる方法ではありません。次回、教えていただいた方法で試してみます。

お礼日時:2004/10/08 10:16

このQ&Aに関連する人気のQ&A

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!

このQ&Aを見た人が検索しているワード

このQ&Aと関連する良く見られている質問

Qエクセル内で複数の文字(50個ぐらい)を一括で検索したい

タイトル通りなのですが、エクセル内の文字列で
特定の複数(50個ぐらい)の文字を一括検索したいのですが、
どうすれば 検索できますか?
決して検索後に、別の文字に置き換えや、
複数のエクセルを一括検索したいとまでは言いません。
一つのエクセル内で複数(50個ぐらい)の文字を検索し、
ヒットしてくれれば 後はヒットした文字列を手動で
削除していくので、検索できるだけで構わないです。

もちろん 贅沢を言えば、ヒットした文字列の
文字色or文字列の枠内か枠が色付きになってくれると
ひと目でヒットしている場所が分かり、助かるのは
事実ですが、簡単に できる方法ってありますか?
複雑なマクロを使うことになるのでしょうか?

どなたかご存知のかたがいらっしゃれば
教えていただけないでしょうか?

なにぶん無知なほうなので、面倒かと思いますが、
具体的に教えていただけると幸いに思います。
どうぞよろしくお願い致します。

Aベストアンサー

No2 merlionXXです。

> 検索したい複数の文字は どこに設定すれば よろしいでしょうか?

「A1セルからA50セルまでの各セルにそれぞれ検索したい文字があるとします。」と書いておいたのですが、意味が伝わらなかったのでしょうか?
A1からA50まのの各セルに設定してください。
なお、検索範囲はマクロ実行前に選択(セレクト)しておいてくださいね。

> 後、例:16F~70Fなど、範囲を決めての英数字の検索等も可能ですか?

では、16F~70Fを検索するマクロです。

Sub 連続検索02()
For n = 16 To 70 '16~70まで
Set c = Selection.Find(What:=n & "F", LookAt:=xlPart) '選択範囲を検索(16F~70F)
If Not c Is Nothing Then 'あったら
fAd = c.Address 'セル番地を控える
Do '繰り返す
i = i + 1 'カウント
c.Interior.ColorIndex = 8 'セル着色
Set c = Selection.FindNext(c) '連続検索
Loop Until c.Address = fAd '一巡するまで'繰り返し
End If
Next n '次の検索文字で繰り返す
Set c = Nothing
MsgBox i & "件を発見しました。", vbInformation, " ( ̄ー ̄)v"
End Sub

No2 merlionXXです。

> 検索したい複数の文字は どこに設定すれば よろしいでしょうか?

「A1セルからA50セルまでの各セルにそれぞれ検索したい文字があるとします。」と書いておいたのですが、意味が伝わらなかったのでしょうか?
A1からA50まのの各セルに設定してください。
なお、検索範囲はマクロ実行前に選択(セレクト)しておいてくださいね。

> 後、例:16F~70Fなど、範囲を決めての英数字の検索等も可能ですか?

では、16F~70Fを検索するマクロです。

Sub 連続検索02()
For n =...続きを読む

QエクセルからGoogle検索

エクセルの複数のセルに入っているテキストで
それぞれのGoogle検索を一気に行う、ということは可能でしょうか?

A1 「モバイル パソコン」
A2 「パソコン GPS」
A3 「NTT GPS」
と各セルに入力されていたとして、
「モバイル パソコン」「パソコン GPS」「NTT GPS」
とそれぞれのGoogle検索を一度に行い、
別々のウィンドウで検索結果を開き、検索結果を比較したいのです。
検索語が少なければ、手動で行っても時間はかからないのですが、
多数の検索語のパターンで検索するため、一度にできる
方法はないかなあ、と悩んでいます。
テキストの入力されているソフトはエクセルでなくても良いのです。
困っています!
よろしくお願いいたします。

Aベストアンサー

こんにちは。一例です。

IE 限定でなく、OS の規定ブラウザで開くためあえて API を使いました。
なお、コードを VBE にコピペすると Google Url の部分が若干文字化け
します。適当に直して下さい。

Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long) As Long
Public Const SW_SHOWNORMAL = 1


Sub Googleで選択範囲を一括検索()

  Const BASEURL As String = "http://www.google.co.jp/search?hl=ja&ie=UTF-8&q="
  ' // 無制限にウインドウを開くのはリソース不足が発生する可能性があるため、
  ' // ウインドウ数を制限する仕組みは必要かもしれない。とりあえず、簡易的
  ' // に選択セル数で制限しておく。
  Const MAX_CNT As Long = 5
  
  Dim url As String
  Dim tmp As String
  Dim r  As Range
  
  If Not TypeOf Selection Is Range Then Exit Sub
  If Selection.Cells.Count > MAX_CNT Then
    MsgBox "選択セル数が多すぎます(制限:" _
        & CStr(MAX_CNT) & "以下)", vbCritical
  End If
  For Each r In Selection.Cells
    If Len(r.Text) Then
      url = BASEURL & UrlEncode(Replace$(r.Text, " ", " "))
      Call ShellExecute(0&, "OPEN", url, vbNullString, vbNullString, SW_SHOWNORMAL)
    End If
  Next r

End Sub

' // URL エンコード
Public Function UrlEncode(ByVal sText As String) As String
  If Len(sText) = 0 Then Exit Function
  With CreateObject("ScriptControl")
    .Language = "JScript"
    UrlEncode = .CodeObject.encodeURI(sText)
  End With
End Function

こんにちは。一例です。

IE 限定でなく、OS の規定ブラウザで開くためあえて API を使いました。
なお、コードを VBE にコピペすると Google Url の部分が若干文字化け
します。適当に直して下さい。

Option Explicit

Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hwnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
...続きを読む

QエクセルでハイパーリンクのURLだけを文字抽出したい

ホームページからコピーし、エクセルにリンク文字をペーストすると、青文字(文字にハイパーリンクがかかった状態)が貼りつきます。その張り付いた文字の、リンク先URLを文字としてほしい(http○○・・)のですが、できますか?
青文字を右クリックしてハイパーリンクの編集からURLは見られるのですが、たくさんのリンクリストからURLだけを抽出するのが大変なので、よい方法がありましたらお願いします。

Aベストアンサー

No3 です。
サブアドレスの存在を忘れていました。
訂正です。

Public Sub GetURL()
  Dim h As Hyperlink
  Dim a As String
  Dim s As String
  For Each h In ActiveSheet.Hyperlinks
    a = h.Address
    s = h.SubAddress
    If s <> "" Then
      a = a & "#" & s
    End If
    h.Range.Offset(0, 1) = a
  Next
End Sub


人気Q&Aランキング