|
[广告] VBA代码宝 - VBA编程加强工具 · VBA代码随查随用 · 内置多项VBA编程加强工具 ★ 免费下载 ★ ★ 使用手册★
let
url = "http://fdc.zfj.xm.gov.cn/home/Getzslp",
headers = [#"Content-Type"="application/x-www-form-urlencoded; charset=UTF-8"],
content = Text.ToBinary("currentpage=1&pagesize=9999"),
web = Text.FromBinary(Web.Contents(url, [Headers=headers, Content=content])),
data = Text.Remove(Text.Range(web, Text.PositionOf(web, "[")+1, Text.PositionOf(web, "recordcount")-Text.PositionOf(web, "[")-5),"\"),
list = Text.Split(Text.Replace(data, "},", "}|"), "|"),
tb = Table.FromRecords(List.Transform(list, each Json.Document(_)))
in
tb |
|