☰

Microsoft Excel Power Query 根据单元格值获取 Access 数据

tag-icon • tag-icon microsoft-excel vba power-query
Microsoft Excel Power Query 根据单元格值获取 Access 数据

我需要通过 Power query 将 MS Access 数据导出到 MS Excel

这里我需要按单元格值 A1 过滤 ID

这是查询

    Source = Access.Database(File.Contents("C:\Users\Bas\Documents\Database2021.mdb"), [CreateNavigationProperties=true]),
    _Hours = Source{[Schema="",Item="Hours"]}[Data],
    #"Filtered Rows" = Table.SelectRows(_Hours, each ([ID] = "6734"))
in
    #"Filtered Rows"

我需要从这里开始6734对 CELL 的价值A1

可以吗，请指导我。

编辑1；

    Source = Access.Database(File.Contents("C:\Users\Bas\Documents\Database2021.mdb"), [CreateNavigationProperties=true]),
    _Hours = Source{[Schema="",Item="Hours"]}[Data],
    #"Filtered Rows" = Table.SelectRows(_Hours, each ([ID] = "idfilter"))
in
    #"Filtered Rows"

idFilter = Excel.CurrentWorkbook(){[Name="YourID"]}[Content]

当我最后输入建议的行时，会出现错误。将 A1 命名为 YourID

答案1

步骤1：转到Excel；数据>新查询>来自 Access 数据库>转到您的位置并选择文件> 选择您的桌子显示>点击编辑> 申请筛选根据您的要求手动>单击加载至> 在 Excel 文件中选择您的目的地。

按单元格值访问 Excel 数据过滤

步骤2：创建新表以过滤值>命名表 员工数据>转到“数据”选项卡 > 单击来自表格> 查询编辑器将显示 > 将查询命名为员工数据> 删除变更类型在导航树中>确保您的过滤器值数据类型必须相同>转到高级编辑器>现在预编码可用

您必须添加代码来定义它。同时更新雇员编号按照你的要求

 AndCriteria01 = Record.Field(Source{0},"EmpNo")
in
    AndCriteria01

这是我们更新后的代码。单击“加载”>“仅创建连接”

let
    Source = Excel.CurrentWorkbook(){[Name="EMPDATA"]}[Content],
    AndCriteria01 = Record.Field(Source{0},"EmpNo")
in
    AndCriteria01

命名值

现在回到我们的主要查询

  • 自动生成的代码
let
  Source = Access.Database(File.Contents("C:\Users\Bas\Documents\Database2021.mdb"), [CreateNavigationProperties=true]),
    _Hours = Source{[Schema="",Item="Hours"]}[Data],
    #"Filtered Rows" = Table.SelectRows(_Hours, each ([ID] = "6734"))
in
    #"Filtered Rows

然后在源之前添加此行

ANDCriteria01 = EMPDATA,

还更换“6734”直接价值员工数据

所以我们的最终代码将采用这种格式

let
    ANDCriteria01 = EMPDATA,
  Source = Access.Database(File.Contents("C:\Users\Bas\Documents\Database2021.mdb"), [CreateNavigationProperties=true]),
    _Hours = Source{[Schema="",Item="Hours"]}[Data],
    #"Filtered Rows" = Table.SelectRows(_Hours, each ([ID] = EMPDATA))
in
    #"Filtered Rows

现在单击“加载并保存”。就是这样。

确保每行必须有逗号，并确保每个参数的拼写正确

相关内容