查看: 1294|回复: 9
大侠们，江湖救急啊！ 求帮我改下VBA程序，获取谷歌地图公里数！谢谢啦！
阅读权限10
在线时间 小时
& && & 因工作需要，目前需要使用Excel批量从谷歌地图获取两个邮编之间的公里数，之前看到到html2013兄的一个VBA程序，是从百度地图获取两个城市之间的距离的，
和我的需求很相近，但是百度地图不支持查询邮编之间的距离，我改了半天也无法从谷歌地图获得正确的公里数，特在此向大侠们求教，谁能帮我改下程序啊！
& && &html2013：兄如果看见这个帖子，请务必不吝赐教啊！
& && & onlycxb兄：你说的网抓技术在哪里学啊！
& &&& 以下是html2013兄VBA代码：
& && &Sub test()
& & Set JS = CreateObject(&msscriptcontrol.scriptcontrol&)
& & JS.Language = &JavaScript&
& & With CreateObject(&WinHttp.WinHttpRequest.5.1&)
& && &&&For i = 2 To Range(&a65536&).End(xlUp).Row
& && && && &s1 = JS.Eval(&encodeURIComponent('& & Cells(i, 1) & &');&)
& && && && &s2 = JS.Eval(&encodeURIComponent('& & Cells(i, 2) & &');&)
& && && && &.Open &GET&, &http://map.baidu.com/?newmap=1&reqflag=pcmap&biz=1&qt=nav&c=1&sn=2$$$$$$& & s1 & &$$0$$$$&en=2$$$$$$& & s2 & &$$0$$$$&, False
& && && && &.Send
& && && && &tt = .responsetext
& && && && &Cells(i, 3) = Val(Split(Split(tt, &:&)(2), &,&)(0)) / 1000
& && &&&Next i
& & End With
(9.46 KB, 下载次数: 23)
14:59 上传
点击文件名下载附件
阅读权限100
在线时间 小时
以下串给出的链接在浏览器中无法打开：
& && && && &ss = &http://map.baidu.com/?newmap=1&reqflag=pcmap&biz=1&qt=nav&c=1&sn=2$$$$$$& & s1 & &$$0$$$$&en=2$$$$$$& & s2 & &$$0$$$$&
& && && && &Debug.Print ss
阅读权限10
在线时间 小时
& & & & & & & &
这样肯定打不开啊，要配合附件才行
阅读权限10
在线时间 小时
& & & & & & & &
把附件里的邮编换成城市名称才能用百度地图打开，我的附件里面是邮编，百度地图不支持查询邮编之间的距离，所以才想改成抓取谷歌地图数据，但是本人不才，改不出来！望版主不吝赐教啊！！！ 本人工作期限迫在眉睫，改了好久都不行，头痛欲裂！！
阅读权限50
在线时间 小时
试试这个Sub main()
& & Dim a$, b$, i%, Str$
& & Application.ScreenUpdating = False
& & With CreateObject(&WinHttp.WinHttpRequest.5.1&)
& && &&&For i = 2 To Cells(65536, 1).End(xlUp).Row
& && && && &a = Cells(i, 1).Value: b = Cells(i, 2).Value
& && && && &.Open &GET&, &http://www.google.cn/maps/dir/& & a & &/& & b & &/&, False
& && && && &.send
& && && && &Str = Replace(Split(.responsetext, &&span&&)(2), &&/span&，&, &&)
& && && && &If InStr(Str, &公里&) & 0 Then Cells(i, 3) = Str Else Cells(i, 3) = &请检查邮编&
& && &&&Next i
& & End With
& & Application.ScreenUpdating = True
End Sub
复制代码
阅读权限95
在线时间 小时
onlycxb 发表于
测试通过，类似的例子整理如附件：
(389.2 KB, 下载次数: 48)
08:31 上传
点击文件名下载附件
值得肯定，这里面还有吴姐代码呢，引用一定.
阅读权限10
在线时间 小时
谢谢onlycxb和VBA万岁，你们真是好人，我这边的工作迫在眉睫，压力很大，非常感谢你们对我的帮助！
我现在是VBA小白，但是我现在也在学习，以后我会用我的能力去帮助别人。再次感谢你们的帮助！
阅读权限30
在线时间 小时
网页已经改版，用不了！
请测试
Sub main()
& & Dim a$, b$, i%, Str$
& & Application.ScreenUpdating = False
& & With CreateObject(&WinHttp.WinHttpRequest.5.1&)
& && &&&For i = 2 To Cells(65536, 1).End(xlUp).Row
& && && && &a = Cells(i, 1).Value: b = Cells(i, 2).Value
& && && && &.Open &GET&, &http://www.google.cn/maps/dir/& & a & &/& & b & &/&, False
& && && && &.send
& && && && &Str = Right(Split(.responsetext, &公里&&,&)(0), 5) & &公里&
& && && && &Str = Mid(Str, InStr(Str, &&&&) + 1, 4) & &公里&
& && && && &If InStr(Str, &tml&&) & 0 Then Cells(i, 3) = &请检查邮编& Else Cells(i, 3) = Str
& && &&&Next i
& & End With
& & Application.ScreenUpdating = True
End Sub复制代码
阅读权限30
在线时间 小时
Str = Mid(Str, InStr(Str, &&&&) + 1, 4) & &公里&
Str = Mid(Str, InStr(Str, &&&&) + 1, 9)
阅读权限10
在线时间 小时
老师 请问哪个参数修改了可以获取百度地图上的步行时间和距离呀 急！！ 谢谢！！
最新热点 /1
ExcelHome每周都有线上直播公开课，
国内一流讲师真身分享，高手贴身答疑，
赶不上直播还能看录像，
关键居然是免费的！
厚木哥们都已经这么努力了，
你还好意思说学不好Office。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师谁知道这个卡通人物是谁啊？求同系列图片！谢谢谢谢_百度知道
谁知道这个卡通人物是谁啊？求同系列图片！谢谢谢谢
我有更好的答案
个卡通人物叫小希更多图片看这里
采纳率：67%
她叫萌小希，百度图片搜！
为您推荐：
其他类似问题
您可能关注的内容
卡通人物的相关知识
换一换
回答问题，赢新手礼包
个人、企业类
违法有害信息,请在下方选择后提交
色情、暴力
我们会通过消息、邮箱等方式尽快将举报结果通知您。查看: 8146|回复: 9
求助求助，怎样将图片并排插入，各有子标题？急求各位，谢谢了先。
\begin{figure}[htbp]
\centering
\begin{minipage}
\centering
\includegraphics{image001.jpg}
\caption{qingming}
\end{minipage}
\hspace {}
\begin{minipage}
\centering
\includegraphics{image001.jpg}
\caption{fuming}
\end{minipage}
\end{figure}
查看了相关资料，代码如上，编译时提示minipage环境未定义，怎么回事啊？求助下各位
minipage环境使用错误，没有指定页宽。其实用subfig可以更简单吧
Marlin 发表于
minipage环境使用错误，没有指定页宽。其实用subfig可以更简单吧
这个subfit怎么用呢？Marlin老师
咸菜粉丝团6 发表于
这个subfit怎么用呢？Marlin老师
去看文档。。texdoc subfig复制代码
Liam0205 发表于
去看文档。。
看了，源代码改为如下：
\begin{figure}[htbp]
\centering
\begin{minipage}[t]{0.4\textwidth}
\centering
\includegraphics{image010.png}
\caption{The curve of the extracted and predicted random term displacement with time of ZG118}
\end{minipage}
\hspace{.15\textwidth}
\begin{minipage}[t]{0.4\textwidth}
\centering
\includegraphics{image011.png}
\caption{The curve of the extracted and predicted random term displacement with time of XD-01}
\end{minipage}
\end{figure}
结果放在两个文件里编译出来不一样啊，一个文件里编译出来是符合要求的，但另一个文件里编译出来，独自占了一页，图片还只是显示一小部分，这是什么原因呢？
咸菜粉丝团6 发表于
看了，源代码改为如下：
\begin{figure}[htbp]
\centering
1. subfig 不是这样用的。
2. 无代码无真相。既然你知道这段代码在两份文档里效果不一样，就说明不是这段代码的问题（而是别的代码的问题）。那么为什么不给出来呢。
Liam0205 发表于
1. subfig 不是这样用的。
2. 无代码无真相。既然你知道这段代码在两份文档里效果不一样，就说明不是这段 ...
谢谢Liam的点拨。可能我没表达清楚：
1.我代码里用的是minipage，没有用到subfig,我也按你提供的文档找了那个，编了代码如下：
\begin{figure}[htbp]
\centering
\subfloat[The curve of the extracted and predicted random term displacement with time of ZG118]
{\includegraphics[height=5cm]{image042.png}}
\hspace{4em}
\subfloat[The curve of the extracted and predicted random term displacement with time of XD-01]
{\includegraphics[height=5cm]{image043.png}}
\end{figure}但最后编译出来时两个图片也没有并排排列。
2.别的代码没贴出来是因为太长了（编译出来14页），这个文章是要发在外文期刊上，之前别的都弄好了，就剩这个并排的图片问题了。而且两个文件之间除了引用的图片不一样，其余的都是一样的，所以我想别的代码应该是没有问题的。但就是不知道原因在哪里。
咸菜粉丝团6 发表于
谢谢Liam的点拨。可能我没表达清楚：
1.我代码里用的是minipage，没有用到subfig,我也按你提供的文档找了 ...
没有并排放是因为你没有限制图片在 pdf 输出中的宽度，导致换行了。这不是宏包的问题，而是你使用的问题。
贴代码是为了让错误/问题在我们的计算机上重现，而不是让我们看你的论文，所以你应该精简你的代码至少到你自己可以接受的程度。
代码简略如下：
\documentclass[a4paper,10pt]{article}
\usepackage{amsmath}
\usepackage{graphicx}
%\usepackage{indentfirst}%首段也缩进
\usepackage{times}
\begin{document}
\title{Displacement prediction in Baishuihe landslide, Three Gorges Reservoir, China}
\author{Allen }
%\date{Received: date / Accepted: date}
\maketitle
\begin{figure}[htbp]
\centering
\begin{minipage}[t]{0.4\linewidth}
\centering
\includegraphics{image007.png}
\caption{The curve of the extracted and predicted periodic term displacement with time of ZG118}
\end{minipage}
\hspace{.1\linewidth}
\begin{minipage}[t]{0.4\linewidth}
\centering
\includegraphics{image008.png}
\caption{The curve of the extracted and predicted random term displacement with time of XD-01}
\end{minipage}
\end{figure}
\end{document}
得到的图独自占了一页，图片还是只显示一小部分。该如何调整大小？
给你个使用 subfig + subcaption 宏包的例子：
\usepackage{graphicx}
\usepackage{caption}
\usepackage{subcaption}
\begin{figure}
& && &&&\centering
& && &&&\begin{subfigure}[b]{0.3\textwidth}
& && && && && & \centering
& && && && && & \includegraphics[width=\textwidth]{gull}
& && && && && & \caption{A gull}
& && && && && & \label{fig:gull}
& && &&&\end{subfigure}%
& && &&&~ %add desired spacing between images, e. g. ~, \quad, \qquad etc.
& && && & %(or a blank line to force the subfigure onto a new line)
& && &&&\begin{subfigure}[b]{0.3\textwidth}
& && && && && & \centering
& && && && && & \includegraphics[width=\textwidth]{tiger}
& && && && && & \caption{A tiger}
& && && && && & \label{fig:tiger}
& && &&&\end{subfigure}
& && &&&~ %add desired spacing between images, e. g. ~, \quad, \qquad etc.
& && && & %(or a blank line to force the subfigure onto a new line)
& && &&&\begin{subfigure}[b]{0.3\textwidth}
& && && && && & \centering
& && && && && & \includegraphics[width=\textwidth]{mouse}
& && && && && & \caption{A mouse}
& && && && && & \label{fig:mouse}
& && &&&\end{subfigure}
& && &&&\caption{Pictures of animals}\label{fig:animals}
\end{figure}复制代码
Powered by}