[已解决]exce修改lvba代码

pfdsj8

各位大虾好，我有一个重庆时时彩表格不能更新了，能帮我看一下吗？不胜感激。

最佳答案

月排行榜 / 总排行榜

hwc2ycy

2013-7-28 12:41

过程名改了，按钮指定的宏忘了重新设置了，

2013年重庆时时彩开奖数据在线自动更新表最新模块.rar (297.79 KB, 下载次数: 33)

2013-7-28 12:41 上传

点击文件名下载附件

跳转到最佳答案楼层

hwc2ycy

1. Sub 更新()
   
2.     Application.ScreenUpdating = False
   
3.     With ActiveSheet.QueryTables.Add(Connection:="URL;http://zst.cjcp.com.cn/cjwssc/view/ssc_zonghe-zonghe-5-ssc-0-3-100.html", _
   
4.        Destination:=Range("G1"))
   
5.         '.FieldNames = True
   
6.         .RowNumbers = False
   
7.         .FillAdjacentFormulas = False
   
8.         '.PreserveFormatting = True
   
9.         .RefreshOnFileOpen = False
   
10.         '.BackgroundQuery = True
    
11.         .RefreshStyle = xlInsertDeleteCells
    
12.         .SavePassword = False
    
13.         '.SaveData = True
    
14.         '.AdjustColumnWidth = True
    
15.         .RefreshPeriod = 0
    
16.         .WebSelectionType = xlSpecifiedTables
    
17.         .WebFormatting = xlWebFormattingNone
    
18.         .WebTables = """tablepl5"""
    
19.         .WebPreFormattedTextToColumns = True
    
20.         .WebConsecutiveDelimitersAsOne = True
    
21.         '.WebSingleBlockTextImport = False
    
22.         '.WebDisableDateRecognition = False
    
23.         '.WebDisableRedirections = False
    
24.         .Refresh BackgroundQuery:=False
    
25.     End With
    
26.     Range(Range("H3:I3"), Range("H3:I3").End(xlDown)).Copy
    
27.     Range("a4").PasteSpecial Paste:=xlPasteValues
    
28.     Columns("G:V").ClearContents
    
29.     Application.CutCopyMode = False
    
30.     Range("a4").Select
    
31. End Sub

复制代码

pfdsj8

hwc2ycy 发表于 2013-7-27 07:18

求教 ，小弟愚笨麻烦2楼老师能在我上传的附件上给修改一下吗？谢谢麻烦老师了。拜托了，拜托了拜托了。

hwc2ycy

2013年重庆时时彩开奖数据在线自动更新表最新模块.rar (290.91 KB, 下载次数: 11)

2013-7-27 15:56 上传

点击文件名下载附件

pfdsj8

hwc2ycy 发表于 2013-7-27 15:56

你好，hwc2ycy老师问题没有解决，依然谢谢老师的帮忙。老师要是有空的话在帮忙给看一下。

pfdsj8

pfdsj8 发表于 2013-7-28 12:33
你好，hwc2ycy老师问题没有解决，依然谢谢老师的帮忙。老师要是有空的话在帮忙给看一下。

你好，hwc2ycy老师问题没有解决，依然谢谢老师的帮忙。老师要是有空的话在帮忙给看一下。

hwc2ycy

过程名改了，按钮指定的宏忘了重新设置了，

2013年重庆时时彩开奖数据在线自动更新表最新模块.rar (297.79 KB, 下载次数: 33)

2013-7-28 12:41 上传

点击文件名下载附件

pfdsj8

{:1112:}