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

zjykdada

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

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

xmyjk

数据都在：
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

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

zjykdada

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

abing3

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

abing3

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

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

xmyjk

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

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

zjykdada

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

zjykdada

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