Início / computer / Perguntas / 1640975
Accepted
baskar
Asked: 2021-04-12 04:20:01 +0800 CST

Microsoft Excel Power Query para obter dados de acesso, com base no valor da célula

  • 772

Preciso exportar dados do MS Access para o MS Excel por consulta de energia

Aqui eu preciso filtrar o ID pelo valor da célula A1

Esta é a consulta

    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"

Eu preciso definir deste valor 6734 para CELL A1

É possível, gentilmente me orientar.

Editar1;

    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]

Quando eu insiro a linha sugerida por último, ela receberá um erro. Nomeado A1 como YourID

microsoft-excel vba

1 respostas

  1. Best Answer

    Passo 1: Vá para o Excel; Dados > Nova consulta > Do banco de dados do Access > Vá para seu local e selecione Arquivo > Escolha sua tabela para exibir > Clique em Editar > Aplicar filtro manualmente conforme sua necessidade > Clique em Carregar para > Selecione seu destino no arquivo Excel.

    Acesso ao Filtro de Dados do Excel por valor da célula

    Etapa 2: Criar nova tabela para filtrar o valor> Nomeie a tabela EMPDATA > guia Ir para dados> Clique na tabela > O editor de consulta será exibido> Nomeie a consulta como EMPDATA > remova o tipo de alteração na árvore de navegação> verifique se o tipo de dados do valor do filtro deve ser o mesmo> Ir para Editor avançado> Agora pré-código disponível

    Você tem que adicionar a linha com seu código para defini-lo. Atualize também o EmpNo conforme sua exigência

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

    Este é o nosso código Após atualizá-lo. Clique em Carregar para > Criar Somente Conexão

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

    Nomeie o Valor

    Agora volte para nossa consulta principal

    • Código gerado automaticamente
    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

    Em seguida, adicione esta linha antes da fonte

    ANDCriteria01 = EMPDATA,

    Substitua também o valor direto "6734" para EMPDATA

    Então, nosso código final chegará a este formato

    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

    Agora clique em carregar e salvar. é isso.

    certifique-se, a vírgula deve cada linha e certifique-se de soletrar para cada parâmetro

    • 0

relate perguntas