PQ参考解法- let
startYM="201102",endYM="201901",
getDateList=List.Generate(()=>[sYM=startYM],
each [sYM]endYM,each [sYM=Date.ToText(Date.AddMonths(Date.FromText([sYM]&"01"),1),"yyyyMM")],each [sYM]) & {endYM},
result = Table.SelectRows(Table.PromoteHeaders(Table.Combine(List.Transform(getDateList,
each Web.Page(Web.Contents("http://www.tianqihoubao.com/lishi/chengdu/month/" & _ & ".html")){0}[Data])), [PromoteAllScalars=true]), each ([日期] "日期"))
in
result
复制代码
|