let
源 = Web.Page(Web.Contents("http://q.meililz.com/xingzhengquhua/xiang.php?id=14509")){0}[Data],
#"展开的“Children”" = Table.ExpandTableColumn(源, "Children", {"Kind", "Name", "Children", "Text"}, {"Kind.1", "Name.1", "Children.1", "Text.1"}),
#"展开的“Children.1”" = Table.ExpandTableColumn(#"展开的“Children”", "Children.1", {"Kind", "Name", "Children", "Text"}, {"Kind.2", "Name.2", "Children", "Text.2"}),
#"展开的“Children”1" = Table.ExpandTableColumn(#"展开的“Children.1”", "Children", {"Kind", "Name", "Children", "Text"}, {"Kind.3", "Name.3", "Children.1", "Text.3"}),
#"展开的“Children.1”1" = Table.ExpandTableColumn(#"展开的“Children”1", "Children.1", {"Kind", "Name", "Children", "Text"}, {"Kind.4", "Name.4", "Children", "Text.4"}),
筛选的行 = Table.SelectRows(#"展开的“Children.1”1", each ([Name.3] = "P") and ([Kind.4] = "Text")),
删除的其他列 = Table.SelectColumns(筛选的行,{"Text.4"})
in
删除的其他列单独获取一页数据正常，调用自定义函数，中途就有乱码了
这个就是乱码了，中间有一步展开就乱码了，后续就没法继续了
这个是多次展开后正常的，可以直接复制上面的代码，结果还是正常的
