比特币十年价格走势图（Excel股价图----比特币价格走势图）

　　比特币十年价格走势图（Excel股价图----比特币价格走势图）

这辈子错过的最大的财富应当就是比特币了。

　　

从网络上采集比特币价格相关数据，做出比特币股价图，通过Excel控件查看选定时间段的价格信息。

步骤一：采集比特币价格信息并清洗数据。从网站https！//www。feixiaohao。com/currencies/bitcoin/获取2013年4月27日至今的比特币价格数据。

1. 分析网页内容找出数据所在真实页面，https！//dncapi。bqiapp。com/api/v3/coin/history？coincode=bitcoin&；begintime=20180922&；endtime=20190922&；page=1&；per_page=1000&；webp=1；

2。分析上一步的网址，找到全部数据所在网址，从上一步结果中很容易看出只需要改变 begintime和endtime后面的日期即可获取对应时间段内的数据，经尝试，网站收集的最早数据是20130427，据此构造出所有数据的真实地址；

3。使用python爬虫，采集、清洗、存储目标数据（也可使用vba），代码如下：

import requests import json import re def get_page_content(url)！ rsp=requests。get(url)。text data=json。loads(rsp)[data][list] data=json。dumps(data) data=re。sub(r}， {，n，data) data=re。sub(r"[a-z]{1，}"！，""，data) data=re。sub(rT00！00！00，""，data) data=re。sub(r{，""，data) data=re。sub(r}，""，data) data=re。sub(r"，""，data) data=re。sub(r[，""，data) data=re。sub(r]，""，data) data=data。strip() return data def write_to_csv(data)！ with open(btc_coin。csv，a，encoding=gbk) as f！ f。write(data) f。close def main()！ for i in range(2013，2020)！ url=https！//dncapi。bqiapp。com/api/v3/coin/history？coincode=bitcoin&；begintime=+str(i)+0101&；endtime=+str(i)+1231&；page=1&；per_page=1000&；webp=1 transaction_data=get_page_content(url) write_to_csv(transaction_data) print(transaction_data) if __name__ == __main__！ main()

4。打开btc_coin。csv文件，在首行加入如下文字：交易日期，开盘价，收盘价，最高价，最低价，市值，当日交易量，换手率

5。在Excel中通过ado+vba导入数据，并作格式处理：

Option Explicit Dim cnn As New Connection Dim rs As New Recordset Dim myPath As String Dim myText As String Dim cnnStr As String Dim sql As String Sub import_csv() Dim i， j As Integer Sheets("数据源")。Cells。ClearContents myPath = "C！Usersheju" myText = "btc_coin。csv" cnnStr = "provider=msdasql；driver={microsoft text driver (*。txt； *。csv)}；dbq=" &； myPath cnn。Open cnnStr sql = "select 交易日期，开盘价，最高价，最低价，收盘价，市值，当日交易量，比特币行情换手率 from " &； myText rs。Open sql， cnn， adOpenKeyset， adLockOptimistic For i = 1 To rs。Fields。Count Sheets("数据源")。Cells(1， i) = rs。Fields(i - 1)。Name Next Sheets("数据源")。Range("a2")。CopyFromRecordset rs rs。Close cnn。Close Set rs = Nothing Set cnn = Nothing ActiveWorkbook。Worksheets("数据源")。Sort。SortFields。Clear ActiveWorkbook。Worksheets("数据源")。Sort。SortFields。Add2 Key！=Range("A！A") _ ， SortOn！=xlSortOnValues， Order！=xlAscending， DataOption！=xlSortNormal With ActiveWorkbook。Worksheets("数据源")。Sort 。SetRange Range("A！H") 。Header = xlYes 。MatchCase = False 。Orientation = xlTopToBottom 。SortMethod = xlPinYin 。Apply End With End Sub

步骤二：选择数据，插入股价图，设置图表格式

1. 通过名称管理器和offset函数将图表数据源设置为动态区域；

更换封面

00！11 视频尚未发布，暂时无法播放

2。插入控件，控制数据源动态变化；

3。设置图标格式（颜色、标题）



　　
"，"content_hash"！"b9899979