Kiedyś takie makro napisałem. Nazwy zmiennych i krótki opis pozwoli Ci zrozumieć kod i dostosować do swoich potrzeb. Mam nadzieję.
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Cześć, może ktoś z Was kojarzy taki temat albo ma gotowe makro. Powiedzmy, że mam folder "A" w którym mam 50 plików PDF/xls/xlsm o różnych nazwach. Chciałbym wskazać jaką ilość plików z wybranego folderu ma mi otworzyć makro, a następnie ma otworzyć losowo wybraną ilość plików. Cel: makro ma byc pomocne w wybieraniu próbki plików do kontroli, w sposób...
(at)prl ale wydaje mi się że to mija się z celem bo tak to będę musiał edytować co jakiś czas ścieżkę do pliku więc wychodzi na to samo. Może dokładniej to opiszę. Co miesiąc tworzę nowy folder na dany miesiąc, raz w roku na nowy rok. W danym miesiącu przenoszę do nowego folderu pliki z poprzedniego miesiąca. Po wykonaniu pewnych operacji na jednym...
Witam ponownie. Do makra potrzebuję dopisać jeszcze jedną opcję, mianowicie jakim poleceniem mogę zmienić nazwę folderu. Folder już istnieje jednak jego nazwa nie zgadza się z żądaną nazwą, jakim poleceniem zmienić nazwę?
Jeśli go przy założeniu, że jest folder i w nim znajduje się plik raport.xlsm i folder w którym znajdują się pliki xlsx z których będą pobierane dane, następnie prosty wariant makro nazwy plików nie ma znaczenia, ważne jest, aby mieć w jednym folderze, (jeden)
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
Cześć, potrzebuje makra które będzie sprawdzało po kolei komorka pod komórką w excelu czy takie nazwy pliku sa w folderze i jego podfolderach i wyrzucalo informacje obok pliku "tak, nie". W kolumnie A mam nazwy plików jeden pod drugim. Ktos coś pomoże?
Załączę plik z częściowo opisanym makrem i oznaczeniem problemu ("TO DO ZDEFINIOWANIA"). W pliku też wklejone są zrzuty widoku przykładowego folderu, w którym znajduje się plik, w którym zdefiniowane jest makro (oferta.xlsm) oraz folder z załącznikami, które mają być załączone do maila (ilość załączników i nazwy załączników zmienne).
Witam serdecznie. Zwracam się z wielką prośba o pomoc w edytowaniu makra. Mam folder o nazwie"aaaa" w nim jest podpięte makro o nazwie "bydło". W tym folderze mamy nazwy arkuszy: "Dane", "Ksiega", Ksiega1", "wzor ksiegi". Jak uruchomimy makro"bydło" to idealnie działa w arkuszu o nazwie "księga". Osoba która będzie mi chciała pomoc, niech uruchomi makro...
A to żeś rozjaśniła :) Makro będzie zapisane w pliku do którego będą kopiowane dane czy w jakimś innym miejscu? Jeżeli w tym pliku to zmienność jego nazwy nie ma znaczenia. Na jakiej zasadzie będzie zmieniać się nazwa pliku z danymi i czy będzie on ciągle w tej samej lokalizacji (folderze)?
Faktycznie masz racje. winny jest folder systemowy. pomyliłam nad "rozwojem" makra. Czy da się aby podobne makro szukało nie nazw plików czy folderów ale tekstu wewnątrz pliku. Powiedzmy, że chce znaleźć w wielu plikach konkretny NIP klienta ale wewnatrz np plików csv, txt, xls, i inne (te które są możliwe do przeszukania) i żeby te pliki kopiował do...
Przy okacji trochę mi sie koncepcja zmieniła - gdybym musiał wykluczyć więcej niż jeden arkusz - to dałoby się? Można wykluczać arkusze, można też uwzględnić tylko te z listy... Wykluczanie generalnie można zrobić tak: - wykluczasz Arkusz1, Arkusz2 i Arkusz3, drukujesz pozostałe[syntax=vbscript]If ws.Name <> Arkusz1.Name And ws.Name <>...
Moje makro wygląda tak Private Sub CommandButton1_Click() If Dir("C:\Documents and Settings\xxx\Pulpit\Nowy folder" & "\" & nazwa) = Empty Then MsgBox ("Brak pliku") Else Workbooks.Open Filename:= _ "C:\Documents and Settings\xxx\Pulpit\Nowy folder" & " \ " & nazwa End If End Sub Niestety po uruchomieniu makra wyskakuje błąd run-time error '1004' i...
automatyczne nadawanie nazw zapisywanym arkuszom tak aby po każdym zapisaniu generował się kolejny numer i zapisywał jako plik w wybranym folderze Chodzi o automatycznie nadawane nazwy arkuszom, czy plikom? Według jakiego wzorca?
Jestem początkujacy. Moze ktos mi pomoze. w folderze "dane" mam wiele plików excelowych o róznych nazwach (np G12.xls,S-12 itd). W folderze "wzor" mam plik "wzór.xls". Potrzebuje aby makro skopiowało nazwe pliku z folderu "dane" pliku np G12.xls, kopiując plik "wzór.xls" zapisując w folderze docelowym "docel" z taka sama nazwa np G12.xls albo 2017-G12.xls....
Dziękuję serdecznie i wszystko działa :) Dodano po 2 Mam jeszcze problem bo chciałbym utworzyć nowe foldery które mam w piątej kolumnie
Czy za pomocą funkcji można zrobić tak aby w sytuacji gdy mamy w nazwie podkreślnik, to hiperłącze brało tylko tą nazwę, która jest przed podkreślnikiem? Problem w tym że funkcja hiperłącze nie obsługuje symboli wieloznacznych (jak * czy ?) pomijam oczywiście makro czyli jak wpiszesz Nowak* to i tak nie zadziała Hiperłącze żeby zadziałało musi mieć...
Sorki nie wiedziałem jak opisać. Zainteresowałem się makrem jak mi temat wpadł, a spędziłem na próbach kilka dni zaczym napisałem na forum :( 1.Wszystkie pliki są w tym samym folderze 2.Każdy plik ma zostać przeszukany (bez względu na date, nazwę itd) 3.każdy plik zawiera wyłącznie jeden arkusz. dzięki za pomoc. Zarejestrowałem makro niestety nie wiem...
Załączam plik, w którym dzieją się takie rzeczy. Makro uruchamia się przyciskiem "zapisz jako" w arkuszu "projekt. W arkuszu "ilości" jest komórka zawierająca nazwę dla pliku. W tym skoroszycie kod jest napisany z jawnym rozszerzeniem ".xls" a format daty w arkuszu "ilości" jest z kropkami. Jeśli zamieni Pan w dacie kropki na myślniki (minusy), to działa...
Witam, potrzebuje zrobić następującą rzecz: 1. Mam następujące dane w excelu: https://obrazki.elektroda.pl/9319066300_... 2. Potrzebuję aby makro stworzyło Folder o nazwie "A" a w nim podfoldery "ot" , "stech"... i tak do "pm". I tak dalej folder "B" i podfoldery "ot".... Dodam że w kolumnie A wartości będzie wiele. 3. Kolumna C zawiera...
Witam Stworzyłem programik, który importuje z folderów i podfolderów pliki *.dat do Excela. Pierwszy przycisk (makro) otwiera po kolei wszystkie pliki dat i zapisuje do jednego arkusza w pierwszy wolny wiersz. Drugi makro importuje konkretny plik z konkretnego folderu. W folderze dane znajdują się podfoldery np. 0112 , 0212, 0312 które oznaczają miesiąc...
1. pobiera listę plików .xlsx w folderze 2. usuwa zakładki, tworzy nowe i orzenosi dane z pobranego pliku z folderu 3. przenosi dane z jednej zakładki do finalnej KOR 4. przenosi poszczególne wiersze z zakładki RAT do zakładki KOR do tego samego wiersza jako kolejne kolumny 5. tworzy nowy plik z danymi z zakladki KOR, zapisuje i przechodzi do pkt 1...
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
Proszę o pomoc. Potrzebuję napisać makro do kopiowania danych z plików excela, które umieszczone są w danym folderze. W taki sposób, aby następnie dało się w pliku zbiorczym zrobić listę "nazw". W każdym pliku mam "nazwy", które mają przyporządkowane poszczególne numery. Cześć z tych numerów się powtarza. A ja potrzebuję zrobić listę wszystkich numerów...
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
Mam taki problem, że w arkuszu z planem produkcyjnym co tydzień muszę zmienić źródło danych. Źródło jest =dysk/folder/[nazwa pliku week 20]Monday'!$F$3 I co tydzień poprzez ctrl+f zamieniam wszystkie frazy "week 22" na "week 23" itd. Chciałabym napisać takie makro, że wpiszę w komórkę a1 tekst week 22 a w komórkę b1 tekst week 23 i makro samo przeprowadzi...
Pewnie to proste ale nie mogę sobie poradzić. Mam makro umozliwiajce wstawiane zdjęć do komórki po wpisaniu nazwy zdjecia w komórce obok. Obecnie arkusz tego excela znajduje się w tym samym folderze co baza zdjęć ( np KATALOG 2019) sciezka = ThisWorkbook.Path & "/". Jak zapisac ściężkę aby arkusz znajdował sie w innym folderze ( np. OFERTY).
Witam, probuje stworzyc makro, ktore zapisywaloby dany plik excelowy pod nazwa danego arkusza np. na pulpicie w folderze "TEST" ale w formacie tekstowym Unicode. https://obrazki.elektroda.pl/3260048400_... ponizej moje agrane makro, z niedoskonalosciami: Sub save_unicode() activeWorkbook.SaveAs _ Filename:="C\users\desktop\TEST\Report1....
Arkusz nie ma być czyszczony, używany będzie przez cały miesiąc - będę tylko odświeżała dane. Moja wiedza jest bardzo uboga, wiem że należy zrobić pętlę które przejdzie przez wszystkie pliki xlsx. w folderze "PRODUKCJA" i zwróci nazwy zakładek, a do tego dane z tych zakładek.
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Witam. Nie wiem jak mogę sczytać nazwy plików folderów w pewnym pliku(folderze)? Znalazłem coś takiego ale nie wiem jak to mogę zastosować?: http://forum.php.pl/php_odczyt_nazw_plik... Nie wiem w ogóle jak mógłbym ugryźć ten temat, makro czy PHP czy też inaczej? mam do sprawdzenia 25000 plików. Wynik może być w Excelu,...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
dzień dobry, w związku z tym, że jestem słaby w VBA, mam prośbę czy ktoś może pokazać mi przykładowy/ podobny lub fragment kodu w vba , który wykonywałby następujące zadanie : - makro w danym folderze i podfolderach przeszukuje wybrane pliki excel (pliki wybierane są wg nazw , która zawiera oznaczony fragment tekstu) , - w tych wybranych plikach przeszukuje...
Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...
witam, proszę o pomoc forumowiczów. Zapisałem na dysku sieciowym w FOLDER plik excel ( generator raportów)z makrem tworzący w tym samym FOLDER raporty w .pdf. Niestety makro nie działa i zatrzymuje sie na niewłaściwej lokalizacji. Ten sam plik umieszczony na dysku lokalnym działa. co jest nie tak? Z. Lokalizacja pliku \\A.B.C.D\NAZWA\FOLDER L4 - to...
Cześć, Potrzebuję lekko zmodyfikować makro które otwiera najnowszy folder (po dacie która jest w nazwie) I kopiuje z niego pliki. Problem jest taki że nie otwiera konkretnego folderu ponieważ znajduje się tam również folder "ARCHIWUM", nie mogę go przenieść ani zmienić nazwy. Potrzebuję zmodyfikować kod (pętle) aby pomijał ten konkretnych folder. Czyli...
Jak napisać makro w Outlook, które będzie załączać kolejne pliki pdf z określonego folderu i automatycznie dodawać odpowiedni adres email, na który dany plik ma zostać wysłany. Nazwy tych plików do wysłania są takie same jak nazwy odpowiednich kontaktów (adresów) w Outlook. Chodzi o to, aby automatycznie załączać plik i dopasowywać do niego odpowiedni...
Dzień dobry. [syntax=vbnet]Sub Wygeneruj() Dim sciezka As String Dim i As Integer Dim FolderPath As String, path As String, count As Integer FolderPath = "C:\BC" path = FolderPath & "\*.xlsm" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop count = count + 1 Sheets("Dane do list").Range("F12").Value = count...
wyskakuje jeszcze błąd z tą samą nazwą arkusza W Skoroszyt zawierający makra zostawić tylko jeden arkusz i dać mu jakiś unikatową nazwę(ale Excel, sam zmienia nazwę (dodaje (2)), a następnie zmiany nazwy na nazwę skoroszytu) Chcesz wybrać pliki indywidualnie? Wtedy [syntax=vb] Sub zbior() Dim wb As Workbook Do fl = Application.GetOpenFilename("ExcelFiles....
Hej, mam w pliku a.xlsm zapisane makro którego wykonanie powoduje zapisanie kopi tego pliku w innym folderze pod nazwą b.xlsm. Obecnie działam tak że otwieram plik a.xlsm muszę odczekać około 10-15 s aż plik automatycznie pobierze kwerendą świeże dane z SQL-a następnie ręcznie uruchamiam makro o nazwie Makro1. Po wykonaniu makra plik a.xlsm zamyka się...
Spróbuj tak [syntax=vbscript] Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Const fileName As String = "A.xlsx" ' nazwa pliku do otwarcia Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = ThisWorkbook.Path .Filters.Clear .Filters.Add "Pliki Excel",...
Zanim zaczniesz coś kodować w VBA (albo czymkolwiek innym) musisz wiedzieć czego chcesz. Młodzi programiści zwykle od razu rzucają się do klawiatury, sam tak robiłem i czasem nadal robię, ale to ostatecznie zabiera więcej czasu, niestety. :) W tym przypadku czy ten numer klienta jest poprzedzony jakimś charakterystycznym tekstem, albo jest zawsze w...
Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Przypominam, że na prośbę autora postu kod został dostosowany do ściągania danych tylko z pierwszego arkusza wszystkich plików ze wskazanego folderu :D Kod jak widać działa tak, że ściąga wpierw wszystkie dane ze wszystkich pierwszych arkuszy , a dopiero...
Kod działa świetnie na tym podanym przykładzie:-) Niestety po przeniesieniu kodu do innego pliku, krtóry jest zbudowany analogicznie - niestety kod już nie działa. Czy mógłbyś mi jeszcze z tym pomóc na przykładzie poniższego zrzutu? Nie mogę zamieścić całego pliku. I chciałabym zapisywać pliki do jednej lokalizacji na dysku sieciowym, załóżmy w dowolnym...
Witam, jak w accesie storzyc makro, aby sprawdzalo czy nazwy plikow pdf wplisanych w kolumnie "Pliki" są takie same jak w podfolderach w danej lokalizacji. Np. Skanuje dokumenty o nazwach 101, 102, 103 itd. Dokument o nazwie 101 znajduje się w w folderze o nazwie 101, który to folder leży w lokalizacji np. D:\Skanowanie, Czyli D:\Skanowanie\101\101.pdf...
Cześć, napisałem 2 makra i nijak nie mogę ich połączyć. Makro 1 - tworzy nowy folder Makro 2 - zapisuje plik pod nową nazwą folder i plik pod aktualną datą, ta w komórce Q2. Oba makra działają, folder się tworzy, plik zapisuje się pod nową nazwą ale nie w nowym folderze Sub X() ' zaznacz1komorke Range("Q2").Select 'zrób nowy foler Dim Rng As Range Dim...
Piszę makro, które ma pobrać nazwy wszystkich plików .csv z zadanego folderu, wyciągnąć z nazw fragment określający datę i godzinę, a następnie sprawdzić czy mieści się ona w wybranym przedziale i jeśli tak - pobrać z pliku pewne dane. Dotarłam do momentu, w którym wypisuję w kolumnie A nazwy wszystkich plików np. "Part_maXYmos_MP-000_2018-12-03_14-45-13...
https://obrazki.elektroda.pl/1034843600_... Czyli mamy tak: 1) Okienko ze zmiennymi danymi. Są tutaj ograniczniki prędkości: RQ-250, LK-250, LK-200 itp. Po prostu wcześniej będzie się wybierało w projekcie dany element i w tym okienku będzie właściwa nazwa. 2) Mamy guzik kopiuj który po kliknięciu robi całą operację. 3) Kopiujemy po...
Mam taki problem z makrem. W pewnym folderze mam tylko jeden plik i jest on w formacie .xlsm. Niech się nazywa 1.xlsm Moje aktualne makro tworzy mi nowy skoroszyt excela (do innego folderu niż ten w którym jest wspomniany wcześniej 1.xlsm). Następnie chcę dokonać przeklejenia pewnych danych z starego excela (tego o którym wspomniałem 1.xlsm) do nowego....
Hey może ktoś mi podpowie. Napisałem makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką. Drugie makro ma za zadanie przekopiować to zdjęcie do dwóch innych arkuszy. I tu pojawia się problem. W kodzie drugiego makra w taki sposób wybieram zdjęcie ("Obraz 1").Copy Ale co jeżeli obrazków będzie więcej ? Nie mam pewności który obraz...
Masz racje może faktycznie ciężko i spaprałem opis, postaram się to sprawdzić po weekendzie. Jeszcze raz opisuje o co mi chodzi , mam 200 plikow w folderze "dane", w folderze "WZOR" jest plik wzorcowy wzor.xls oraz folder "CEL" czyli jest tak skrypt z folderu "dane" pobiera pierwszy plik to jest otwiera plik np g35.xls kopiuje odpowiednie zakresy komorek...
Jak długo masz programowania? https://support.office.com/pl-pl/article...
Excel-pliki(tam de rożne osoby wypelniają własne dane ) mają tylko jeden arkusz? jako makro musi znać nazwę "źródła". "Źródło" w tym samym folderze co reszta plików?
Cześć Potrzebuje waszej pomocy. Obecne proste makro które mam: [syntax=vb] Sub Info() Sciezka = "Y:\BAZA INFO" Nazwa = Format(Now(), "yy.mm.dd.hh.mm") & ".xls" ActiveWorkbook.SaveAs Filename:=Sciezka & "\" & Nazwa ActiveWindow.Close End Sub [/syntax] zapisuje wypełniony plik w folderze BAZA INFO a dalej już musze sam przerzucać pliki do podfolderów...
Witam Jestem jeszcze zielony w makrach excel, dlatego potrzebuję Waszej pomocy. Chciałbym stworzyć makro kopiujące dane z wielu plików excel do jednego pliku zbiorczego. Założenia: 1. Wiele plików dawców *.xls o różnych nazwach znajdujących się w tym samym folderze 2. Kopiowanie z pliku dawcy z zakresu arkusza "Tabela wyników" z komórek A2 do D51 3....
Witam wszystkich serdecznie. Na wstępie chciałbym uprzedzić, że jeśli chodzi o VBA to jestem praktycznie noga. Przeszukałem internet oraz obecne forum i znalazłem makro prawie pasujące do moich potrzeb, mianowicie makro sumuje konkretną komórkę ze wszystkich plików znajdujących się w danym folderze. I tu moja prośba do kolegów. Czy byłby ktoś w stanie...
Witam serdecznie. Jestem nowym użytkownikiem trochę początkującym w makrach i VBA w Excelu aczkolwiek mam problem: Chciałbym napisać makro kopiujące kolumnę komórek z pominięciem pustych do NOWEGO pliku (ścieżka stała, nazwa zależna od 1 komórki w arkuszu) .xls Nawet nie wiem czy potrzebna jest pętla czy wystarczy sprytne makro. Proszę o przykład na...
Cześć wszystkim, Z góry uprzedzam, ze moja wiedza w zakresie VBA jest znikoma - ogranicza się jedynie do pętli, odwołań do komórek, tworzenia mało skomplikowanych funkcji czy makr. Niektórym z was mój problem może wydać się prosty. Przeszukałem parę stron w poszukiwaniu odpowiednich makr lub przerobieniu istniejących, jednak było to bezowocne. Chciałbym...
Witam Szanownych Forumowiczów, mam taki problem, że potrzebuję przerobić treść plików txt znajdujących się w folderze. Mam w tych plikach faktury w postaci tekstowej. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury. Np. chcę zamienić tekst "Faktura"...
Cześć! Mam pewien problem z którym borykam się od dłuższego czasu. Na VBA się nie znam... potrafię jedynie nieco dostosowywać kody, do swoich potrzeb, ewentualnie łączyć kilka w jeden. Ale z tym tematem sobie nie radze. Może mi pomożecie... Mam pliki o różnych nazwach. W każdym z plików są 3 arkusze- zawsze tak samo nazwane. każdy arkusz zawiera różny...
Rozdziel ścieżkę i nazwy plików. Argumentem metody Open jest string, więc możesz podstawić ze zmiennych. Np Workbooks.Open sciezka & "\" & plik Gdzie wartość dla "sciezka" pobierana jest z komórki, inputbox'a, browsera, etc.
Dziękuję za zainteresowanie tematem i odpowiedź. Wiem, zadanie nie jest łatwe. Zastanawiałem się jeszcze nad jednym arkuszem, i kolumną "ID" gdzie byłyby zapisywane nazwy tych "sekcji" czyli Counter, LearnStarted itd., ale chyba byłoby to bardziej skomplikowane, i dane prezentowane w ten sposób, trudne do obróbki np. tabelą przestawną :(. Bazując na...
chciałbym poinformować,że nie dawno odkryłem VBA Hmm... Skoro odkryłeś, może warto nauczyć się go wykorzystywać? Do rozwiązania swojego zadania potrzebujesz kilku rzeczy: 1. Określić nazwę folderu nadrzędnego. Tu można wykorzystać FileSystemObject, Np [syntax=vbscript]Dim oFSO As Object, srcFldr As String, parFldr As String Set oFSO = CreateObject("Scripting.FileSystemObject...
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
witam, Miałbym pytanie dotyczące poniższego kodu. Makro działa, ale za każdym razem kopiuje dane ze starych plików i z nowo dodanego, czyli jeśli pojawił się nowy plik z danymi pobiera dane z nowego i powiela dane historyczne w kolejnych wierszach. Jak "zmusić" makro, aby pobierało dane tylko z nowo pojawiających się plików, a nie ze wszystkich jakie...
Witam Mam pytanko bo w sumie robię coś podobnego z tym małym wyjątkiem że: Jak ominąć podawanie konkretnej nazwy pliku? Chodzi o to ze chce aby mi do arkusza zassało dane z komórek A1 ze wszystkich arkuszy znajdujących się np w folderze XXX ?
Witam, wiem, że taki temat już był, ale został już zamknięty a napotkałem problem z którym nie mogę sobie poradzić, więc nie pozostaje mi nic innego, jak otworzyć nowy i prosić o pomoc . :roll: Potrzebowałem makra, które z danego folderu będzie otwierało zawsze ostatnio zapisany plik. Na początku chciałem aby pliki były przeszukiwane po nazwie (nie...
Chcę aby moje makro kopiowało wybrane dane z dokładnie 4 arkuszy do innego arkusza. Arkusz docelowy: W docelowej zakładce w wierszach znajdują się nazwy danych a w kolumnach daty generowania tych danych Arkusze źródłowe: 1. Są zapisane w tym samym folderze 2. Różnią się tylko końcową datą (rok-miesiąc) 3. W wierszach znajdują się nazwy danych a w kolumnie...
Witam ponownie, Nie linczujcie mnie :) podejrzewam, że dzisiaj jeszcze poproszę kilka razy o pomoc - jestem początkująca, ale bardzo chętna do nabywania wiedzy:) Mam problem ze stworzeniem pętli do tworzenia nowych skoroszytów, napisalam makro tworzące 10 skoroszytów o nazwach dane_1, dane_2 itd., zapisujących się w folderze utworzonych na pulpicie...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Jeśli Mamy raporty dzienne z każdego miesiąca zapisane w ten sposó; 5.MAJ-2011/R.D 5-1 do 5-31 i tak w każdym misiącu w folderze "5.MAJ-2011" są tylko pliki raportów, to bez wnikania w nazwy pobieramy kwoty z kolumny "C" (lub tych kolejnych) na podstawie tekstu z kolumny "A" z wszystkich znajdujących się tam plików. Jeśli standard zapisu nazwy jest...
Witam Plik z kopiowaniem działa fajnie tylko nie wiem jak ugryźć temat taki... mianowicie mam w jednym katalogu pliku różnego formatu np; jpg, AI, png , i wszystkie ponumerowane od 1 do 1000 np: 1.jpg , 1 AI, 1.png. ( i makro wszyskie 3 pokazuje w oddzielnym folderze i ok ) Problem polega na tym że jak szukam pliku nr 1 to wyszukują się wszyskie pliki...
Zainteresuj się instrukcjami obsługi plików. Np Instrukcja używana do zmiany nazwy pliku dyskowego lub folderu (katalogu). Składnia rozkazu Name: Name StaraNazwa As NowaNazwa Sprawdzaj w pętli cztery (trzy w drugim przypadku) znaki od lewej każdego jpg, wyszukaj w kol.B, podstaw z kol.A i zmień nazwę
Witam, przejrzałem forum w poszukiwaniu odpowiedzi ale niestety jestem zielony jeśli chodzi o tworzenie makr i nie znalazłem albo nie potrafiłem zastosować rozwiązań przedstawionych w odpowiedziach o podobnej tematyce :( Chodzi mi mianowicie o stworzenie makra, które będzie tworzyło bazę danych na podstawie danych z innych plików excel. W załączeniu...
Mam w "Moich dokumentach" mam zapisane dokumenty w wordzie, np o takich nazwach : 00001_025676583_ADAM PUTON 01000_025694625_Grzegorz Szafrański. Chciałbym aby makro drukowało mi te pliki w określonej kolejności. Jakiej kolejności? takiej jak sa zapisane w moich dokumentach. Dodano po 4 Dokumenty są zapisane jako pliki word. Kiedyś to makro podpinałem...
Szanowni Państwo, bardzo proszę o pomoc w stworzeniu prostego makra. Mam wiele folderów, w których znajdują się pliki z rozszerzeniem ".html". W każdym takim pliku znajduje się tabela o tej samej dla wszystkich plików ilości kolumn z tymi samymi nazwami nagłówków (pierwszy wiersz to nagłówki). Różnica pomiędzy tymi plikami to jedynie ilość wierszy....
Witam. Posiadam makro ale chciałbym, żeby zaczytywało pliki nie tylko ze wsakzanego folderu ale również ze wszystkich plików w podfolderach. Czy jest taka komenda? Proszę umieszczać kod w znacznikach syntax . Opcja Listing kodu .
Pliki sa zapisywane w folderze na dysku do którego dostęp maja wszyscy pracownicy. Nazwy sa rożne ale mozna je jakos ujednolicić jest to jest konieczne. Ankiet jest kilkadziesiąt miesięcznie. Z tym wczytywaniem tez nie jest zły pomysł, mozna robic to np raz na tydzien. Problem jest tylko taki ze kompletnie nie ogarniam VBA
Dlaczego takie udziwnianie? Jest przecież metoda SaveCopyAs. Schemat mógłby być taki: [syntax=vbscript]Private Sub Workbook_Open() Dim plik As String plik = Left(Me.Name, InStr(Me.Name, Year(Date)) - 1) Me.SaveCopyAs plik & Format(Now, "yyyy-MM-dd_hh_mm_ss") & ".xlsm" End Sub[/syntax]Folder można sobie uzupełnić, jeśli kopie mają być zapisywane w innym...
Witam Znalazłem na tym forum ([url=http://www.elektroda.pl/rtvforum/t... bardzo fajne makro do importu wielu plików txt do Excela z jednego folderu. [syntax=vb]Private Sub CommandButton1_Click() Application.ScreenUpdating = False Set wks = ThisWorkbook.Worksheets("Sheet1") sciezka = "C:\Documents and Settings\Marcin\Pulpit\a" wks.Range("A2:IV65536").ClearContents...
Witam, Mam problem, chciałbym żeby makro robiło natępujace rzeczy: a)zaznaczyło wszystkie arkusze w skoroszycie b)każdy arkusz zapisało pod nazwa zawartosci komórki A2 w komorce A2 tekst w arkuszu1(ala), w arkuszu2(basia), w arkuszu3(marysia) w folderze w którym znajduję się skoroszyt.
Witam Mam problem a mianowicie mam folder, który zawiera około 2000 plików excel, które różnią się od siebie tylko końcówką nazwy (przykład - dok_1, dok_2, dok_3 itp.) mam też nowy arkusz excela o nazwie "wyszukiwanie" w którym chciałbym aby po wpisaniu danej części nazwy (1, 2 lub 3) wyszukał mi dany plik i z tego wyszukanego pliku skopiował mi do...
Cześć, Potrzebuje pomocy, a mianowicie czy da się napisać makro, które będzie szukać wartości funkcją vlookup z innego pliku, który chciałbym wybrać z folderu, a następnie dla N/A szukać wartości z innego, który też chciałbym wybrać. Dodatkowo, żeby dla wyszukanych wartości z pierwszego pliku zmieniało nazwę na "Tak", a z drugiego dla znalezionych wartości...
WItam, pomozcie, temat niby prosty, ale jednak nie moge sobie z nim poradzic. potrzebuje makra, ktore zapisywaloby dany arkusz excela (aktywny w danym momencie) w formacie pdf, nazwa tego pliku bylaby brana z dwoch komorek tego arkusza, np e1 I e5, a sam plik pdf zapisywalby sie na pulpicie w folderze PDF. po skonczonym dzialaniu wyskakuje komunikat...
Tak właśnie wnioskowałem i znalazłem coś takiego ale nie wiem jak to podmienić pod moje. Co to jest to Len, Right, InStrRev? [syntax=vbnet]Sub PobierzNazwePliku() Dim NazwaPliku As String Dim Sciezka As String Sciezka = "C:\Users\Documents\makro\makro.xlsx" NazwaPliku = Right(Sciezka, Len(Sciezka) - InStrRev(Sciezka, "\")) End Sub[/syntax]
Mam makro, które otwiera plik o nazwie "Stary". Co należy zrobić, aby makro na początku sprawdziło czy w folderze jest plik o nazwie "Stary" i jeżeli nie to pojawiło się okno np z informacją błąd, a jeżeli jest plik w folderze to go otwierało [syntax=vbscript]For Each b In Workbooks If b.Name = "Stary.xls" Then otwarty = True: Exit For Next If Not otwarty...
VBA - otwieranie excela kopiowanie do szablonu i zapisywanie do pdf. W folderze znajduje się xx plików o róznych nazwach. Mam stworzone makro, ktore po kliknieciu w przycisk otwiera lokalizacje i ja wybieram ktory plik chce zeby skopiowano do wzorca a potem zapisalo do pdf. Natomiast potrzebuje to zmienić, aby po pierwszym wybraniu pliku, on sam kazdy...
Witam, proszę o pomoc w następującym problemie. Mam pewne koncepcje na realizację ale dopiero chcę rozpocząć naukę VBA i nie potrafię jeszcze tego oprogramować. Widziałem rozwiązania, które wydają się podobne ale nie potrafię ich zaimplementować. Założenie: 1)Istnieją dwa zbiory/foldery plików (c:\zrodlo oraz c:\analiza), 2)W każdym z nich znajduje...
Mam makro pobierające dane z plików *xlsx w katalogu i wkleja je do aktywnego arkusza. Większość danych pobierana jest z arkusza o nazwie "Arkusz1". Co zrobić aby pobierał dane z arkusza o dowolnej nazwie. Zazwyczaj arkusz wypełniony danymi jest tylko jeden ale czasem zdarza się, że są trzy aktywne arkusze ale tylko pierwszy zawiera dane. [syntax=vbscript]Sub...
Witam, Proszę o pomoc w napisaniu prostego makra które będzie działać zgodnie z poniższym opisem: Na dysku C:\ znajduje się folder BAZA, a w nim siedem plików CSV o nazwach 1.csv, 2.csv, 3.csv, 4.csv, 5.csv, 6.csv, 7.csv. Wszystkie pliki mają tą samą konstrukcję i wiersz nagłówkowy - różnią się jedynie wartościami danych w poszczególnych kolumnach....
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Witam wszystkich życzliwych, z góry bardzo dziękując za pomoc. Zasięgałem już porady na tym forum ale potrzebuję doprecyzować już na konkretnym przykładzie. W załączeniu zamieszczam projekt, który potrzebuję stworzyć. Do rzeczy, potrzebuję stworzyć makro, które będzie przeszukiwało folder z plikami w których będą dane źródłowe i przenosiło te dane do...
Do Excela wygodniej będzie ciągnąć makrem VBA. Ja bym to robił w takiej kolejności: 1. Zrób sobie taką pętlę, która przebiega po wszystkich plikach o które ci chodzi. Przetestować. Możesz wypisać nazwy dla weryfikacji czy działa. 2. Otwieraj każdy plik po kolei i czytaj w pętli do końca pliku. Przetestować na 1 pliku. Możesz teraz wypisać wiersze, żeby...
podstawiać zdjęcia do jednego UserForma To byłoby logiczne, aby umieścić zdjęcia w jednym folderze i wywołać(nazwy) za pomocą numerów podstawiać zdjęcia do jednego UserForma Odwolanie do komorki - nie tylko 'Range("b3")' - to camo ject Cells(wiersz, kolumna) czyli Cells(3, 2). Możesz mieć kolumna(pomocnicza) gdzie makro zapisze numer następnej kolumny...
Spis mam w excelu Z tego to było niezbędne do rozpoczęcia. Lepiej zrobić .bat lub makro Excel? Dodano po 7 Dla .bat wystarczy kopiuję pierwszą kolumnę do pliku txt SaveAs lista.txt - bez tytułu (etykieta)
nazwa folderu użytkownika outlook nazwa folderu makro tworzenia folderu
podłączyć telewizor philips router światło dyskotekowe zrobić cennik
lodówka bosch rower elektryczny
ALUP SOLO7 – kody błędów, kasowanie alarmów, Air-Control 1/2, instrukcja serwisowa Puszka podtynkowa 80 mm z deklem gwintowanym – PIP-80, bakelit, zamienniki, dostępność 2024