Excel精英培训网

 找回密码
 注册
数据透视表40+个常用小技巧,让你一次学会!
查看: 2216|回复: 5

[已解决]高手进来帮忙看看VBA代码问题

[复制链接]
发表于 2015-11-30 17:15 | 显示全部楼层 |阅读模式
本人对VB是个小白,别人的代码换了网络连接出现数据跳转问题,希望论坛的大大们帮忙修改一下,先谢谢各位大大了!代码如下:(本人无权发网址链接,故代码网址只能为空,具体在附件中)

Sub 更新()
    Range("A1").Select
    With ActiveSheet.QueryTables.Add(Connection:= _
        "URL;网站" _
        , Destination:=Range("A1"))
        .Name = _
        "ssc_zonghe-zonghe-5-ssc-0-3-480.html"
        .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 = """tablepl5"""
        .WebPreFormattedTextToColumns = True
        .WebConsecutiveDelimitersAsOne = True
        .WebSingleBlockTextImport = False
        .WebDisableDateRecognition = False
        .WebDisableRedirections = False
        .Refresh BackgroundQuery:=False
    End With
    Range("A4:C4").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.Copy
    Range("A4").Select
    Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
        :=False, Transpose:=False
    Columns("D:P").Select
    Application.CutCopyMode = False
    Selection.ClearContents
    Range("A482").Select
End Sub

数据更新.rar (18.18 KB, 下载次数: 4)
发表于 2015-11-30 23:07 | 显示全部楼层
回复

使用道具 举报

发表于 2015-11-30 23:10 | 显示全部楼层
我测试可以使用哦   是不是版本的问题   浏览器的问题
回复

使用道具 举报

 楼主| 发表于 2015-11-30 23:18 | 显示全部楼层
freexun_zp 发表于 2015-11-30 23:10
我测试可以使用哦   是不是版本的问题   浏览器的问题

每点击更新一次,表格数据会跳到后列,我是想让每一次更新的新数据覆盖原数据的代码!望高手赐教!
回复

使用道具 举报

发表于 2015-12-1 10:01 | 显示全部楼层    本楼为最佳答案   
  1. Sub 更新()
  2.     ActiveSheet.Cells.Clear
  3.     With ActiveSheet.QueryTables.Add(Connection:= _
  4.         "URL;http://tbapp.cjcp.com.cn/cjwssc/view/ssc_zonghe-zonghe-5-ssc-0-3-480.html" _
  5.         , Destination:=Range("A1"))
  6.         .Name = "ssc_zonghe-zonghe-5-ssc-0-3-480.html"
  7.         .FieldNames = True
  8.         .RowNumbers = False
  9.         .FillAdjacentFormulas = False
  10.         .PreserveFormatting = True
  11.         .RefreshOnFileOpen = False
  12.         .BackgroundQuery = True
  13.         .RefreshStyle = xlInsertDeleteCells
  14.         .SavePassword = False
  15.         .SaveData = True
  16.         .AdjustColumnWidth = True
  17.         .RefreshPeriod = 0
  18.         .WebSelectionType = xlSpecifiedTables
  19.         .WebFormatting = xlWebFormattingNone
  20.         .WebTables = """tablepl5"""
  21.         .WebPreFormattedTextToColumns = True
  22.         .WebConsecutiveDelimitersAsOne = True
  23.         .WebSingleBlockTextImport = False
  24.         .WebDisableDateRecognition = False
  25.         .WebDisableRedirections = False
  26.         .Refresh BackgroundQuery:=False
  27.     End With
  28.     [c:p].Clear
  29. End Sub
复制代码

数据更新.rar

10.68 KB, 下载次数: 7

回复

使用道具 举报

 楼主| 发表于 2015-12-1 13:34 | 显示全部楼层
grf1973 发表于 2015-12-1 10:01

问题解决!感谢您的帮助!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|Archiver|Excel精英培训 ( 豫ICP备11015029号 )

GMT+8, 2024-3-29 15:19 , Processed in 0.503781 second(s), 10 queries , Gzip On, Yac On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

快速回复 返回顶部 返回列表