如何将网页资料导入excel

ck1668 · 发表于 2012-1-16 18:19

各位大侠，你们好！

“上旋下弦月”老师可能还在忙，你们如有会这个的请帮忙修改一下，多谢了！

ck1668 · 发表于 2012-1-17 11:44

这么多的高手，怎么就“上旋下弦月”老师他一个人会这个吗？还是不肯帮忙呢？

蓝天630902 · 发表于 2012-1-17 14:21

数据都在里面：
http://data.eastmoney.com/zjlx/data.aspx?type=detail&cate=0&day=1&sortType=6&sortRule=-1&jsname=FtuzHNOY&pageSize=50&page=1&rt=44226034

ck1668 · 发表于 2012-1-17 21:07

谢谢蓝天630902，但我要的是一楼“上旋下弦月”老师帮忙做的那个附件，由于网站的数据里面新增加了一项“超大单净流入”，你看能不能帮忙修改一下。感谢！

蓝天630902 · 发表于 2012-1-18 10:08

本帖最后由蓝天630902 于 2012-1-18 10:15 编辑

Sub test()
Dim tmp() As String, i As Integer, arr(), xmlhttp As Object, n As Long, JC As Worksheet, Td As String, ws As Worksheet, sName As String, d, DS, j As Long, Nm As Long, k, t, Y, ARR2(), tmp1()
Application.ScreenUpdating = False
On Error Resume Next
   [a1:m1] = Split("代码,2B,3c,名称,最新价,涨跌幅,今日主力净流入,,今日超大单净流入,,今日大单净流入,,今日中单净流入,,今日小单净流入", ",") '当日表表头
[g2:p2] = Split("净额,净占比,净额,净占比,净额,净占比,净额,净占比,净额,净占比", ",")
For k = 1 To 49
With CreateObject("Msxml2.XMLHTTP")
      .Open "get", "http://data.eastmoney.com/zjlx/data.aspx?type=detail&cate=0&day=1&sortType=6&sortRule=-1&jsname=NYLByphS&page=" & k, False
      .send
      ste = .responseText
   tmp = Split(Split(Split(Replace(ste, """,""", ","), "[""")(1), """]")(0), ",")
End With
      ReDim arr(UBound(tmp) \ 17, 17) '整理XMLHTTP获取的数据

For i = 0 To UBound(tmp)
      arr(i \ 17, i Mod 17) = tmp(i)
Next
t = (k - 1) * 50 + 3
Range("a" & t & ":p" & t + 50) = arr
'[a3].Resize(UBound(arr, 1) + 1, UBound(arr, 2) + 1) = arr '将数据导入当日表内并设置格式调整列宽
Next k
[a:m].Columns.AutoFit
Columns("b:c").ColumnWidth = 0
Columns("a").NumberFormat = "000000"
Columns("h").NumberFormat = "-0.00"
Columns("f").NumberFormat = "0\.00%"
Columns("j").NumberFormat = "0\.00%"
End Sub

ck1668 · 发表于 2012-1-18 11:57

本帖最后由 ck1668 于 2012-1-18 12:00 编辑

ach]1077653[/attach]蓝天630902 发表于 2012-1-18 10:08
Sub test()
Dim tmp() As String, i As Integer, arr(), xmlhttp As Object, n As Long, JC As Worksh ...

非常感谢蓝天630902，可能之前我没有说明白，现在重新附上一个附件，之前“上旋下弦月”老师帮忙做的表格分两个步骤，即：附件里面的两个按钮是分开进行的，比如：第一个按钮“获取数据并统计”，是每天导入当天的股市数据并存档，而第二个按钮“采集自选股数据”，是为了方便容易参考自选股设置的，你看了附件就明白我想要的，麻烦你再帮忙修改一下。

终结版股票V6(涨跌幅大单流入)11月份.zip (506.19 KB, 下载次数: 127)

ck1668 · 发表于 2012-1-18 12:03

蓝天630902老师，你好！

由于网站数据只是新增加了一个“超大单净流入”的数据，最好你帮我在附件原来的代码上面稍做修改就可以了。

蓝天630902 · 发表于 2012-1-18 16:31

本帖最后由蓝天630902 于 2012-1-18 16:39 编辑

增加了一个“超大单净流入”

ck1668 · 发表于 2012-1-18 18:22

蓝天630902老师，你好！

非常感谢你的帮忙，但在“统计”表里，还是没有“超大单净流入”的数据，请看附件，麻烦您再帮忙修改一下代码，谢谢！

终结版股票V7.zip (460.34 KB, 下载次数: 76)

ck1668 · 发表于 2012-1-18 18:33

补充：还有那个栏位的宽度，“20120118”表格里面的栏位比较宽了一点，您看能不能参考上面附件里面的“20120105”表格稍微修正一下就非常完善了，啊，对了，还有“起始页”表里的A栏的栏位也是一样很宽。

不过，如果栏位的宽度不好修改就算了，主要您看能不能在“统计”表里，显示“超大单净流入”的数据，感谢了！

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

[已解决] 如何将网页资料导入excel