东方财富网数据如何下载excel
2024-05-21
1. 东方财富网数据如何下载excel
1、首先在一个新建的Excel表格中，选择进入到数据页面中。 2、之后选择打开“自网站”的设置选项。 3、然后在出现的窗口中，输入东方财富网的网址，点击后面的“转到”。 4、之后点击页面左上角的黄色箭头的按钮，选中想要下载的数据。 5、接下来看到左上角出现一个复选框，就点击右下角的“导入”按钮。 6、然后就可以看到在Excel表格中，出现选中的数据了。 7、接下来需要鼠标右键单击选择打开“数据范围属性”设置选项。 8、之后在出现的属性设置界面中，打勾“刷新频率”，选择想要的时间，按下enter键就完成了。
2. 如何下载股票历史成交数据到Excel或txt
以华中智能股票软件为例：（以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例）首先切换到要下载数据的股票K线形态，按“F1”进入“日线某某股票历史成交”，点击鼠标右键->数据导出->导出所有数据->在“请选择导出的类型”中选择excel或txt 补充资料： 如何获取所有股票历史数据： 如果要对股市进行分析，首先就要获取所有股票的历史数据，只有通过股票的历史数据，我们才能分析出股市的规律。 （以Think pad X13 锐龙版笔记本电脑，Windows 10 操作为例） 一、工具/原料 1、EXCEL2007或者以上版本，不能使用WPS 2、电脑1g内存1核处理器及以上配置 3、拥有较强逻辑分析能力以及少量智慧及以上的大脑一颗 方法/步骤： 第一步，获取股票代码，复制其中一部分到第一个工作表A4到A127，然后通过程序把每一个代码写入到不同的工作表A2位置，并对该工作表以该股票代码命名。程序如下： Sub 工作表命名() For i = 4 To 127 Sheets(i).Range("a2") = "'" & Sheets(1).Range("a" & i) Next i For i = 4 To Sheets.Count Sheets(i).Name = Sheets(i).Range("a2").Value Next End Sub 第二步，获取股票历史数据。代码如下： Private Function GetSource(sURL As String) As String Dim oXHTTP As Object Set oXHTTP = CreateObject("MSXML2.XMLHTTP") oXHTTP.Open "GET"， sURL， False oXHTTP.Send GetSource = oXHTTP.responsetext Set oXHTTP = Nothing End Function Sub 历史数据() Dim objXML As Object Dim txtContent As String Dim i As Integer Dim strCode As String Dim gp As String Dim kaishihang Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9， arr10， arr11 On Error Resume Next EndRow = Range("a65536").End(xlUp).Row startRow = 4 If startRow Range(Cells(startRow， 1)， Cells(EndRow， 11)).Value = "" Else Exit Sub End If Set objXML = CreateObject("Microsoft.XMLHTTP") gp = [A2] For h = 1 To 4 For m = 1 To 4 kaishihang = [A65535].End(xlUp).Row nian = Replace(Str(Year(Now) + 1 - h)， " "， "") jidu = Replace(Str(4 + 1 - m)， " "， "") With objXML .Open "GET"， "http://quotes.money.163.com/trade/lsjyj_" + gp + ".html?year=" + nian + "&season=" + jidu + ""， False .Send If objXML.Status = 200 Then txtContent = .responsetext arr = Split(txtContent， "'>") For i = 1 To UBound(arr) arr1 = Split(arr(i)， " Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 10)， 10) arr2 = Split(arr1(1)， Chr(60)) Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1) arr3 = Split(arr1(2)， Chr(60)) Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1) arr4 = Split(arr1(3)， Chr(60)) Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1) arr5 = Split(arr1(4)， Chr(60)) Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1) arr6 = Split(arr1(5)， Chr(60)) Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1) arr7 = Split(arr1(6)， Chr(60)) Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1) arr8 = Split(arr1(7)， Chr(60)) Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1) arr9 = Split(arr1(8)， Chr(60)) Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1) arr10 = Split(arr1(9)， Chr(60)) Cells(i + kaishihang， 10) = Mid(arr10(0)， InStr(arr10(0)， ">") + 1) arr11 = Split(arr1(10)， Chr(60)) Cells(i + kaishihang， 11) = Mid(arr11(0)， InStr(arr11(0)， ">") + 1) Next i End If End With Next m Next h Set objXML = Nothing End Sub 第三步，获取上证历史数据，并获取所有股票的历史数据。程序如下： Sub 所有股票历史数据获取() Application.ScreenUpdating = False Dim s As String， gp As String， nian As String， jidu As String， s1 As String Dim arr， arr1， arr2， arr3， arr4， arr5， arr6， arr7， arr8， arr9 Dim i， h As Long Dim kaishihang Dim LastRow As Long， r As Long On Error Resume Next EndRow = Sheet2.Range("a65536").End(xlUp).Row startRow = 4 If startRow Sheet2.Range(Sheet2.Cells(startRow， 1)， Sheet2.Cells(EndRow， 9)).Value = "" Else Exit Sub End If For h = 1 To 5 For m = 1 To 4 kaishihang = Sheet2.[A65535].End(xlUp).Row nian = Replace(Str(Year(Now) + 1 - h)， " "， "") jidu = Replace(Str(4 + 1 - m)， " "， "") s1 = "http://quotes.money.163.com/trade/lsjysj_zhishu_000001.html?year=" + nian + "&season=" + jidu + "" s = GetSource(s1) arr = Split(s， "'>") For i = 1 To UBound(arr) arr1 = Split(arr(i)， " Sheet2.Cells(i + kaishihang， 1) = Right(Left(arr1(0)， 4)， 4) & "-" & Right(Left(arr1(0)， 6)， 2) & "-" & Right(Left(arr1(0)， 10)， 2) arr2 = Split(arr1(1)， Chr(60)) Sheet2.Cells(i + kaishihang， 2) = Mid(arr2(0)， InStr(arr2(0)， ">") + 1) arr3 = Split(arr1(2)， Chr(60)) Sheet2.Cells(i + kaishihang， 3) = Mid(arr3(0)， InStr(arr3(0)， ">") + 1) arr4 = Split(arr1(3)， Chr(60)) Sheet2.Cells(i + kaishihang， 4) = Mid(arr4(0)， InStr(arr4(0)， ">") + 1) arr5 = Split(arr1(4)， Chr(60)) Sheet2.Cells(i + kaishihang， 5) = Mid(arr5(0)， InStr(arr5(0)， ">") + 1) arr6 = Split(arr1(5)， Chr(60)) Sheet2.Cells(i + kaishihang， 6) = Mid(arr6(0)， InStr(arr6(0)， ">") + 1) arr7 = Split(arr1(6)， Chr(60)) Sheet2.Cells(i + kaishihang， 7) = Mid(arr7(0)， InStr(arr7(0)， ">") + 1) arr8 = Split(arr1(7)， Chr(60)) Sheet2.Cells(i + kaishihang， 8) = Mid(arr8(0)， InStr(arr8(0)， ">") + 1) arr9 = Split(arr1(8)， Chr(60)) Sheet2.Cells(i + kaishihang， 9) = Mid(arr9(0)， InStr(arr9(0)， ">") + 1) Next i Next m Next h Application.ScreenUpdating = True n = Worksheets.Count For i = 4 To n Worksheets(i).Activate 历史数据 Next End Sub 第四步，保存工作簿，并对该工作簿命名为1，然后复制该工作簿27份，把所有股票代码写入每一个工作簿第一个工作表的A3到A127列。然后根据第一步对工作簿内的工作表命名，并在每一个工作表A2单元格内写入股票代码。 第五步，把这些工作簿存放到炒股文件夹下的数据库文件下。然后在炒股文件夹下新建一个工作簿，命名为“一键更新表格”，写入如下代码： Sub 所有股票历史数据更新() Dim wb As Workbook For i = 1 To 27 Set wb = Workbooks.Open(ThisWorkbook.Path & "\数据库\" & i & "".xlsb"") Application.Run ""'"" & wb.Path & ""\"" & i & "".xlsb'!所有股票历史数据获取"" wb.Save wb.Close Next i End sub 当启动这一段代码以后，程序会自动一个一个的打开对应的工作簿然后获取里面所有股票的历史数据，存放在对应的工作表当中。 第六步，对相应的程序添加按钮，这样，我们在启动对应程序时，只需要点一下对应的按钮就可以实现了。这样，我们通过多个工作簿就实现了获取所有股票历史数据的方法。而后面，我们只需要通过获取对应股票每一天的历史数据，我们就能够在任意一天很快速的能够拥有所有股票的历史数据了。 注意事项 1、在后续需要对这些数据进行分析，里面会加入很多计算，所以启动所有历史数据更新时，我们应该要关闭自动更新。 2、因为历史数据很大，所以这里只获取四年的数据，想要获取更多数据，可以更改程序里面 “For h = 1 To 5”的那个5即可。 3、历史数据的获取需要较长的时间，要提前做好准备。 4、如果你想要弄清楚用EXCEL建立炒股系统的整套方法，请看后续内容。"
3. 怎样将网页中的数据直接下载成Excel表格
你好，单击数据--导入外部数据--新建Web查询。2.勾选我可以识别此内容，允许播放，单击继续按钮。3.在地址栏输入网站地址，转到此网站里面。4.跳转到指定网页，点击箭头按钮，然后导入数据到Excel。【摘要】 怎样将网页中的数据直接下载成Excel表格 【提问】 你好，单击数据--导入外部数据--新建Web查询。 2. 勾选我可以识别此内容，允许播放，单击继续按钮。 3. 在地址栏输入网站地址，转到此网站里面。 4. 跳转到指定网页，点击箭头按钮，然后导入数据到Excel。【回答】 单击哪里的数据【提问】 Excel里面的【回答】 不行，没用【提问】 具体是什么情况呢【回答】 我要从一个网站里导出文件，用的是Microsoft Edge的浏览器，以前我导出文件保存就是excel的表格，但是昨天浏览器更新了，导出来的文件就是aspx的文件【提问】 格式不一样了【回答】 是的【提问】 这样可能是系统更新了下载的只能是aspx格式的了【回答】
4. Excel 如何制作资金流向示意图
1、打开一个Excel空白的工作表。 2、按照个人家庭分类，填写相应的内容。 3、插入求和公式，以每天为进度进行记录。 4、接着，在总表里面链接每个月的数据，采用公式的办法，可以实现自动的更改，简单方便。 5、在总表里面链接每个月的消费总数据，同样采用公式的办法。 6、结余项插入公式，用”收入-支出“即可，简单方便
5. 如何下载股票EXCELL财务数据
股票历史数据查询有个很不错的网页工具可以推荐，地址是http://tool.cnfunny.cn/#/打开就可以直接使用，还可以大批量下载，方便省事。
6. 怎样把网上银行下载的数据变成电子表格
不知道你下载的数据文件是什么格式的，简单的说，两个办法： 1.试试可否通过“另存为”方式存为 Excel 格式的文件 2.通过“选择”、“复制”下载文件的内容，在新的 Excel 表中“粘贴”、“保存”的办法来实现格式的转换。 通过复制-粘贴办法的详细方法如下： 如果是 txt 文件或 Dat、写字板文件，打开文件，按如下步骤操作： （1）全选：同时按键：Ctrl + a（或者用鼠标拖选全部）； （2）复制：同时按键：Ctrl + c (或按鼠标右键，在弹出菜单中选“复制”)； （3）新建 Excel 文件，打开，鼠标右键，选“粘贴”； （4）调整数据在单元格中的格式。 注1：执行第（3）步时，如果希望数据分散在各个单元格中，也可先用鼠标选定一个比较大的空白单元格区域，再粘贴。 注2：其它文件格式，只要打开的文件允许复制，也可用此办法试试。
7. 如何把一个网站的数据下载到EXCEL
这个。。。。如果末经人家准许下载人家的数据库的话，那好像是一种非法入侵的行为吧~主要你得找到他们的数ACCESE据库地址，这才才好弄，要不，你就只能一点一点的的复制了~呵呵~
8. 如何下载或复制网页上的表格到Excel里？
1，将包括所需表格的网页打开，并按ctrl+c把网址复制到剪贴板，以备下一步使用。 2，打开运行excel软件，单击菜单栏中的“数据→导入外部数据→新建web查询”，打开“新建web查询”对话框，将含有表格数据的网页的网址粘贴（或输入）到“新建web查询”对话框的文本框里，单击“转到”按钮，则该页面就会出现在对话框中，单击表格左上方的小箭头图标，使其转换为“对勾”状将表格选中，接着单击“导入”按钮，并在随后弹出的“导入数据”对话框中选择表格数据的放置位置，最后单击“确定”按钮，即可将表格数据导入到excel工作表中。 将网页表格数据导入到excel中的第二种方法： 如果是经常需要将网页上的一些表格导入excel中进行保存，可以使用html table extractor这款ie插件来帮助我们。 1，在ie浏览器中打开以下网址：http://www.download.com/html-table-extractor/3000-2378_4-10462296.html，点击其中的“download now”进行下载，下载完毕之后，一路“next”安装即可。如果没能正确下载到，可以在下面的文章评论处留下邮箱，小编将此插件传给你。 2，重新启动ie，这时在工具栏上会多出个“html table extractor”图标，当需要导入网页中的表格时，首先单击一下该图标。 3，这时在窗口下方会弹出一个小对话框，点击其中的“search table”按钮，然后将鼠标指针移动到表格上，此时表格会变红，这就表示它被选中了，再单击一下鼠标右键，接着在出现的快捷菜单中依次选择“export to excel→create new table”命令。如此一来，网页中的表格就直接导入excel中了。 以上两种方法都可以将将网页中的表格数据快速导入到excel软件中，相比纯粹的复制粘贴好用许多。
最新文章
热门文章
推荐阅读