在Excel中通过编程使用百度地图搜索并获取结果，可以通过以下几种方法实现：
方法一：使用VBA宏
1. 打开Excel文件，在菜单栏中找到“开发工具” -> “宏”，创建一个新的宏（VBA程序）。
2. 在代码编辑框中粘贴以下代码：
```vba
Sub baiduMap（）
Dim url As String
Dim html As Object
Dim js As Object
Dim cell As Range
Dim br（） As Variant
Cells.ClearContents
br = Array（"店名", "地址", "电话"）
Range（"A1:C1"） = br
url = ""
Set html = CreateObject（"htmlfile"）
Set js = CreateObject（"scriptcontrol"）
js.Language = "JScript"
For p = 1 To 5
With CreateObject（"MSXML2.XMLHTTP"）
url = "http://map.baidu.com/？newmap=1&reqflag=pcmap&biz=1&from=webmap&qt=s&c=257"
' 可以根据需要修改搜索关键词和其他参数
url = url & "&wd=" & Range（"A1"）.Value
End With
html.Open
html.Write "