|
本人对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)
|
|