如何获取Power Query连接的最后刷新日期？需实现输入查询名的函数

Power Query（Get & Transform）的连接不属于DataFeedConnection类型，所以调用DataFeedConnection.RefreshDate会报错。你可以通过VBA操作Workbook.Queries集合来获取指定查询的最后刷新日期，以下是实现函数：

Function GetPQRefreshDate(queryName As String) As Date
    Dim pqQuery As Query
    
    ' 遍历工作簿中的所有Power Query查询
    For Each pqQuery In ThisWorkbook.Queries
        ' 匹配目标查询名称
        If pqQuery.Name = queryName Then
            ' 返回最后刷新日期
            GetPQRefreshDate = pqQuery.RefreshDate
            Exit Function
        End If
    Next pqQuery
    
    ' 如果未找到查询，返回空日期（可按需修改逻辑）
    GetPQRefreshDate = #1/1/1900#
End Function

使用说明 #

1. 按Alt+F11打开VBA编辑器，插入新模块并粘贴上述代码。
2. 在Excel单元格中调用函数，例如：=GetPQRefreshDate("你的查询名称")，替换引号内文本为实际查询名。
3. 若查询不存在，函数返回1900/1/1，你可以改成返回错误值#N/A等自定义逻辑。

补充说明 #

• 该函数适用于Excel 2016及以上支持Power Query的版本。
• 不管查询是加载到工作表还是仅创建连接，Workbook.Queries都会包含对应的条目，因此方法通用。

内容的提问来源于stack exchange，提问作者Tomek S