VBA如何调用Google搜索引擎

ihomer

我想实现在word中对选中的文本直接调用google搜索（或加引号限制比如"MS office"，或将选中的词提交translate.google.com等等），请各位大大指点迷津～～

1. 我查了一下网上，好像只有介绍用vb.net调用google的web服务，
2. 如果我只需要在浏览器打开页面，不需要返回结果，应该用vba可以搞定吧？

我知道的用法不多：
selection.text
Shell ("explorer http://www.google.com")
在google搜索"excelhome"的写法：http://www.google.cn/search?client=aff-cs-maxthon&hl=zh-CN&q=excelhome&meta=lr%3Dlang_zh-CN
可是如何把它们组合起来呢？

ihomer

我用的是maxthon，设置默认搜索引擎为google后，可以直接如此调用：

Sub Google()
Dim myFind As String, Response As Integer
myFind = Replace(Trim(Selection.text), " ", "+")

Response = msgbox("是否需加引号搜索？", vbYesNoCancel)
Select Case Response
Case vbYes
myFind = "“" & myFind & "”"
Case vbCancel
Exit Sub
End Select

Shell ("D:\program files\maxthon\maxthon.exe " & myFind)
End Sub
但感觉不是原汁原味的写法，一则未实现google搜索框中官方使用的半角引号（搜多个英文单词时引号很有用的），二则空格的处理也比较别扭，三呢……呵呵换个引擎就傻眼了。

还是期待各位老大们给出精彩的通用代码吧！比如，能否将字符串的值用URL编码成%B6%A8之类后，传递到search?q=的后面？？

[此贴子已经被作者于2007-12-18 16:56:16编辑过]

守柔

这是以前的一个贴子，参考看一下。

http://club.excelhome.net/viewthread.php?tid=97240&replyID=525842&skin=0

ihomer

多谢版主回答！！今天下午论坛一时搜索不了，否则我会好好看看以前的帖子的。

又学到了一招Tasks、SendKeys，比自己摸索有效多了～～

chuhaiou

Sub Google()
Dim myFind As String, Response As Integer
myFind = Replace(Trim(Selection.text), " ", "+")
Shell ("D:\program files\maxthon\maxthon.exe " & myFind)
End Sub

[ 本帖最后由 chuhaiou 于 2009-4-19 23:43 编辑 ]

chuhaiou

将D:\program files\maxthon\maxthon.exe 改为C:\Program Files\Internet Explorer\iexplore.exe,如搜索"我是一个好人.MP3"为什么是在地址栏出现"http://我是一个好人.MP3"而不是在百度搜索栏出现"我是一个好人.MP3"呢?

chuhaiou

使用iexplore.exe,要是能在百度搜索栏搜索就好了!

sylun

原帖由 chuhaiou 于 2009-4-19 23:37 发表
使用iexplore.exe,要是能在百度搜索栏搜索就好了!

可试试：
Sub mySearching()
    '以选中内容为搜索关键词
    Dim mySearchEngine As String
    'mySearchEngine = "http://www.google.cn/search?hl=zh-CN&q="  'Google搜索
    mySearchEngine = "http://www.baidu.com/s?wd="  '百度搜索
    Shell "C:\Program Files\Internet Explorer\IEXPLORE.EXE " & mySearchEngine & Selection.Text, 1
End Sub

chuhaiou

你真是高手,看到这个贴的人都会为之心动!尤其是编辑工作人员(防他人网上抄袭文章)!谢谢你的帮助!谢谢你!谢谢你!

[ 本帖最后由 chuhaiou 于 2009-4-20 11:40 编辑 ]

tangqingfu

很实用！收藏备用！谢谢sylun兄的分享！

[ 本帖最后由 tangqingfu 于 2009-4-20 16:15 编辑 ]