百度地图批量标注遇到的问题-方法和数据成员未找到？？

wegone · 发表于 2018-9-25 16:16

这个工具之前一直能用，但是最近却总是报错，代码还是原来的，不知道为什么？就是这个模块总报错，求大神指点！！跪谢！！

Sub HTMLNavigation()
'Open site if it requires a PassWord Model!
'before running this, you need to insert and "microsoft.WebBrowser"to your excel.the method is to use this webbrowser to open the site first so that the cookies will be saved so as to make data-refresh possible.

'Call CreateHTML

Dim IE As Object

Set IE = Sheet1.WebBrowser1

IE.Visible = True

'Go to this Web Page!
IE.Navigate ThisWorkbook.Path & "\Map plotter.html"

'Check for good connection to web page loop!
Do
If IE.ReadyState = 4 Then '4="READYSTATE_COMPLETE"
      'IE.Visible = False
      Exit Do
Else
      DoEvents
End If
Loop

Application.StatusBar = "Refreshing the map, please wait..."

'Wait for window to open!
Application.Wait (Now + TimeValue("0:00:03"))
Application.StatusBar = False
IE.Visible = True

End Sub

wegone · 发表于 2018-9-25 16:17

这个工具很有用，希望大神帮忙解决一下，也可以供其他人使用。

YZC51 · 发表于 2018-9-25 22:08

请参考，文件已经修复，数据请自行添加！

坐标在百度地图中标记-升级版修复09-25.rar (78.04 KB, 下载次数: 286)

YZC51 · 发表于 2018-9-25 22:09

wegone 发表于 2018-9-25 16:17
这个工具很有用，希望大神帮忙解决一下，也可以供其他人使用。

文件已经修复，数据还请楼主自行添加！

wegone · 发表于 2018-9-27 20:04

YZC51 发表于 2018-9-25 22:08
请参考，文件已经修复，数据请自行添加！

大神万分感谢

YZC51 · 发表于 2018-9-28 09:32

wegone 发表于 2018-9-27 20:04
大神万分感谢

谢谢老师鲜花鼓励！

YZC51 · 发表于 2019-5-11 16:24

已经修复！！！

坐标在百度地图中标记-升级版修复20190511.rar (99.9 KB, 下载次数: 141)

wegone · 发表于 2019-5-23 17:53

YZC51 发表于 2019-5-11 16:24
已经修复！！！

感谢老师，向您致敬，向您学习

。W、tw · 发表于 2019-9-27 08:28

楼主，我的电脑是64位的，打开就报错了，不知道你有没有解决这个问题？

。W、tw · 发表于 2019-9-27 08:30

YZC51 发表于 2019-5-11 16:24
已经修复！！！

您好，想问下64位系统的打开就报错了，不知道要怎么改
微信图片_20190927083041.png

		自动登录	找回密码
密码			免费注册

[求助] 百度地图批量标注遇到的问题-方法和数据成员未找到？？

评分

评分