怎样用Excel自动获取双色球网站数据并自动更新

可采用Application.OnTime循环运行一个宏。

如下VBA每隔1分钟从网络上获取数据并更新在本sheet中。

你所要获取的网站，自己复制网址和图表名称替换代码即可。

Sub DataColl()

Application.OnTime Now + TimeValue("00:01:00"), "DataColl"

    With ActiveSheet.QueryTables.Add(Connection:="URLhttp://ip.zdaye.com", _

        Destination:=Range("$A$1"))

        .Name = "ip.zdaye"

        .FieldNames = True

        .RowNumbers = False

        .FillAdjacentFormulas = False

        .PreserveFormatting = True

        .RefreshOnFileOpen = False

        .BackgroundQuery = True

        .RefreshStyle = xlInsertDeleteCells

        .SavePassword = False

        .SaveData = True

        .AdjustColumnWidth = True

        .RefreshPeriod = 0

        .WebSelectionType = xlEntirePage

        .WebFormatting = xlWebFormattingNone

        .WebPreFormattedTextToColumns = True

        .WebConsecutiveDelimitersAsOne = True

        .WebSingleBlockTextImport = False

        .WebDisableDateRecognition = False

        .WebDisableRedirections = False

        .Refresh BackgroundQuery:=False

    End With

End Sub

两个方法：

1，如果你有更新的宏，在打开工作簿事件中调用

2，如果没有宏，粘贴网页数据，使用web查询

网上的表格制作和excel不一样，他是后天从数据库中获取数据生成网页的，当然最初的一条最新数据可能是人工输入或者读取别的网站的开奖数据

---