有没有vba熟悉一点的，帮忙修改下时时彩自动更新表格？

sincor

有没有vba熟悉一点的，帮忙修改下时时彩自动更新表格？

这个表格突然今天不能自动更新了，不知道是怎么回事！

SSC自动改新.rar (77.02 KB, 下载次数: 258)

2013-10-28 11:30 上传

点击文件名下载附件

gaohong267

网址是不是变更了

sincor

gaohong267 发表于 2013-10-28 11:37
网址是不是变更了

我不懂啊，能否帮忙看看

liucqa

http://500wan.zone.tenpay.com/st ... xml/historyopen.xml

这个是数据源，如果没更新的话，你的代码也不会更新


里面的代码只是做一下XML数据源的刷新，这种数据采集方式，只对XML数据页面有效。
在Excel里面建立XML映射之后，将导入XML的数据源设成网址，就可以刷新和提取网页数据了。

liucqa

XmlDataBinding 对象成员

代表用于某个 XmlMap 对象的源数据连接。

方法

  名称 说明
ClearSettings 删除指定的数据绑定。
LoadSettings 使用 XML 数据文件或数据检索服务连接 (.uxdc) 文件中的设置初始化指定的数据绑定。
Refresh 使用指定的 XmlDataBinding 对象的当前连接设置检索 XML 数据。  

属性

  名称 说明
Application 如果不使用对象识别符，则该属性返回一个代表 Microsoft Excel 应用程序的 Application 对象。如果使用对象识别符，则该属性返回一个代表指定对象的创建程序的 Application 对象（可对一个 OLE 自动化对象使用该属性来返回该对象的应用程序）。只读。
Creator 返回一个 32 位整数，该整数指示创建对象的应用程序。只读 Long 类型。
Parent 返回指定对象的父对象。只读。
SourceUrl 返回一个 String 值，它代表为指定数据绑定提供源数据的 XML 数据文件或 Web 服务的路径。只读。

liucqa

先建立个映射XmlMaps("xml_映射")。然后执行下面的语句，就能在工作表里面得到xml文件的数据了
http://msdn.microsoft.com/library/gg469857.aspx


Sub 宏1()
   Dim ret
    ret = ActiveWorkbook.XmlMaps("xml_映射").Import(URL:="http://500wan.zone.tenpay.com/static/public/ssc/xml/historyopen.xml")
    MsgBox ret
End Sub

sincor

感谢楼上各位，已经解决了，就是网址变了，直接改模块里面的网址来的最快

瘸子

我也有个表格不更新了，楼主能不能帮我弄下，亲亲，1358138911，谢谢，我等级不够，不能私信