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
Przesunięty przez: bodek
06-02-2019, 20:41
Pobierz dane ze skoroszytu z bieżącą datą
Autor Wiadomość
Piotreku 
Exceloholic


Pomógł: 1 raz
Posty: 207
Wysłany: 04-02-2019, 15:55   Pobierz dane ze skoroszytu z bieżącą datą

Zadaniem jest:
Pobrać dane do skoroszytu "Skanowanie_wszystkie".
Otwórz skoroszyt z datą rrrrmmdd która odpowiada dacie bieżącej. Pobierz dane zamknij skoroszyt i pokaż raport o ilości pobranych kodów kreskowych.

Do forum.zip
Pobierz Plik ściągnięto 39 raz(y) 38.16 KB

ID posta: 361930 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7146
Wysłany: 05-02-2019, 21:56   

Może Power Query:
Kod:
let
    MyDate=Date.ToText(DateTime.Date(DateTime.LocalNow()), "yyyyMMdd"),
    Źródło = Folder.Files("C:\Users\admin\Downloads\Skanowanie Kinet\"),
    #"Przefiltrowano wiersze2" = Table.SelectRows(Źródło, each ([Extension] = ".xls")),
    #"Podzielono kolumnę według ogranicznika" = Table.SplitColumn(#"Przefiltrowano wiersze2", "Name", Splitter.SplitTextByDelimiter("_", QuoteStyle.Csv), {"1", "2", "3"}),
    #"Wyodrębnione pierwsze znaki" = Table.TransformColumns(#"Podzielono kolumnę według ogranicznika", {{"2", each Text.Start(_, 8), type text}}),
    #"Przefiltrowano wiersze" = Table.SelectRows(#"Wyodrębnione pierwsze znaki", each ([2] = MyDate)),
    Content = #"Przefiltrowano wiersze"{0}[Content],
    #"Zaimportowano plik programu Excel" = Excel.Workbook(Content),
    #"Rozwinięty element Data" = Table.ExpandTableColumn(#"Zaimportowano plik programu Excel", "Data", {"Column1", "Column2", "Column3", "Column4", "Column5", "Column6", "Column7", "Column8", "Column9", "Column10", "Column11", "Column12"}),
    #"Usunięto kolumny" = Table.RemoveColumns(#"Rozwinięty element Data",{"Name"}),
    #"Usunięto puste wiersze" = Table.SelectRows(#"Usunięto kolumny", each not List.IsEmpty(List.RemoveMatchingItems(Record.FieldValues(_), {"", null}))),
    #"Nagłówki o podwyższonym poziomie" = Table.PromoteHeaders(#"Usunięto puste wiersze", [PromoteAllScalars=true])
in
    #"Nagłówki o podwyższonym poziomie"
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 362028 Skopiuj do schowka
 
 
Piotreku 
Exceloholic


Pomógł: 1 raz
Posty: 207
Wysłany: 06-02-2019, 00:25   

Marecki, CZY TEN KOD NALEŻY WKLEIĆ DO EDYTORA ZAAWANSOWANEGO ?
ID posta: 362045 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2161 razy
Posty: 7146
Wysłany: 06-02-2019, 05:23   

Tak. Sprawdź jeszcze czy jest podana dobra ścieżka do pliku.
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 362049 Skopiuj do schowka
 
 
Piotreku 
Exceloholic


Pomógł: 1 raz
Posty: 207
Wysłany: 06-02-2019, 18:25   

Marecki, Dzięki! Działa super.
ID posta: 362080 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