自动更新按不了

大神们帮忙看看，为什么我的数据更新表“点击这里，自动更新双色球”完全点不了，是死的，我的EXCEL是2007版的，关闭防火墙也不行，下载新的更新数据表也是不行，到底是什么原因呢？

知道的大神说一下

Excel入门汇总，学完这些你也可以做表
https://bbs.17500.cn/forum.php?mod=viewthread&tid=4316235&fromuid=245385
(出处: 乐彩论坛)
https://bbs.17500.cn/data/attachment/forum/day_111018/1110181655daa1a74a93359fbc.gif

我的这个按钮是死的，没法点击的，宏是已经启动的了，里面也有代码的，就是在网站下载了新的自动更新表也是这样，不是说点了后没更新数据，这个会不会跟OFFICE版本有关系？我的是2007版的

本帖最后由 行空午马 于 2020-5-24 09:33 编辑



Alt+F11键，进入vba窗口，按F5键，看看是否能运行代码，如不行，重装excel吧

按了F5不能运行代码，是不是代码有问题？应该不是EXCEL的问题，因为我的其它代码可以运行，我的代码是刚从网站下载的，请帮忙看看有没有问题

Private Sub CommandButton1_Click()

Range("A3:AC3500").Clear

k3dshijihao = "http://182.92.109.149/getData/ssq.TXT"

d3s = "WData3D_All"

Cells(2, 1) = "开奖期号"
Cells(2, 2) = "开奖日期"
Cells(2, 3) = "红"
Cells(2, 4) = "号"
Cells(2, 5) = " "
Cells(2, 6) = " "
Cells(2, 7) = " "
Cells(2, 8) = " "
Cells(2, 9) = "蓝"

Cells(2, 10) = "红"
Cells(2, 11) = "号"
Cells(2, 12) = "出"
Cells(2, 13) = "球"
Cells(2, 14) = "顺"
Cells(2, 15) = "序"

Cells(2, 16) = "投注总额"
Cells(2, 17) = "奖池金额"

Cells(2, 18) = "一等注数"
Cells(2, 19) = "一等金额"

Cells(2, 20) = "二等注数"
Cells(2, 21) = "二等金额"

Cells(2, 22) = "三等注数"
Cells(2, 23) = "金额"

Cells(2, 24) = "四等注数"
Cells(2, 25) = "金额"

Cells(2, 26) = "五等注数"
Cells(2, 27) = "金额"

Cells(2, 28) = "六等注数"
Cells(2, 29) = "金额"

cz = k3dshijihao: czmc = d3s


With ActiveSheet.QueryTables.Add(Connection:= _
"TEXT;" & cz, Destination:=Range("A3"))
.Name = czmc
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.RefreshStyle = xlInsertDeleteCells
.SavePassword = False
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.TextFilePromptOnRefresh = False
.TextFilePlatform = xlWindows
.TextFileStartRow = 1
.TextFileParseType = xlDelimited
.TextFileTextQualifier = xlTextQualifierDoubleQuote
.TextFileConsecutiveDelimiter = True
.TextFileTabDelimiter = False
.TextFileSemicolonDelimiter = False
.TextFileCommaDelimiter = False
.TextFileSpaceDelimiter = True
.TextFileColumnDataTypes = Array(1, 2, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1, 1)
.TextFileTrailingMinusNumbers = True
.Refresh BackgroundQuery:=False
End With
Range("A" & (Application.Count(Range("a1:a3000")))).Select
End





End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)

End Sub

说到底应该就是更新表的activex控件不能执行代码，这是什么原因呢？

是不是这个更新表的这个代码只能用于activex控件？

可以肯定而且一定肯定的是：论坛里下载的excel更新表格，如果你用不了，一定是你自己电脑的问题了，否则彩友们早都会集中反映这个问题了，尝试修复一下自己的excel吧

大师说的对，的确上重新安装了2013版本后就可以了