Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - PQ pobieranie danych z katalogu plus kolumna z uwagami

Pindelek · Exceloholic **Pomógł:** 1 raz Posty: 154

Cześć,
Na dysku C:\dane wrzucam pliki Excel (o tej samej strukturze).
Dzięki PQ pobieram dane z tych plików i to jest ok.
W uzyskanej dzięki PQ tabeli muszę wstawić uwagi/komentarze dla wybranego rekordu.
Natomiast pliki źródłowe (C:\dane) niekiedy muszę usuwać/podmieniać/modyfikować itp.
Niestety w/w czynność powoduje zmianę przyporządkowania prędzej wprowadzonych uwag do rekordu.
Macie pomysł jak uniknąć takiej sytuacji?
Dane testowe w załączeniu.

dane.rar

Pobierz Plik ściągnięto 3 raz(y) 27.86 KB

test_forum.xlsx

Pobierz Plik ściągnięto 4 raz(y) 20.61 KB

DwaNiedźwiedzie · Wysłany: 14-02-2021, 21:42

Zmiana kolejności jest spowodowana tym, że PQ nie rusza w ogóle kolumny z uwagami; nie należy ona do samego zapytania, więc wszystko w niej pozostaje na swoim oryginalnym położeniu. Żeby zachować te informacje, na końcu kwerendy musisz zaczytać swoją tabelę i dołączyć ją "left joinem" do świeżo pobranych danych:

Kod:

let
Źródło = Folder.Files("E:\dane"),
#"Przefiltrowano wiersze1" = Table.SelectRows(Źródło, each not Text.StartsWith([Name], "~")),
#"Posortowano wiersze" = Table.Sort(#"Przefiltrowano wiersze1",{{"Date modified", Order.Ascending}}),
#"Dodano kolumnę xls" = Table.AddColumn(#"Posortowano wiersze", "xls", each Excel.Workbook([Content])),
#"Usunięto inne kolumny" = Table.SelectColumns(#"Dodano kolumnę xls",{"Name", "xls"}),
#"Rozwinięty element xls" = Table.ExpandTableColumn(#"Usunięto inne kolumny", "xls", {"Name", "Data", "Item", "Kind", "Hidden"}, {"Name.1", "Data", "Item", "Kind", "Hidden"}),
#"Przefiltrowano arkusze" = Table.SelectRows(#"Rozwinięty element xls", each ([Kind] = "Sheet")),
#"Nagłówki o podwyższonym poziomie" = Table.TransformColumns(#"Przefiltrowano arkusze", {{"Data", each Table.PromoteHeaders(Table.RemoveRows(_, 0))}}),
kolumny = Table.ColumnNames(#"Nagłówki o podwyższonym poziomie"[Data]{0}),
#"Rozwinięty element Data" = Table.ExpandTableColumn(#"Nagłówki o podwyższonym poziomie", "Data", kolumny),
#"Usunięto inne kolumny1" = Table.SelectColumns(#"Rozwinięty element Data",{"Name"} & kolumny),
#"Podzielono kolumnę według ogranicznika" = Table.SplitColumn(#"Usunięto inne kolumny1","Name",Splitter.SplitTextByDelimiter(".", QuoteStyle.Csv),{"Name"}),
bieżąca = Excel.CurrentWorkbook(){[Name = "test"]}[Content],
#"Scalone zapytania" = Table.NestedJoin(#"Podzielono kolumnę według ogranicznika",{"Name", "a"},bieżąca,{"Name", "a"},"Nowa kolumna",JoinKind.LeftOuter),
#"Rozwinięty element Nowa kolumna" = Table.ExpandTableColumn(#"Scalone zapytania", "Nowa kolumna", {"uwagi"}, {"uwagi"}),
#"Posortowano wiersze1" = Table.Sort(#"Rozwinięty element Nowa kolumna",{{"Name", Order.Ascending}, {"a", Order.Ascending}})
in
#"Posortowano wiersze1"

Uwaga: za pierwszym razem PQ może zduplikować uwagi i oryginalną kolumnę przesunąć w prawo, wystarczy ją usunąć po pierwszym odświeżeniu i dalej powinno już być ok.

Pindelek · Exceloholic **Pomógł:** 1 raz Posty: 154

DwaNiedźwiedzie dziękuję za pomoc, punkt przyznany ;-)