查看: 2363|回复: 9
急求助，关于网页数据采集
阅读权限10
在线时间 小时
各位大神们，小弟刚上手VBA，对一些语言还不是很熟，但这件事情比较急，对不住大家了
.cn/fzjy/ccpm//index.xml
这是网址例子
我的目标是：
1。采集上面关于“国泰君安”的数据，需要在excel里面呈现形式为：第一列title为instrumentID后面的数据（比如IF1006），第二列为shortname后面的数据（比如国泰君安），第三列为Volume后面的，第四列为varvolume后面的
2。可以注意到域名里面有日期，我需要整理20101的数据
类似网络爬出，多谢各位大神，或者大家给一些靠谱的地址供类似的学习也谢过了！
阅读权限10
在线时间 小时
求各位大神帮忙啊！在线等！
阅读权限10
在线时间 小时
大神给求助啊，能帮上的可以支付宝支付50块钱@@学生无产阶级啊。。。真心求助啊，我想这个会的话应该是很简单的。。。但现在还在学习阶段，希望各路大神接济！
阅读权限10
在线时间 小时
继续在线等。。。多谢大家！
阅读权限10
在线时间 小时
求助啊！各位大神！
阅读权限10
在线时间 小时
大神们！求助啊。。。
阅读权限50
在线时间 小时
Sub test()
& & On Error Resume Next
& & With CreateObject(&Microsoft.XMLHTTP&)
& && &&&.Open &get&, &.cn/fzjy/ccpm//index.xml&, False
& && &&&.Send
& && &&&Set X = .responseXML.getElementsByTagName(&data&)
& && &&&For i = 0 To X.Length - 1
& && && && &Cells(i + 1, 1) = X(i).getAttributeNode(&Text&).NodeValue
& && && && &Cells(i + 1, 2) = X(i).getAttributeNode(&Value&).NodeValue
& && && && &For j = 3 To 10
& && && && && & Cells(i + 1, j) = X(i).ChildNodes(j - 3).Text
& && && && &Next j
& && &&&Next i
& & End With
阅读权限10
在线时间 小时
蓝天630902 发表于
Sub test()
& & On Error Resume Next
& & With CreateObject(&Microsoft.XMLHTTP&)
太牛逼了大神！虽然只是这一张网页上的，但是真的好牛逼！多谢多谢！其实我也做的差不多了。。。嘿嘿，还是多谢大神啦！
阅读权限50
在线时间 小时
bcc059612 发表于
太牛逼了大神！虽然只是这一张网页上的，但是真的好牛逼！多谢多谢！其实我也做的差不多了。。。嘿嘿，还 ...
因为没有找到合适的交易日期获取办法，所以只好勉强用下面的代码：
Sub 获取交易数据()
& & On Error Resume Next
& & 获取交易日历
& & With CreateObject(&Microsoft.XMLHTTP&)
& && &&&For p = 2 To Sheet2.Range(&a65536&).End(xlUp).Row
& && && && &If Len(Sheet2.Cells(p, 1)) & 8 Then
& && && && && & .Open &get&, &.cn/fzjy/ccpm/& & Sheet2.Cells(p, 1) & &/index.xml&, True
& && && && && & .Send
& && && && && & Do Until .ReadyState = 4
& && && && && && &&&DoEvents
& && && && && & Loop
& && && && && & Set x = .responseXML.getElementsByTagName(&data&)
& && && && && & n = Sheet1.Range(&a65536&).End(xlUp).Row
& && && && && & For i = 0 To x.Length - 1
& && && && && && &&&Sheet1.Cells(i + 1 + n, 1) = x(i).getAttributeNode(&Text&).NodeValue
& && && && && && &&&Sheet1.Cells(i + 1 + n, 2) = x(i).getAttributeNode(&Value&).NodeValue
& && && && && && &&&For j = 3 To 10
& && && && && && && && &Sheet1.Cells(i + 1 + n, j) = x(i).ChildNodes(j - 3).Text
& && && && && && &&&Next j
& && && && && & Next i
& && && && && & Set x = Nothing
& && && && &End If
& && &&&Next p
& & End With
Sub 获取交易日历()
& & Dim a()
& & s = Format(Date, &yyyy-mm&)
& & t = Format(Date, &yyyy&)
& & v = Format(Date, &mm&)
& & w = Format(Val(v) - 1, &00&)
& & u = 6 * (Val(t) - 2010) + Int((Val(v) + 1) / 2)
& & ReDim a(1 To u)
& & For i = 2010 To t
& && &&&For j = 1 To 11 Step 2
& && && && &p = p + 1
& && && && &a(p) = i & &-& & Format(j, &00&)
& && && && &If a(p) = s Or a(p) = t & &-& & w Then Exit For
& && &&&Next j
& & Next i
& & Sheet2.Activate
& & Sheet2.Cells.NumberFormatLocal = &@&
& & On Error Resume Next
& & With CreateObject(&internetexplorer.application&)
& && &&&For i = 1 To p
& && && && &.Visible = True
& && && && &.Navigate &/stock/lhb,& & a(i) & &.html#list&
& && && && &Do Until .ReadyState = 4
& && && && && & DoEvents
& && && && &Loop
& && && && &For k = 1 To 2
& && && && && & Set r = .Document.all.tags(&table&)(k).all.tags(&a&)
& && && && && & For j = 0 To r.Length - 1
& && && && && && &&&n = Sheet2.Range(&a65536&).End(xlUp).Row
& && && && && && &&&s = Split(Split(r(j).href, &,&)(1), &.&)(0)
& && && && && && &&&Sheet2.Cells(n + 1, 1) = Replace(Left(s, 7) & &/& & Right(s, 2), &-&, &&)
& && && && && && &&&s = &&
& && && && && & Next j
& && && && && & Set r = Nothing
& && && && &Next k
& && &&&Next i
& && &&&.Quit
& & End With
& & 'MsgBox &OK&
阅读权限50
在线时间 小时
上面的代码中
n = Sheet1.Range(&a65536&).End(xlUp).Row
n = Sheet1.Range(&a1048576&).End(xlUp).Row
恐怕要更好些
最新热点 /1
只要3分钟，完成微软安卓版Office体验问卷，微软官方定制好礼就送到你面前：证书、卫衣、电脑内胆包等,好礼多，中奖几率高，极具纪念意义!
嘘，一般人，我不告诉他。
玩命加载中，请稍候
玩命加载中，请稍候
Powered by
本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！ & & 本站特聘法律顾问：徐怀玉律师 李志群律师查看:4780|回复：13
单位用的是联通100M的光纤，固定上网是27台。昨天来了4个实习大学生，我在该学生办公室家了一部TP交换机。自昨天中午开始，上网就慢了，今天上午更新网站有点费劲了，打网页慢。中午开始，PC网速就是10K左右，网页根本打不开。我将H3C的路由器恢复了出厂设置，二层交换机也进行了出厂设置，到现在为止，还是QQ勉强能上，百度首页可以打开，但是点一下新闻，就打不开了。IP没有限制，没有限制流量。到底问题出现在哪儿了？有人说是不是水晶头氧化了？
助理工程师
你把学生那边加的TP交换机 拿掉 看看 网是否恢复正常。
引用:原帖由 bookzjw 于
18:32 发表
你把学生那边加的TP交换机 拿掉 看看 网是否恢复正常。 我也认为是那儿出现了问题，已拿掉，但是还没有恢复。
引用:原帖由 特种兵海洋 于
18:36 发表
我也认为是那儿出现了问题，已拿掉，但是还没有恢复。 刚才有人告诉我可能是某台电脑中病毒或者网卡出现问题导致不断发包，最有可能的还是那4个学生的电脑。不知道您认为呢？
助理工程师
路由器所有的线都拔掉，拿一根线连路由和笔记本，测试一下网是否有问题（如果有问题，可能是路由的问题也可能是联通的问题），一步一步排查。没问题再测二层，如果二层没问题再测TP& &最后确定是否是 某一pc导致的问题。
资深技术经理
抓包分析下流量……
才24台电脑，100M带宽，太奢侈了……
高级工程师
大学生使用了ARP中间人攻击？
打电话给联通客服，处理数据。
白袍大法师
1、断开所有内网络网络，只接一个电脑，看能不能上网！
2、把配置搞出来，看看
你的情况没说清楚，打不开网页，别的能打开吗？PINg？
天下风云出我辈， 一入江湖岁月催。当年的“小侠唐在飞” 如今变成了“大侠唐在飞”。?金杯银杯，不如网友的口碑；金奖银奖，不如网友的褒奖；熊掌鸭掌，不如网友的鼓掌~& &
?欢迎加入“唐志强技术教学交流群”，群号：。?
拿着笔记本，从接入点测试，主干网没问题就看下一阶设备，观察交换机路由器的指示灯是否正常。
初级工程师
抓包看看有没有异常流量；
逐条拔线，看看哪个接口引起网络问题。
那个笔记本到机房连一根网线，然后抓包，把其他的网线全部的拔掉，再一根根插回去，直到包不正常为止，就会判定那个区域出问题！这样逐渐缩小范围，找出原因。
祝你好运！
助理工程师
你根据这几种测试方法测试一下：
& && & 1.使用ping、nmap等网络检测工具检测一下。首先查看一下是不是局域网的问题。
& && &&&2.我之前也遇到过这个问题，看是不是那个TP交换机在发广播报，将你的局域网带宽给堵塞了。
& && &&&3.如果你PC到网关的线路是正常的话，traceroute你进行路由跟踪一下目标ip地址，看哪一个路由出现了问题。
高级工程师
为什么每次提问题的人不作出一些基本的检测呢
Copyright&
本论坛言论纯属发布者个人意见，不代表51CTO网站立场！如有疑义，请与管理员联系：紧急求助：电脑明明显示网络已连接，为什么打不开网页？_电脑吧_百度贴吧
&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&签到排名：今日本吧第个签到，本吧因你更精彩，明天继续来努力！
本吧签到人数：0成为超级会员，使用一键签到本月漏签0次！成为超级会员，赠送8张补签卡连续签到：天&&累计签到：天超级会员单次开通12个月以上，赠送连续签到卡3张
关注：1,883,164贴子：
紧急求助：电脑明明显示网络已连接，为什么打不开网页？收藏
我这台点脑是用路由器连接老弟那个房间的电脑，可是从昨晚刚开始时显示脱机无法连接电脑，还有什么拨号之类的，今天干脆就显示无法打开网页！可是网络接2明明显示已连接上了，右下方有两台小电脑连接的显示。可是只有一台小电脑显示亮光，另一个却是黑色的
电脑,「亚马逊」中国网购专业平台,上千万种商品任您选!30天免费退换!
帅锅，一个亮一个不亮就是有发送没收到。也就是说没连上网看看是不是得填IP地址呢
登录百度帐号推荐应用
为兴趣而生，贴吧更懂你。或