[已解决]EXCEL如何批量导入网页中的表格数据?

gwfzh · 发表于 2011-9-27 17:56

本帖最后由 gwfzh 于 2011-9-27 17:57 编辑

各位老师：请问如何用宏代码导入http://datachart.500wan.com/ssq/history/history.shtml网页中表格前面1-8列的数据或整个表格？我试用下面的代码时出现了“运行时错误1004：无法打开http://datachart.500wan.com/ssq/history/history.shtml="&wd。internet网站报告：找不到需要的内容（HTTP//1.0 404)"的错误，现请各位老师帮忙了！[

EXCEL如何批量导入网页中的表格数据.zip (9.51 KB, 下载次数: 42)

2011-9-27 17:57 上传

点击文件名下载附件 Sub getdata_form_500图表()    '图表地址：http://datachart.500wan.com/ssq/history/history.shtml
Application.ScreenUpdating = False
With Application
      .Calculation = xlManual
End With
Sheet3.Activate
Sheet3.Rows("1:207").Select
Selection.ClearContents             '用QueryTables.Add导入Html格式的文件到Excel中
With ActiveSheet.QueryTables.Add(Connection:="URL; http://datachart.500wan.com/ssq/history/history.shtml=" & i & "&wdmc=&tablename=airrb" _
, Destination:=Range("A65000").End(xlUp).Offset(1, 0))
      .Name = "changguisize=20_1"
      .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 = """talbe1"""
      .WebPreFormattedTextToColumns = True
      .WebConsecutiveDelimitersAsOne = True
      .WebSingleBlockTextImport = False
      .WebDisableDateRecognition = False
      .WebDisableRedirections = False
      .Refresh BackgroundQuery:=False
End With
Rows("3:207").Select
Selection.Sort Key1:=Range("B3"), Order1:=xlAscending, HEADER:=xlGuess, _
      OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom, SortMethod _
      :=xlPinYin, DataOption1:=xlSortNormal
Application.ScreenUpdating = True
End Sub

最佳答案

月排行榜 / 总排行榜

爱疯

2011-9-28 21:06

"URL; http://datachart.500wan.com/ssq/history/history.shtml=" & i & "&wdmc=&tablename=airrb"

这个网址打不开？能打开才可导入。

通过录制宏就可以得到了（模块2里），根据情况可简化些（模块3里）。

Sub a()
Cells.Clear
With ActiveSheet.QueryTables.Add( _
Connection:="URL;http://datachart.500wan.com/ssq/history/inc/history.php", _
Destination:=Range("A65000").End(xlUp).Offset(1, 0))
.Refresh BackgroundQuery:=False
End With
Range("A4:P" & Range("A4").End(xlDown).Row).Sort _
Key1:=Range("B3"), Order1:=xlAscending, HEADER:=xlGuess
End Sub

复制代码

EXCEL如何批量导入网页中的表格数据2.rar (9.7 KB, 下载次数: 241)

爱疯 · 发表于 2011-9-28 21:06

"URL; http://datachart.500wan.com/ssq/history/history.shtml=" & i & "&wdmc=&tablename=airrb"

这个网址打不开？能打开才可导入。

通过录制宏就可以得到了（模块2里），根据情况可简化些（模块3里）。

Sub a()
Cells.Clear
With ActiveSheet.QueryTables.Add( _
Connection:="URL;http://datachart.500wan.com/ssq/history/inc/history.php", _
Destination:=Range("A65000").End(xlUp).Offset(1, 0))
.Refresh BackgroundQuery:=False
End With
Range("A4:P" & Range("A4").End(xlDown).Row).Sort _
Key1:=Range("B3"), Order1:=xlAscending, HEADER:=xlGuess
End Sub

复制代码

EXCEL如何批量导入网页中的表格数据2.rar (9.7 KB, 下载次数: 241)

gwfzh · 发表于 2011-9-29 13:51

回复爱疯的帖子

谢谢爱疯老师：程序Sub a()出现运行错误"1004":此操作要求合并单元格都具有相同大小,不知是什么原因?

爱疯 · 发表于 2011-9-29 16:26

gwfzh 发表于 2011-9-29 13:51
回复爱疯的帖子

谢谢爱疯老师：程序Sub a()出现运行错误"1004":此操作要求合并单元格都具有相同大小,不 ...

是我的疏忽，被排序单元格区域存在合并单元格，所以提示。b()不会有这提示了。

Sub b()
Dim x As Long, y As Long
Cells.Delete
With ActiveSheet.QueryTables.Add( _
Connection:="URL;http://datachart.500wan.com/ssq/history/inc/history.php", _
Destination:=Range("A65000").End(xlUp).Offset(1, 0))
.Refresh BackgroundQuery:=False
End With
x = Range("A65000").End(xlUp).End(xlUp).Row
y = Range("A65000").End(xlUp).Row
Range(Cells(x, "A"), Cells(y, "P")).Sort _
Key1:=Range("B3"), Order1:=xlAscending, Header:=xlGuess
End Sub

复制代码

gwfzh · 发表于 2011-9-29 18:11

回复爱疯的帖子

谢谢爱疯老师：在你的帮助下，成功了！

littlebaggio · 发表于 2013-8-8 14:48

如果不知道网址怎么办？
例如：弹出的窗口（可能是Java script实现的效果）

littlebaggio · 发表于 2013-8-8 14:50

爱疯发表于 2011-9-29 16:26
是我的疏忽，被排序单元格区域存在合并单元格，所以提示。b()不会有这提示了。

有问题需要请教爱疯老师，希望可以留个邮箱。
多谢！

爱疯 · 发表于 2013-8-8 15:14

如果有相关疑问，建议在此版块发新的主题帖。
这样，会更及时、更好的解决问题。

singlewave · 发表于 2017-3-16 21:59

需要下载连续网页的表格数据，请大神帮忙，这个页面有69页，研究了大神们的宏，不会弄，请大神帮忙！
http:发不了链接sys.hnjst.gov.cn:8008/webSite_publish/Default.aspx?action=IntegrityMge/ucList

		自动登录	找回密码
密码			注册