Public Sub CommandButton1_Click()
With Me
.Columns("A:P").ClearContents
With .QueryTables.Add(Connection:="URL;
http://taobao.cjcp.com.cn/cjwssc ... gxissc-0-3-840.html", _
Destination:=.Range("A1"))
' .Name = "29_4"
' .FieldNames = True
' .RowNumbers = False
' .FillAdjacentFormulas = False
' .PreserveFormatting = True
' .RefreshOnFileOpen = False
' .BackgroundQuery = True
' .RefreshStyle = xlInsertDeleteCells
' .SavePassword = False
' .SaveData = True
' .AdjustColumnWidth = True
' .RefreshPeriod = 0
' .WebSelectionType = xlAllTables
' .WebFormatting = xlWebFormattingNone
' .WebPreFormattedTextToColumns = True
' .WebConsecutiveDelimitersAsOne = True
' .WebSingleBlockTextImport = False
' .WebDisableDateRecognition = False
' .WebDisableRedirections = False
.Refresh BackgroundQuery:=False
End With
End With
End Sub
123c.rar
(57.4 KB, 下载次数: 2)