效果图如下:
VBA代码下如:
SubMain()
DimstrText,URL,CityFrom,CityToAsString
Dimdis,mtime
CityFrom=Sheet1.Range("B2").Value'假想值为江门
CityTo=Sheet1.Range("C2").Value''假想值为深圳
IfCityFrom=""OrCityTo=""Then
MsgBox"开始或终点地址为空!"
Else
URL="http://map.baidu.com/?"
URL=URL&"qt=nav"