如何将网页资料导入excel

蓝天630902

张淳 发表于 2012-4-4 11:05
请问蓝天老师老师，你可以做一个 历史股票行情得vba吗？
http://q.stock.sohu.com/app2/history.up?method ...

Sub test()
    Dim temp, s
    With CreateObject("Microsoft.XMLHTTP")
        .Open "GET", "http://q.stock.sohu.com/app2/history.up?method=history&code=cn_000099&sd=2012-3-6&ed=2012-7-24&t=d&res=js", False
        .Send
        temp = Split(Replace(Replace(Replace(.responsetext, "'", ""), "[", ""), vbLf, ""), "]")
        For i = 0 To UBound(temp) - 3
            s = Split(temp(i), ",")
            For j = 1 To UBound(s)
                Cells(i + 1, j) = s(j)
            Next j
        Next i
    End With
End Sub

金文泰

蓝天630902 发表于 2012-1-20 06:35
1、打开：（把下面的“用户名”换成你自己的电脑用户名）
C:\Documents and Settings\“用户名”\Local  ...

win7怎么得到地址？

蓝天630902

金文泰 发表于 2012-8-30 18:30
win7怎么得到地址？

win7，不知道，没有用过，应该也有缓存的

引子玄

仔细看了下，xmlhttp法比ＩＥ法要难很多，
xmlhttp法很抽象，很复杂；
ＩＥ法更形象，也更简单．
xmlhttp法光找出内存的ＵＲＬ地址，就够呛的．{:soso_e193:}还有一大堆抽象的网页代码，看了头都要大．

金文泰

蓝天630902 发表于 2012-8-30 18:32
win7，不知道，没有用过，应该也有缓存的

2012年中报业绩大全
这个中报大全表格的地址Win7，找不到。
http://data.eastmoney.com/bbsj/201206/yjbb/ggrq/1.html


以前用excel的web的提取表格方法，对于多页的表格有点麻烦。这个VBA方法不错，可以实现一次提取。

代码的如果格式化SH60××××和SZ××××××,更好。

金文泰

引子玄 发表于 2012-8-30 20:11
仔细看了下，xmlhttp法比ＩＥ法要难很多，
xmlhttp法很抽象，很复杂；
ＩＥ法更形象，也更简单．

xmlhttp法找出内存文件的ＵＲＬ地址，win7，就不好找，
C:\Users\“用户名”\AppData\Local\Microsoft\Windows\Temporary Internet Files，没有蓝天630902说的文件

引子玄

金文泰 发表于 2012-8-30 21:37
xmlhttp法找出内存文件的ＵＲＬ地址，win7，就不好找，
C:\Users\“用户名”\AppData\Local\Microsoft\W ...

ＩＥ８浏览器可以找到的，提醒：那是自己电脑的相对路径．

金文泰

引子玄 发表于 2012-8-30 21:40
ＩＥ８浏览器可以找到的，升级一下

我现在用的IE9。

引子玄

金文泰 发表于 2012-8-30 21:41
我现在用的IE9。

那就更先进了．
缓存地址，是一个相对路径．比如我现在的电脑是：D:\新建的移出来的缓存文件夹\Internet 临时文件
（蓝天大师提示的路径，不是绝对路径，而是相对路径）
等下我回家后，用的也是Ｅ８，但路径又不一样了，因为电脑系统不同一个版本．

缓存里的ＤＤ很多，比如有：
JScript Script File
各种类型的图象
HTML、XML、PHP等各种类型文件
层叠样式表
ＪＳ文件
、、、、、、等很多的DD

liudaliuda668

蓝天630902 发表于 2012-7-24 22:37
Sub test()
    Dim temp, s
    With CreateObject("Microsoft.XMLHTTP")

蓝天老师好。很羡慕老师能搞出这样的网址 ：http://q.stock.sohu.com/app2/history.up?method=history&code=cn_000099&sd=2012-3-6&ed=2012-7-24&t=d&res=js
不瞒老师说，我想要东方财富网站天天基金中的“估值”的数据列表，整天看该网站的源码，什么火车头、firebug等工具都学者试了一边，似懂非懂的，就是组合不出链接来。在本论坛，我也认真学习了VBA网抓教程，并进行了模拟演练，还是能看懂搞不出自己的链接。
正则法，我也试过，毕竟自己水平太低，模仿不来。
在本论坛，发现还有狼版主编辑的东方财富过的链接也很漂亮：http://data.eastmoney.com/zjlx/info.html
               还有一位老师破解的链接：http://hq2data.eastmoney.com/fund/fundlist.aspx?jsName=fundListObj&fund=0&type=0&page=

看到这些，我真的很羡慕。真的希望老师们再以这3个网址为例，做个图文并茂的VBA网抓教程。好让向我这样渴望网抓，又找不到网址的人们得到提升。