Question

如何在sina股票上下载数据

http://money.finance.sina.com.cn/corp/go.php/vFD_FinancialGuideLine/stockid/600228/displaytype/4.phtml 这个网址某个股“财务分析数据”

有高手写了下载“现金流量表”的代码,如下：（怎么修改，才能下载到财务分析数据呢？）
Sub 下载现金流量表()'使用VBA下载现金流量表并存储
Dim url As String, url1 As String, url2 As String Dim mycode As String '存储股票代码 Dim saveto As String '存储位置 Dim xpost As Object Dim i As Integer url1 = "http://money.finance.sina.com.cn/corp/go.php/vDOWN_CashFlow/displaytype/4/stockid/" url2 = "/ctrl/all.phtml"
t = Timer For i = 2 To Range("A10000").End(xlUp).Row mycode = Range("A" & i).Value url = url1 & mycode & url2 saveto = ThisWorkbook.Path & "\CashFlow" If Dir$(saveto, 16) = "" Then MkDir saveto Set xpost = CreateObject("Microsoft.XMLHTTP") xpost.Open "GET", url, 0 xpost.Send Set sGet = CreateObject("ADODB.Stream") sGet.Mode = 3 sGet.Type = 1 sGet.Open sGet.Write (xpost.responseBody) sGet.SaveToFile saveto & "\" & mycode & ".xls", 2 Range("E" & i).Value = "OK" Range("E1").Value = "正在下载第" & i & "个公司的现金流量表" waitsec (0.1) Next Range("E1").Value = "现金流量表下载完成" MsgBox "共耗时" & Round(Timer - t, 2) & "秒"End Sub
Function waitsec(dS As Double)
Dim sTimer As Date sTimer = Timer Do DoEvents Loop While Format((Timer - sTimer), "0.00") < dSEnd Function

Answer 1

1、首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”；
2、点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt,,只有这二种格式可以选择；
3、选取好后点击下一步，在“导入导出对话框模板”中选择要的项目（如最高价、最低价，开盘价等，默认是全选），点下一步，完成。默认保存路径在桌面上。

Answer 2

配资现在这么多，肯定不违法，受法律保护的，要违法早被查了。change. Finally, the point

Answer 3

财务数据不是通过网站生成的，是通过公司会计软件处理生成的，你现在需要的数据直接下载就可以了，不需要修改。

Answer 4

这个真不太懂，不如用正式的股票软件，使用方便

Answer 5

下载什么数据呢？