从网上自动下载更新数据到excel

zjykdada · 发表于 2011-6-28 19:34

我想求助高手，我要从网上 http://quotes.money.163.com/stock/#query=EQA 自动下载市盈率数据，也可以别的网站，有市盈率就行，最好有个按键，每天按一下就下载。
请高手帮忙，万分感谢！！！

下面附件有我大概要做的样子。

xmyjk · 发表于 2011-6-28 21:36

数据都在：
http://quotes.money.163.com/hs/service/diyrank.php?page=0&count=24&sort=PERCENT&order=desc&query=STYPE:EQA&fields=CODE,SYMBOL,SNAME,PRICE,PERCENT,UPDOWN,OPEN,YESTCLOSE,HIGH,LOW,VOLUME,TURNOVER,HS,LB,PE,MCAP,TCAP,MFRATIO.MFRATIO14,MFRATIO.MFRATIO2,MFRATIO.MFRATIO10,ANNOUNMT,UVSNEWS&type=query&callback=callback_1685702196
里面

中文是UNICODE，下载完了还要转码。

这种建议没必要这么折腾，随便一个专业的股票软件都能导出。

[ 本帖最后由 xmyjk 于 2011-6-28 21:40 编辑 ]

xmyjk · 发表于 2011-6-28 21:49

再整理了一下，所有PE的数据都在：
http://quotes.money.163.com/hs/service/diyrank.php?page=0&count=10000&sort=PERCENT&order=desc&fields=CODE,PE&type=query
的最后一行。

zjykdada · 发表于 2011-6-29 08:38

我一点都不懂的，能教我怎么弄吗

abing3 · 发表于 2011-6-29 17:10

上次上旋下弦月有帮我弄过一个, 我只会这点了. 你看一下. 有问题,可以再请上旋下弦月帮忙一下.

abing3 · 发表于 2011-6-29 17:13

Sub a()
Dim ie1 As Object, dmt As Object, r As Object, i As Long, j As Long, k As Long
[a1].CurrentRegion.Clear
Cells.NumberFormat = "@"
Set ie1 = CreateObject("InternetExplorer.Application")
With ie1
  '.Visible = True
  .Navigate "http://quotes.money.163.com/stock/#query=EQA" '网址
  Do Until .ReadyState = 4
' DoEvents
  Loop
  Set dmt = .Document
End With

Set r = dmt.All.tags("table")(1).Rows
  For i = 1 To r.Length - 2
For j = 0 To r(i).Cells.Length - 1
   Cells(i, j + 1) = r(i).Cells(j).innerText

Next
Next
Set r = dmt.All.tags("table")(2).Rows
j = 11
  For i = 1 To r.Length - 2
'For j = 0 To r(i).Cells.Length - 1
   Cells(i, 4) = r(i).Cells(j).innerText

' Next
Next

'ie1.Quit
Set ie1 = Nothing
Set dmt = Nothing
Set r = Nothing

[a1].CurrentRegion.Columns.AutoFit

End Sub

abing3 · 发表于 2011-6-29 17:18

不好意思, 少了一行数据,现补上.

xmyjk · 发表于 2011-6-30 01:12

原帖由 abing3 于 2011-6-29 17:18 发表
不好意思, 少了一行数据,现补上.

非常不错，活学活用，再加个循环做个翻页就更好了。多谢帮忙。

zjykdada · 发表于 2011-6-30 10:00

我按（获取）时，出现（运行时错误‘429’:ActiveX 部件不能创建对象），，，请问高手这是为什么？？

zjykdada · 发表于 2011-6-30 10:03

我是一窍不通的，请你说得详细点，谢谢了

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

[求助] 从网上自动下载更新数据到excel

上次上旋下弦月有帮我弄过一个.你试一下.

代码部分 (感谢上旋下弦月大师)

不好意思, 少了一行数据,现补上.

评分

感谢abing3 感谢上旋下弦月

我是一窍不通的

[求助] 从网上自动下载更新数据到excel

上次 上旋下弦月 有帮我弄过一个.你试一下.

代码 部分 (感谢 上旋下弦月 大师)

不好意思, 少了一行数据,现补上.

评分

感谢abing3 感谢上旋下弦月

我是一窍不通的

上次上旋下弦月有帮我弄过一个.你试一下.

代码部分 (感谢上旋下弦月大师)