重庆时时彩自动更新号码模板（网站升级后）--12。21更新

蓝天630902

QQ472309904 发表于 2012-9-18 16:30
能加个升序代码嘛,,就是最新开奖要显示在第10000行

这样子是倒序：

Sub test()
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;http://www.500wan.com/static/public/ssc/txt/opencode/29.txt", Destination:=Range("A1"))
        .TextFileStartRow = 1
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
    n = Range("a65536").End(xlUp).Row
    Columns("A:G").Select
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Clear
    ActiveWorkbook.Worksheets("Sheet1").Sort.SortFields.Add Key:=Range("A1:A" & n), SortOn:=xlSortOnValues, Order:=xlDescending, DataOption:=xlSortNormal
    With ActiveWorkbook.Worksheets("Sheet1").Sort
        .SetRange Range("A1:G" & n)
        .Header = xlGuess
        .MatchCase = False
        .Orientation = xlTopToBottom
        .SortMethod = xlPinYin
        .Apply
    End With
End Sub


下面的是升序：

Sub test()
    Cells.Clear
    With ActiveSheet.QueryTables.Add(Connection:="TEXT;http://www.500wan.com/static/public/ssc/txt/opencode/29.txt", Destination:=Range("$A$1"))
        .TextFileStartRow = 1
        .TextFileCommaDelimiter = True
        .TextFileSpaceDelimiter = False
        .TextFileColumnDataTypes = Array(1, 1, 1, 1, 1, 1, 1)
        .Refresh BackgroundQuery:=False
    End With
End Sub

jxz1919

亲， 我把他一定能够到新表后，更新的速度超级慢。每秒钟只能更新一个格子，请问亲，是怎么回事呢？

jxz1919

亲，我把你这个表移动到我的表格里后，更新的速度超级慢，恳求解决的方法？

jxz1919

  需要2003版本的我转换了一个。

烟台大海

不能更新！

zpcnb8888

烟台大海 发表于 2012-9-21 23:11
不能更新！

这是2010版本的  你找找2003版本的  在14楼

bav99

谢谢！辛苦了

bav99

楼主，这几天表格更新只能更新日期，号码显示都为0，麻烦楼主看看，是不是网站哪里变动了？谢谢

bav99

我下载的是2003的版本，15号下载的，刚下载那几天都可以更新，在前几天就更新不了了，麻烦楼主给看看

bmdsjxyw

谢谢分享，这是我比较感兴趣的方面。