@0086 写到Web.Contents第二参数里面[Headers=[Authorization="Bearer "&你的token]]

@Bruce 插入自定义列：List.Count(List.Select({[WK1],[WK2],[WK3]},(x)=>x>80))

https://work.weixin.qq.com/api/doc/90000/90135/93657

[@lanfengye](https://pbihub.cn/users/628) 直接用你的Power BI账号就可以登陆进去，进去了就建项目吧，，，

[@lanfengye](https://pbihub.cn/users/628) 我刚有用PowerQuery@pqfans.com账号登陆了也可以，

你可以试着搞一个插入数据库记录的，更刺激，你就会发现问题，哈哈，，，

https://pbihub.cn/blog/1150

直接安装后可以尝试下下面的方法：
首先如果你没有安装什么daxstudio.exe那些鬼外部工具，默认是不会有那几个json外部工具注册文件的；
还有你如果不是默认安装到C盘，可能外部工具注册文件的路径都没有，可能需要手动建立后面两层文件夹（Power BI Desktop\External Tools）
C:\Program Files (x86)\Common Files\Microsoft Shared\Power BI Desktop\External Tools
上面这个路径是64位系统的，32位windows系统的路径有些许变化。
从0开始造一个外部扩展工具有多难？
下载安装最新版PowerBI desktop(至少也得是7月后发布的吧，哈哈)
先打开PowerBI将预览功能属性打开（搞不清楚就全部打钩体验一下，哈哈）
先从注册文件入手，你随便打开一个txt文件，输入类似下面的json格式字符串进行相关工具绑定设置参数即可（前提你自己先准备一个你做好的exe文件，可以随便用系统中有的exe文件试一下），参数自己看，版本、名称、描述、exe文件的路径（切记斜杠的转义）、系统全局变量参数（比如你要与模型交互参数可以传入服务器名server和数据库名database，注意你做的exe就可以捕捉这两个全局变量作为参数引入程序内）、最后就是扩展程序在PowerBI里面的logo显示图像设置（随便搞个图片转成base64字符串粘贴过来，注意加入前缀图片格式头image/png;base64,）
当然你可以定义多个外部扩展程序，将这些写好的json语句txt文件另存为"名字你随意.pbitool.json"
然后将这个另存为的json文件保存到对应系统路径下，如64位的windows系统：C:\Program Files (x86)\Common Files\Microsoft Shared\Power BI Desktop\External Tools
如果你的json字符串有中文你可以试下另存为的时候编码方式改为UTF8

最后：至于exe怎么做那是另一块专业知识了，不限于编程语言你能编译出外部运行工具即可（.net/python/java...都很酸爽）！
不出意外，你再次打开PowerBI就会看到

@0086 在不知道总数据2720的时候，科学一点就是应该用List.Generate判断每次接口返回的next值而建立下一次取值范围。

@0086

源y=Table.Combine(List.Transform({0..54},each Table.FromRecords(Json.Document(Web.Contents("https://jinshuju.net/api/v1/forms/DYk6v5/entries?next="&Text.From(if _=0 then 0 else _*50+1), [Headers=[ Authorization="Basic "&Binary.ToText(Text.ToBinary("你的key:对应secret"))]]))[data])))

@0086

Table.TransformColumns(Table.FromRecords({源}),{},each [label])

@0086 提指定记录 =List.Transform(源,each Record.ToList(_){0}[label])

或者这样写，我还没测试web{0}中list对象是否就是数据的精确的行列区域：

let
web=Json.Document(Web.Contents("https://docs.qq.com/dop-api/opendoc?tab=BB08J2&id=DV2RHaXR5cGJERkRJ&outformat=1&normal=1"))[clientVars][collab_client_vars][initialAttributedText][text]{0}{2}{0}[c],
doc=Table.FromList({0..web{0}{2}},each List.Transform({0..web{0}{4}},(m)=>Record.FieldOrDefault(web{1},Text.From(_*web{0}{4}+m+_),null)[2]?{1}?))
in doc

doc=Table.FromList({0..web[maxRow]-1},each List.Transform({0..web[maxCol]-1},(m)=>Record.FieldOrDefault(web[initialAttributedText][text]{0}{2}{0}[c]{1},Text.From(_*web[maxCol]+m),null)[2]?{1}?))

不知道如果第一列不写数据会不会有影响，，

@Go 不错 缺失可以根据行列标识重构对齐，
try那里可以写为Record.FieldOrDefault函数写入第三参数