Korespondencja seryjna w Excelu bez użycia programu Microsoft Word.

  Рет қаралды 11,471

SmartExcel - Sebastian Godziszewski

SmartExcel - Sebastian Godziszewski

Жыл бұрын

#excel #vba #vbaexcel
Oglądając film dowiesz się jak za pomocą programu Excel, bez wykorzystania programu Word przygotować korespondencję seryjną. Na podstawie bazy danych zasilimy wcześniej przygotowany wzór (szablon) dokumentu i napiszemy kilka procedur, które będą drukowały i generowały dane do PDF-a w określonej lokalizacji.
W filmie zostaną użyte następujące rozwiązania i funkcje:
- funkcja ILE.NIEPUSTYCH()
- funkcja WYSZUKAJ.PIONOWO()
- TABELA jako obiekt (Ctrl+T)
- narzędzie Poprawność danych
- nazwa zdefiniowana
- kształty
W samym kodzie procedur, wykorzystam metodę eksportu danych czyli ExportAsFixedFormat następnie Application.ScreenUpdating, Application.StatusBar, PrintOut, pętla FOR NEXT oraz funkcję MsgBox.
Zapraszam do oglądania
ZAPRASZAM NA KAWĘ!
Jeżeli film ci się podobał i uważasz ten materiał za wartościowy, możesz postawić mi kawę :)
buycoffee.to/smartexcel
Poniżej link do pobrania pliku, który został użyty w filmie:
smartexcel.pl/download/koresp...

