Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70139 Skopiuj do schowka PQ pobieranie danych z katalogu plus kolumna z uwagami
Autor Wiadomość
Pindelek 
Exceloholic


Pomógł: 1 raz
Posty: 154
Wysłany: 13-02-2021, 16:21   PQ pobieranie danych z katalogu plus kolumna z uwagami

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

ID posta: 400322 Skopiuj do schowka
 
 
DwaNiedźwiedzie 
Excel Expert



Wersja: Win Office 2016
Pomógł: 278 razy
Posty: 686
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.
  
ID posta: 400400 Skopiuj do schowka
 
 
Pindelek 
Exceloholic


Pomógł: 1 raz
Posty: 154
Wysłany: 18-02-2021, 20:47   

DwaNiedźwiedzie dziękuję za pomoc, punkt przyznany ;-)
ID posta: 400649 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe