[分享]网页数据下载与控制

plasma3300 · 发表于 2011-6-19 20:23

感谢楼主分享。相当受教

hustnzj · 发表于 2011-6-19 22:12

呵呵，很好的资料。待学习--hustnzj

自由的鲁小小 · 发表于 2011-7-16 03:11

哇太感谢了我正需要这个来学习啊谢谢

gfs57 · 发表于 2011-7-3 19:58

原帖由 gdjxwz 于 2007-6-10 06:00 发表
网页数据下载与控制（2007年6月9日）    近期写了一段程序：从网上下载数据，写入数据库，查询、分析、打印。找了很多的资料，现作一回顾总结，本篇主要写网页数据下载与控制。（以下均为本人的一些心 ...

绝对是有用的好东西，先留个记号，挤时间学习学习。谢谢分享!

sunya_0529 · 发表于 2011-7-4 17:47

好东西，顶一个先！

mantou008 · 发表于 2011-7-27 18:11

我从楼主分享里面找了段适用的代码，但是运行起来有错误，请楼主给指导下。
Sub xq()

weburl = "URL;http://www.linyi.gov.cn/all/all.htm1?colid=282"
Strpost = "year_start=%202011&month_start=%201&date_start=%201&" & _
"hour_start=%200" & _
"&year_end=%202011&month_end=%207&date_end=%2028&hour_end=%200" & _
"&substation%5B%5D=00&R1=sortall&order=1&desckey="
With Exsheet.QueryTables.Add(Connection:=weburl, & _
Destination:=Exsheet.Range("a1"))
      .PostText = Strpost       'post字串
   .BackgroundQuery = True
      .WebSelectionType = xlSpecifiedTables
      .WebTables = "1"    '导入网页中的第一个表，也只有一个表格，网页上可能会包含很多个表格，表格让你组织网页内容。当在记事本里查看HTML源代码时，你会发现通过下述标签你很容易识别这些表格：<TABLE>（表格开始）和</TABLE>（表格结束）
      .WebFormatting = xlWebFormattingAll
      .RefreshStyle = xlOverwriteCells
      .AdjustColumnWidth = True
      On Error GoTo Wlcw
      .Refresh BackgroundQuery:=False    '发送命令？
      On Error GoTo 0
      .SaveData = True
End With
'数据已写入到EXCEL
……

Wlcw:    '网络不通
If P_cxzlly = "sccx" Or P_cxzlly = "qmcx" Then
      aa = MsgBox("网络不通,请手动打开网络http://www.linyi.gov.cn/all/all.htm1?colid=282试试!", vbOKOnly, "提示")
End If
Exit Sub

[ 本帖最后由 mantou008 于 2011-7-28 10:43 编辑 ]

hz2003 · 发表于 2011-8-1 15:35

正在学习

bojibaobao · 发表于 2011-8-11 02:50

谢谢分享正急需~

nowarmy · 发表于 2011-9-1 17:30

谢谢楼主分享，下载学习啦。

exvba · 发表于 2011-10-3 11:26

向楼主致敬！！！！！！！

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

[分享]网页数据下载与控制

谢谢~~~~