看到一个开源免费的古诗词API服务,在Power BI/Excel可以轻松调用。以下是Excel结果,每次刷新可以随机展示诗词:


letResponse = Web.Contents("https://poetry.palemoky.com/api/poems/random"),JsonResult = Json.Document(Response),PoemData = JsonResult[data],Title = PoemData[title],Author = PoemData[author][name],Dynasty = PoemData[dynasty][name],ContentLines = PoemData[content],ContentText = Text.Combine(ContentLines, "#(lf)"),FullText = Title & "#(lf)" &Author & "#(lf)" &Dynasty & "#(lf)" &ContentText,Result = #table({"诗词内容"}, {{FullText}})inResult
https://poetry.palemoky.com/