Пікірлер: 21
@mariuszszczepaniak50
@mariuszszczepaniak50 6 ай бұрын
Bardzo dziękuję za filmik i plik. Małe modyfikacje i już drugi miesiąc stosuję Twoje rozwiązanie. To przekonało mnie, że warto subskrybować Twój kanał 👍
@krzysztofpawlusiak3452
@krzysztofpawlusiak3452 Жыл бұрын
Super użytek😊😊
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Dziękuję za komentarz :)
@slawomirowczarek9488
@slawomirowczarek9488 3 ай бұрын
Super pomocny plik & filmik ! Na starcie już w 2 miejscach będę mógł sobie usprawnić robotę !🙂 Pytanie mam: Czy jest gdzieś filmik z pokazaną akcją wyboru, które pozycje wydrukować ?
@marekdalkowski2703
@marekdalkowski2703 Жыл бұрын
Znakomita robota 🙏👍
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Dziękuję za komentarz i miłe słowa :)
@sebastianwieczorek1585
@sebastianwieczorek1585 9 ай бұрын
Super rozwiązanie .👍 Mam tylko jedno pytanie. Jak wygenerowane wszystkie strony umieścić w jednym PDF tak by nie tworzyć osobnych plików.
@Bartek-cc1tv
@Bartek-cc1tv Жыл бұрын
Coś cudownego - ułatwia bardzo pracę. Wiele można się nauczyć. Ale mam pytanie. Czy jeżeli dane mam w kilku arkuszach czy można wybrać najpierw arkusz a dopiero później pracownika i wygenerować raport? Jeżeli tak to jak mogę to połączyć? próbowałem kilku kombinacji ale nie wyszło. Czy trzeba jednak mieć dane w jednym arkuszu?
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Dziękuję za komentarz. Odpowiadając na pytanie to tak można wybrać w pierwszej kolejności arkusz, z którego mają zostać pobrane dane do korespondencji. Można do tego użyć VBA lub zrobić wszystko w Excelu za pomocą np. formantów (przyciski opcji) oraz zmodyfikować kod tak, aby w zależności od wybranego arkusza pobierał prawidłowe dane. Przydatna tu będzie funkcja ADR.POŚR(). Należy jednak pamiętać, że musimy utworzyć dynamiczny adres do bazy danych, do nazw arkuszy jak i do list rozwijanych z danymi. Wszystkie przypadki obsługujemy funkcją JEŻELI() lub WARUNKI() ( Excel >= 2016) zwracając te dane do osobnych komórek a później modyfikujemy istniejące funkcje WYSZUKAJ.PIONOWO - dodając wspomnianą funkcję ADR.POŚR(), która odwołuje się do tych właśnie komórek (z funkcji jeżeli lub warunki). Pozdrawiam
@kingamalik1505
@kingamalik1505 Жыл бұрын
Świetne rozwiązanie problemu. A co jeśli w docelowym folderze, do którego przesyłamy wygenerowane PDF-y już jest taki sam plik, o takiej samej nazwie? Czy w danym makrze nie powinniśmy uwzględnić tego faktu?
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Dziękuję za komentarz. Odpowiadając na pytanie, muszę stwierdzić, że to "zależy". Jeżeli chcemy, aby plik się nadpisywał to nic nie musimy więcej robić ponieważ jest to działanie domyślne podczas eksportu pliku do PDF-a. Jeżeli natomiast zależy nam, aby sprawdzić czy dany plik istnienie (ponieważ w takim przypadku musimy utworzyć kopię pliku) to wtedy musimy ten fakt uwzględnić w kodzie. Utworzyłbym w tym celu zmienną typu FSO - FileSystemObject i za pomocą metody FileExists sprawdzał czy plik istnieje. Oczywiście istnieje przynajmniej kilka metod na sprawdzenie czy plik istnieje ale ta metoda moim zdaniem jest wygodna ponieważ korzystając z wcześniej dodanej biblioteki (Tools -> References... -> wyszukujemy i zaznaczamy Microsoft Scripting Runtime) będziemy mogli korzystać z podpowiedzi VB czyli IntelliSense. Na koniec dodam, że jest to ciekawe wyzwanie jeżeli nie pracowaliśmy wcześniej z obsługą plików. Chętnie dowiem się czy udało się wdrożyć takie rozwiązanie? Filmy zawierające podobne rozwiązania są dostępne na moim kanale. Powodzenia
@kdgtpoland
@kdgtpoland Жыл бұрын
Super temat, ale czy jest dodatkowe rozwiązanie by ten PDF od razu wysłał się do pracownika?
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Dziękuję za komentarz, zapraszam do zapoznania się z filmem na moim kanale, w którym opowiadam jak wysyłać maile za pomocą programu Outlook bezpośrednio z Excela. Link poniżej: kzfaq.info/get/bejne/pc6Di9yVuMy5Z4E.html Pozdrawiam
@PeePoo1983
@PeePoo1983 Жыл бұрын
Jest mozliwy export danych do plikow word (nie korzystajac z korespondencji seryjnej w wordzie), tylko na podstawie szablonu excel? Szukalem na internecie, ale albo jest do pdf, albo korzystajac z worda i wbudowanej korespondencji....
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Tak jest możliwy export danych do plików DOCX (Word) bez tworzenia korespondencji. Należy w tym celu odwołać się do zmiennych, które utworzą nową instancję aplikacji Word a następnie kolejna zmienna utworzy dokument. Zmienna ta będzie jednocześnie odpowiedzialna za wklejanie danych z Excela do Worda jako tabela (obiekt/mechanizm) programu Word. Ps. Planuje w najbliższym czasie nagrać taki filmik :) Pozdrawiam
@smartexcel-s.godziszewski
@smartexcel-s.godziszewski Жыл бұрын
Cześć, zapraszam do najnowszego filmu na moim kanale dotyczącego kopiowania danych z Excela do Worda. kzfaq.info/get/bejne/jZ54g7ud0J3Yp58.html Pozdrawiam
@kamilbuchalski8696
@kamilbuchalski8696 9 ай бұрын
Super przydatne! Jak zrobić, żeby pliki zapisywały się bezpośrednio w folderze na SharePoint?
@kamilbuchalski8696
@kamilbuchalski8696 9 ай бұрын
i jeszcze jedno- jak w nazwie pliku zawrzeć, dzisiejszą datę? Jeżeli w Excelu tworzę komórkę z funkcją =DZIŚ() i staram się na nią powołać np "Arkusz6.Range("A3").Value", to wyskakuje błąd
@mariuszszczepaniak50
@mariuszszczepaniak50 6 ай бұрын
Ja to zrobiłem w ten sposób, że do komórki D1 w Arkuszu3 wstawiłem funkcję =Dziś() a następnie w fragmencie kodu makro, odpowiedzialnym za nadawanie nazwy plikowi PDF, wpisałem: "nazwaPliku = Arkusz3.Range("A2").Value & " " & Arkusz3.Range("D1").Value @@kamilbuchalski8696
@monika6770
@monika6770 8 ай бұрын
niestety u mnie wyszukuje jakieś głupoty
@MarekJankowski
@MarekJankowski 10 ай бұрын
Kwoty zawsze wyrównuje się do prawej, a nie do środka.
Pętla FOR NEXT w Excel VBA. Omówienie pętli wraz z przykładami.
49:28
SmartExcel - Sebastian Godziszewski
Рет қаралды 3,4 М.
Wyszukiwarka danych bez VBA czyli funkcja FILTRUJ w akcji. Funkcja FILTRUJ i wyszukiwarka danych
31:12
SmartExcel - Sebastian Godziszewski
Рет қаралды 4,4 М.
Little brothers couldn't stay calm when they noticed a bin lorry #shorts
00:32
Fabiosa Best Lifehacks
Рет қаралды 4,9 МЛН
Они так быстро убрались!
01:00
Аришнев
Рет қаралды 2,4 МЛН
UNO!
00:18
БРУНО
Рет қаралды 3,6 МЛН
Mail Merge from Excel to Microsoft Word
15:03
Technology for Teachers and Students
Рет қаралды 2,5 МЛН
Nowoczesny formularz do wprowadzania danych bez użycia UserForm w Excel VBA
42:04
SmartExcel - Sebastian Godziszewski
Рет қаралды 29 М.
Korespondencja seryjna w Excelu
17:02
MAGIA EXCELA - Tomasz Zarzyka
Рет қаралды 4,2 М.
Wysyłanie maili w Excelu za pomocą VBA
36:34
SmartExcel - Sebastian Godziszewski
Рет қаралды 11 М.
Kopiowanie danych z Excela do Worda za pomocą VBA
24:38
SmartExcel - Sebastian Godziszewski
Рет қаралды 3,8 М.
Aplikacje w Excelu
30:31
MAGIA EXCELA - Tomasz Zarzyka
Рет қаралды 4,6 М.
EASILY Make an Automated Data Entry Form in Excel
14:52
Kenji Explains
Рет қаралды 468 М.
3 Essential Excel skills for the data analyst
18:02
Access Analytic
Рет қаралды 1,5 МЛН
Dynamiczny kalendarz w Excelu za pomocą VBA. Metoda Application.InputBox
43:23
SmartExcel - Sebastian Godziszewski
Рет қаралды 6 М.
TUSK W SZOKU! MENTZEN ROZBRAJA CAŁY RZĄD!
27:30
Polityczna Waśń
Рет қаралды 66 М.