计算机科学论坛--显示贴子

以文本方式查看主题

-  计算机科学论坛  (http://bbs.xml.org.cn/index.asp)
--  『 XML 与数据库』  (http://bbs.xml.org.cn/list.asp?boardid=17)
----  大侠们，救救我呀！！！泣血求助导入问题  (http://bbs.xml.org.cn/dispbbs.asp?boardid=17&rootid=&id=9576)

--  作者：错狼
--  发布时间：8/26/2004 2:50:00 PM

--  大侠们，救救我呀！！！泣血求助导入问题
我以前是用Excel的VBA分析数据的，但是最近该网站用XML技术改版了，以前我是用新建Web查询功能下载网站数据的，现在不行了。我一导入，它就说导入空数据，本人没有接触过XML，实在搞不定了。我已经找了半个月了，没有找到代替的网站，所以现在恳求各位大哥，大姐，帮我看看，能不能拷贝这个网页里面的球队和赔率表格，非常感激。。。极度感激。
    http://www.1soccer.com/cr2.php 中间那个最大的表格就是了。里面有很多球队和赔率的，我就是要这个表格内，所有的数据。。。
   如果用VBA无法解决，那么请告知用什么方法可以得到这些数据。我放弃VBA！！！

[此贴子已经被作者于2004-8-26 22:52:42编辑过]

--  作者：错狼
--  发布时间：8/26/2004 2:51:00 PM

--
这里和ExcelHome非常相似，呵呵，很明了实用呀！
我再ExcelHome里面每天都问了，但是几百人看了，居然没有人懂XML的，所以不得不在这里打搅大家！！！

--  作者：woshihuiyuan
--  发布时间：8/26/2004 4:41:00 PM

--
没搞懂什么意思

--  作者：错狼
--  发布时间：8/26/2004 8:43:00 PM

--
Sub Macro1()
    ActiveWorkbook.Worksheets.Add
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;http://www.lsoccer.com/cr2.php?offset=50&today=1&db_acoID=100", _
        Destination:=Range("A1"))
        .Name = "cr2.php?offset=50&today=1&db_acoID=100"
        .FieldNames = True
        .RowNumbers = False
        .FillAdjacentFormulas = False
        .PreserveFormatting = True
        .RefreshOnFileOpen = False
        .BackgroundQuery = True
        .RefreshStyle = xlInsertDeleteCells
        .SavePassword = False
        .SaveData = True
        .AdjustColumnWidth = True
        .RefreshPeriod = 0
        .WebSelectionType = xlSpecifiedTables
        .WebFormatting = xlWebFormattingNone
        .WebTables = "15"
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
End Sub
这个是用录制宏得到的VBA程序。谢谢楼上大哥回答！！！

--  作者：错狼
--  发布时间：8/29/2004 8:12:00 PM

--
顶一下

W 3 C h i n a ( since 2003 ) 旗下站点
苏ICP备05006046号《全国人大常委会关于维护互联网安全的决定》《计算机信息网络国际联网安全保护管理办法》

2,238.281ms