【Excel VBA】从excel单元格直接导出关键词搜索百度

最新推荐文章于 2022-05-17 13:44:46 发布

神创

最新推荐文章于 2022-05-17 13:44:46 发布

阅读量1.5k

点赞数 1

分类专栏： VBA excel

本文链接：https://blog.csdn.net/qq_19741181/article/details/79857429

版权

本文介绍如何使用Excel VBA编写代码，直接从单元格读取关键词并搜索百度。虽然现有代码存在一些不够简洁的问题，但提供了基础的实现思路。

摘要由CSDN通过智能技术生成

参考：http://club.excelhome.net/thread-1002560-1-1.html

代码：

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 ("C:\Program Files\Internet Explorer\iexplore.exe " & myFind)
End Sub

这里有点用起来有点疑问：

不够简洁

Sub Google()
Dim myFind As String, Response As Integer
myFind = Replace(Trim(Selection.Text), " ", "+")
Shell ("C:\Program Files\Internet Explorer\iexplore.exe " & myFind)
End Sub

不过简洁也不行：