主页 / computer / 问题 / 1640975
Accepted
baskar
Asked: 2021-04-12 04:20:01 +0800 CST

Microsoft Excel Power Query 获取访问数据，基于单元格值

  • 772

我需要通过 Power 查询将 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

microsoft-excel vba

1 个回答

  1. Best Answer

    步骤1：转到Excel；数据>新查询>从Access数据库>转到您的位置并选择文件>选择要显示的表>单击编辑>根据您的要求手动应用过滤器>单击加载到>在Excel文件中选择您的目标。

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

    第2步：为过滤值创建新表>命名表 EMPDATA >转到数据选项卡>单击从表>查询编辑器将显示>将查询命名为EMPDATA >删除导航树中的Changetype>确保您的过滤器值数据类型必须相同>转到高级编辑器> 现在可以使用预编码

    您必须在代码中添加该行来定义它。还根据您的要求更新EmpNo

     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”直接值替换为EMPDATA

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

    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

    现在单击加载并保存。而已。

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

    • 0

相关问题