excel vba读取html表格,[求助]如何利用VBA提取网页上的表格

耐心等会儿：

Sub Macro1()

Application.ScreenUpdating = False

Dim i As Long

With ActiveSheet.QueryTables.Add(Connection:="URL;http://rs.ffsky.cn/companion.htm#warrior", Destination:=Range("A1"))

.Name = "companion.htm#warrior"

.FieldNames = True

.RowNumbers = False

.FillAdjacentFormulas = False

.PreserveFormatting = True

.BackgroundQuery = True

.RefreshStyle = xlInsertDeleteCells

.SaveData = True

.AdjustColumnWidth = True

.RefreshPeriod = 0

.WebSelectionType = xlSpecifiedTables

.WebFormatting = xlWebFormattingNone

.WebTables = "3,4"

.WebPreFormattedTextToColumns = True

.WebConsecutiveDelimitersAsOne = True

.WebSingleBlockTextImport = False

.WebDisableDateRecognition = False

.WebDisableRedirections = False

.Refresh BackgroundQuery:=False

End With

[b:b].ColumnWidth = 5.75

For i = [a65536].End(xlUp).Row To 2 Step -1

If Cells(i, 1) Like "#*" Then

Rows(i).RowHeight = 38.25

Cells(i, 2).Select

ActiveSheet.Pictures.Insert "http://rs.ffsky.cn/img/character/small_pic/" & Right("000" & Cells(i, 1), 3) & ".jpg"

Else

Rows(i).Delete

End If

Next

Application.ScreenUpdating = True

End Sub