不会代码也无妨！Excel爬取疫情数据，并绘制动态气泡图

记得我是4月份回的兰州，几经波折，经历了多次疫情，印象中7月份兰州的那次疫情很严重，居家办公大概两周多时间，那段时间，感觉时间过得很慢，现在回想已是往事。

基于此，作者想借助数据处理工具爬取7月份甘肃各地市疫情数据，回顾当时疫情动态数据变化，使用Excel爬取疫情数据，镝数图表在线生成动态气泡图，下面一起来学习。

示例工具：Excel
本文讲解内容：Excel数据爬取
适用范围：数据爬取、动态可视化

数据爬取

数据爬取这里不用使用复杂的代码程序进行爬取，我们使用Excel中的PowerQuery进行数据爬取，首先构建省份和城市的对应关系，甘肃省共计12个地级市，框选数据，使用Ctrl+T创建表。

在表设计中将创建的表名称命名为城市表。

在数据选项卡下选择从其他源，新建一个空白查询。

右键查询，点击高级编辑器，进入高级编辑器界面。

将原有的高级编辑器里面的代码删除，复制下面的代码到高级编辑器中，这里可以看到未检测出语法错误，点击完成。

let location =(province,city)=>Json.Document(Web.Contents("https://api.inews.qq.com/newsqa/v1/query/pubished/daily/list?province="&Uri.EscapeDataString(province)&"&city="&Uri.EscapeDataString(city)))[data], Source = Excel.CurrentWorkbook(){[Name="城市表"]}[Content], GetDataColumn=Table.AddColumn(Source, "data", each location([省份],[城市])), ExpandedData1 = Table.ExpandListColumn(GetDataColumn, "data"), ExpandedData2 = Table.ExpandRecordColumn(ExpandedData1,"data", {"date", "confirm", "dead", "heal", "confirm_add"}, {"日期", "累计确诊", "死亡", "治愈", "新增确诊"}), ChangedType = Table.TransformColumnTypes(ExpandedData2,{{"日期", type date}, {"省份", type text}, {"累计确诊", Int64.Type}, {"死亡", Int64.Type}, {"治愈", Int64.Type}, {"新增确诊", Int64.Type}}), FilteredRows = Table.SelectRows(ChangedType, let latest = List.Max(ChangedType[日期]) in each [日期] < latest) in FilteredRows