Excel Power BI 调用古诗词API

wujunmin

发布于 2026-06-24 08:49:11

1050

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

Power Query 高级编辑器打开，粘贴代码即可运行：

let
    Response = 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}})
in
    Result

该API官网如下：

https://poetry.palemoky.com/

作者提供了丰富的接口：