Excel股价图表----比特币价格图表

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

从网上收集比特币价格相关数据，制作比特币股价图表，通过Excel控件查看选定时间段内的价格信息。

第一步：收集比特币价格信息，清洗数据。 从网站上获取 2013 年 4 月 27 日的比特币价格数据。

分析网页内容，找出数据所在的真实页面；

2、分析上一步的URL，找到所有数据所在的URL。 从上一步的结果不难看出比特币完整k线网站，只需要更改begintime和endtime之后的date，就可以获取对应时间段的数据。 经过尝试，该网站最早收集到的数据是20130427，所有数据的真实地址都是根据这个地址构建的；

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

导入请求导入 json 导入重新定义 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'"[az]{1,}":',",data) data=re.sub (r'T00:00:00',"",data) data=re.sub(r'\{',"",data) data=re.sub(r'\}',"",data) 数据=re.sub(r'"',"",data) data=re.sub(r'\[',"",data) data=re.sub(r'\]',"",data) 数据=data.strip() 返回数据 def write_to_csv(data): with open('btc_coin.csv','a',encoding='gbk') as f: f.write(data) f.close def main():对于我在范围内（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（“数据源”）。 细胞。 ClearContents myPath = "C:\Users\heju" myText = "btc_coin.csv" cnnStr = "provider=msdasql;driver={microsoft text driver (*.txt; *.csv)};dbq=" & myPath cnn. open cnnStr sql = "选择交易日期、开盘价、最高价、最低价、收盘价、市值、日交易量、换手率" & myText rs. 打开 sql, cnn, adOpenKeyset, adLockOptimistic For i = 1 To rs. 领域。

计数表（“数据源”）。 细胞（1比特币完整k线网站，我）= rs。 字段（i - 1）。 命名下一张表（“数据源”）。 范围（“a2”）。 CopyFromRecordset rs rs。 关闭 CNN。 关闭 设置 rs = Nothing 设置 cnn = Nothing ActiveWorkbook。 工作表（“数据源”）。 种类。 排序字段。 清除 ActiveWorkbook。 工作表（“数据源”）。 种类。 排序字段。 Add2 Key:=Range("A:A") _ , SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:=xlSortNormal 与 ActiveWorkbook。 工作表（“数据源”）。 种类。 设置范围（“A:H”）。 Header = xl是的。 匹配大小写 = 假。 方向 = xlTopToBottom。 SortMethod = xl拼音。 应用 End With End Sub

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

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

更换盖子

00:11 视频尚未发布，暂时无法访问

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

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