比特币价格走势图(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(r'T00: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.设置图标格式（颜色、标题）