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]
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ę...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
Cześć, Istnieje sposób otorzenia folderu za pomocą vba excel podając jego niepełną nazwę? Mam w jednym katalogu szereg folderów, które określa np 10 pierwszych zsnaków, reszta to opis użytkownika. Czy jest możliwosć otwarcia folderu podając tylko 10 pierewszych znaków, reszta dowolna. W przypadku plików można określić zmienną używając " * ", dla folderów...
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...
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 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...
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....
Cześć. Czy ktoś by mógł mi pomóc w edycji makra. Mam w folderze ponad 30 plików Excela. Dane w kolumnach A do D we wszystkich plikach są takie same, zależy mi na aktualizacji danych w kolumnie E. Pliki w folderze mogą być zamknięte i otwarte. Dane w plikach w kolumnach A do D w każdym pliku są zawsze w tej samej lokalizacji, należy tylko zaktualizować...
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...
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 .
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...
Zamykając temat. W pierwszym poście tego tematu jest kompletny kod pod EXCEL 2003 i XP (sprawdzony) Poniżej przedstawiam kod sprawdzony na EXCEL 2007 ( w większości opisane co i jak) [syntax=vb] Sub OperacjeHurtowe() 'makro dla excel 2007 'nazwa pliku startowego start2.xlsm i jest umieszczony w folderze w którym znajdują się podfolery z posortowanymi...
Witam, Potrzebuję pomocy z nastepującym problemem. Mianowicie chciałbym aby makro łączyło się z innym plikiem excelowym, który jest tworzony przez inne makro i różni się wyłączenie datą na końcu. Innymi słowy powinno rozpoznawać, że ma się połączyć z najnowszym plikiem i z niego skopiować dane. Jest to wykonalne? Próbuję to rozwiązać w nastepujący sposób,...
For i = 0 To UBound(PATH) Folder = Folder & PATH(i) & "\" If PATH(i) = "" Then CheckDir = Dir(FullPath & "Nowy" & Date, vbDirectory) If CheckDir <> "" Then MsgBox CheckDir & " - taki folder już istnieje" Else MkDir FullPath & "Nowy" & Date MsgBox "Utworzono nowy folder " & FullPath & "Nowy" & Date End If...
Pomieszanie z poplątaniem.;) Autorze, co chcesz osiągnąć w Akcesie ze wspomnianym plikiem csv, napisz proszę. I co ma wspólnego plik.csv z tematem? Już tłumaczę, sam się w tym zaplątałem dostajemy z urządzenia plik csv który ma dziwnie poukładane dane mój szef zauważył że jeśli otworzy taki plik w excelu i ponownie go zapiszemy jako csv to wszystko...
Witam, czy jest możliwe wykonanie makra, które z danego folderu gdzie jest X plików excelowych, scalił do 1 pliku excel wszystkie te pliki? I czy jest możliwe aby podczas importu nazywał zamiast Arkusz1, 2, etc nazwami plików zaimportowanych? 1plik>to 1 arkusz w excelu 2 plik>to drugi arkusz etc Całość w 1 pliku? Obecnie robiłem to poprzez Dane>Importuj>wskazywałem...
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...
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 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...
Witam ponownie Szanowne grono :) Nastepny problem z ktorym nie moge sobie poradzic - zmienna nazwa pliku zapisywanego jako pdf. Mam makro pod przyciskiem ktore generuje mi pdf ale nie moge sobie poradzic, aby nazwa byla dynamiczna - a konkretniej - NAZWA plus wczorajsza data. Oto makro - Sub PdfDayOne() ' ' PdfDayOne Macro ' ' ActiveSheet.ExportAsFixedFormat...
makro które z wybranego folderu pobiera jpg i wkleja w odpowiednią komórką Dlaczego to samo makro nie wkleja to zdjęcie do dwóch innych arkuszy? Zalacz to pierwsze makro. Dodano po 8 Od razu po wklejani Selection.Name = "To_co_Chcesz"
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ć?: 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, lub można go do Excela wkleić.
Mam taki kod makra j.n.:[syntax=vbscript]Dim fd As FileDialog Dim wkb1 As Workbook, wkb2 As Workbook Application.ScreenUpdating = False Set wkb1 = ThisWorkbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
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...
Jeżeli nazwa pliku jest tworzona według jakiegoś schematu to można zrobić Dir z maską i znaleźć nazwę, a potem jej użyć w kodzie makra. Jeżeli jest wiele plików pasujących do takiej maski i nie chcemy przetwarzać ich ponownie, to można je po przetworzeniu przenosić do innego foldera lub zmieniać nazwę, żeby się nie wyszukiwały. Wszystko zależy od konkretnych...
To się przyda, ale potem, na razie nie mamy jeszcze czego zapisywać. Musisz przemyśleć gdzie będą te wszystkie pliki, gdzie plik wynikowy i gdzie plik z makrem. Nie muszą być a tym samym folderze, a nawet lepiej żeby nie były. Natomiast dobrym rozwiązaniem będzie utworzenie podfolderów. Folder gdzie jest plik z makrem prosto określić, więc przenosząc...
Cześć Potrzebuje mieć zrobione makro które z folderu w którym są pliki csv. Jak w zakładce BUF_1111F01111_.... pobierze je po kolei wczyta, zrobi tabele przestawną jak w zakładce pivot table a następnie wklei w odpowiednie pola w zakładce customer report z zachowaniem formuły jeżeli w kolumnie M. Następnie zapisze się jako plik .xlsx usuwając formuły...
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, W komórce B1 mam podaną lokalizację folderu w którym znajdują się interesujące mnie pliki. Komórki A4:A9 zawierają nazwy plików wraz z rozszerzeniem. Czy jest opcja aby za pomocą Makra zamienić nazwy tych plików - nowe nazwy w komórkach B4:B9? Rozszerzenie bez zmian zostaje jako pdf. Z góry dziękuje. Buli
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...
Na szybko, może Cię nakieruje dodaj jeszcze datę po nazwie: folderPath = Application.ActiveWorkbook.Path 'Wykrywa sciezke pliku Arkusz.Copy With ActiveWorkbook .SaveAs Filename:=folderPath & "\" & "nazwa_pliku" & ".xlsx" .Close SaveChanges:=True MsgBox "Plik został zapisany w bieżącym folderze." End With...
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...
Postaram się tak wszystko opisać żeby znowu nie oberwać po głowie :) WSTĘP. W folderze mam (w kolejności alfabetycznej), jak już pisałem ponad 300 plików o nazwach. Czerwone1Bdekon-1, Czerwone1Bdekon-2 ..., Niebieskie1Adekon-1 ..., Zielone1Adenon-1 itd. Na każdym z tych plików muszę dodać kolejne obliczenia (zsumować dane z kilku kolumn), w każdym pliku...
Poniżej wklejam moje nagrane makro. Tworzę tabelę aby rozwiązać problem różnych ilości danych. Poniżej kroki które muszę wykonać. Filtruję, kopiuję i wklejam jako wartości. Nowe skoroszyty muszą mieć nazwę danej jaką filtruję i muszą być zapisane w folderze, w którym zapisany jest plik na którym pracuje. Ponieważ w Criteria1 dane są różne, nie mogę...
Program, jest częścią jednego większego, a nie ma sensu tu podpinać całości. Zatem trochę go zmodyfikowałem i wyciąłem najważniejszą rzecz. Faktycznie źle się tutaj określiłem za co przepraszam. Z załącznikach podsyłam zdjęcia błędu, który się pojawia. Program (działa) ładnie zapisuje gdy w nazwie klienta nie ma KROPEK. Wystarczy, że kropka jest w dowolnym...
Witam usiłuję napisać funkcje, która wyszukiwałaby plik o nazwie będącej w komórce excela, otwierała ten plik i kopiowała z niego zawartość pewnej komórki, w przypadku gdyby nazwa takiego pliku nie istniała funkcja realizowana jest dla kolejnych nazw pliku. Poniższe zdjęcie dobrze obrazuje problem, mam skoroszyt o nazwie „proba” z komórkami...
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...
To jest tak jakbyś wpisał formułę do komórki zawierającą odwołanie do innego pliku i w zmiennej a masz wartość z tej komórki jeśli chcesz pobrać więcej danych to musisz napisać pętle pobierającą dane do tablicy lub zakresu. Ale jeśli masz jeden duzy plik do którego wszyscy wpisuja dane, a nie powinien być on dostępny powszechnie a dodatkowo plik ten...
clubs: tak na pewno jest to dobra ścieżka wysypało się na: plik_1 = Workbooks("glowny_plik.xls").Sheets("dan... pisze, ż eplik = empty lanzul: masz rację, może przybliże trochę działanie maka, myślałem, ze nie będzi eto konieczne, ale jednak. Trochę pewnie teraz namieszam, bo pokaże całe główne makro, wiem, że nie jest idealnie napisane...
Hej potrzebuje pomocy z makrem do Solid Worksa Mam makro które tworzy screen a ekranu i zapisuje go do odpowiedniego folderu. A teraz pomyślałem że fajnie by było gdyby obrazek trafiał do określonego folderu. Czyli jeżeli model w wybranej właściwości dostosowanej miał jakiś symbol np.: Typ 4 – to jego obrazek trafił by to folderu o nazwie Typ...
Witam, Na początek postaram się opisać temat którym aktualnie się zajmuję. Chciałbym utworzyć makro (o ile to możliwe), które po podaniu daty w zadanej komórce zaimportuje do tabeli konkretny plik z danej lokalizacji(folder na pulpicie). Pliki w folderze posiadają nazwę:"TMrrrrmmdd.log" - codziennie w tym folderze przybywa jeden plik z danymi. Mimo...
Witam, mam dwa problemy pierwszy z nich to niedziałąjące makro pobierające dane z innych plików oraz nie potrafię zbudować makra które by się wykonywało na wszystkich plikach z folderu. 1) Tutaj wydaję mi się że powinno pobierać wartość jednej komórki z każdego pliku z podanej ścieżki. Żadnego błędu nie wywala. Makro się wykonuje
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 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"...
Ale po co te .Activate i .Select? Należy tego unikać, bo przy większych zadaniach tylko zabiera czas i powoduje miganie (jak nie wyłączysz ekranu). Zanim uruchomisz swoje wielkie makro, które będzie robiło rzeczy trudne do cofnięcia (kopiowanie), zrób sobie taki jeden drobiazg: utwórz arkusz (albo wybierz jakiś już istniejący) i zrób w nim miejsce na...
Problem drukowania rozwiązałem poprzez zmianę domyślnej drukarki na czas drukowania. Sub PrintWithAttachList() On Error GoTo ErrorWindow Dim oMail As Object 'Folder dla kopi e-mail HTML Set deletefolder = Application.GetNamespace("MAPI&...
witam. potrzebuję makro, które pobiera najświeższy plik [czyli plik, który jest zapisany najpóźniej] *.csv z serwera ze wskazanego folderu. do zalogowania na serwer jest potrzebny login i hasło oraz makro miałoby zapisywać dany plik ze wskazane miejsce na moim komputerze z nazwą mms.csv. Z góry dziękuję za pomoc :)
Witam Nie znam się zbytnio na Makrach, a postawiłem sobie cel - stworzenie makra.. który nie mogę osiągnąć. Problem polega na tym że mam 9 plików, w którym koledzy wpisują co tydzień informacje. Ja chciałbym co tydzień otwierać swój plik i klikając "AKTUALIZUJ" ściągać informacje jakie oni wpisali w jeden zbiorczy plik. Stworzyłem makro, które to robi...
Witam serdecznie Jestem początkującym w VBA i nie mogę sobie poradzić z przeniesieniem plików. Mianowicie chcę utworzyć folder Rok 2014 a następnie przenieść wszystkie pliki *2014.pdf do do tego folderu. Znalazłem informację, że przenieść plików za pomocą vba nie można tylko należy pliki skopiować a następnie usunąć. I tu pojawił się problem. kopiowanie...
Witam Znalazłem na tym forum ([url=]Link) 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 Set fs = CreateObject("Scripting.FileSystemObject...
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...
problem polega na tym: makro ma podaną ścieżkę ( adres jest umieszczony w arkuszu ) do katalogu który jest umieszczony na dysku sieciowym. I definiując wyszukiwanie danych ogranicza się jedynie do tego katalogu niestety pomijając inne katalogi w tym folderze. Inaczej mówiąc: Mamy folder o nazwie AA i w niem różne pliki pdf oraz katalogi BB, CC, DD....
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ę?
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...
Witam, Mam mały problem z którym niestety nie mogę sobie poradzić. Potrzebuję makro, które po zapisaniu danego pliku tworzy jego kopię o nazwie godzina.minuta.sekunda_dzien.miesiac.rok we wskazanym folderze. Poniżej to co udało mi się stworzyć ;) Będę bardzo wdzięczny za korektę mojego makra. Sub Dj() Dim Plik As Workbook Dim WS As Worksheet...
Jak tam postępy? Ja to widzę mniej więcej w ten deseń [syntax=vb]Sub PorównajDane() Dim plik1 As Workbook, plik2 As Workbook Dim i As Long, j As Long, w As Long Dim Omega_a As Integer, Omega_b As Integer On Error Resume Next Set plik1 = Workbooks(Range("G6").Value) Set plik2 = Workbooks(Range("G9").Value) If Err > 0 Then MsgBox "Błąd otwarcia plików,...
Szanowny Panie Kolego adamas_nt. To jest dokładnie to, o co mi chodziło, w dodatku z praktycznymi zabezpieczeniami. Brąż to nie Brąz. Dziękuję za pozdrowienia dla żony oraz znaczący, pozytywny wkład w moje pożycie małżeńskie :) Już nie będzie mi żona przynosiła roboty do domu. Ostatnia prośba na zakończenie tematu-chodzi o makro żeby arkusz Magazyn...
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...
Znalazłam na waszej stronie poniższe marko : [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets("BUD") x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("Y:\CGEurope\Files\SOC Reports\2020\Bridge files") 'Tu trzeba wstawić ścieżkę roboczego folderu For...
Potrzebuje pomocy w napisaniu makra w excelu, kopiowanie danych z jednego pliku excela do drugiego excela w petli gdzie jest wiele plików. Wyjaśniam o co mi chodzi. Mam plik excel nazwany np dane1.xls ( dane2.xls, dane3.xls itd tych plików mam ponad 200 w folderze) z kilkunastoma arkuszami oraz plik wzor.xls. ( Potrzebuje wyciągnąć z pliku dane1.xls...
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 analizie okienka z pkt. 1 odpowiedni/określono wybrany przez...
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. Przeszukałem już wiele postów, ale nie znalazłem odpowiedzi na pytanie. A mianowicie mam następujący problem - chcę stworzyć bazę wypożyczanych i oddawanych elementów, w pliku bazowym Excela mam bazę elementów, są one opatrzone nazwą i numerem katalogowym (ponad 3000 elementów), otrzymuję WZ i PZ w formie pliku csv po każdym wydaniu lub zdaniu....
To bardzo dziwny zbieg okoliczności - bo jak nazwę folder inaczej niż "jeden" to wyskakuje mi błąd "Run-time error "76" : Path not found". Sprawdzałem kilka różnych nazw i tylko "jeden" działa bezbłędnie. Co do kolejności odczytu to faktycznie mój błąd - wcześniej pliki testowe zostały nazwane od 1..11 i rzekomy chaos powstawał przez to, że najpierw...
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, uzywam takiego makra na codzien, - eksportuje moje dane do UTF8, pozniej importuje je do programu ANKI. Makro zapisuje plik eksportu w tym samym folderze w ktorym jest skoroszyt - chcialbym zmienic sciezke zapisu - dodac komendy (polecenia), w ktorych makro zapyta mnie o to gdzie zapisac eksport danych, i jak go nazwac. Nie wiem jak to napisac,...
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"...
Hej, o ile przesłany przez Ciebie plik śmiga to przeniesienie tej formuły do mojego docelowego pliku już kończy się fiaskiem. Po 1. nie mogę jednoznacznie określić ścieżki dostępu bo każdy plik jest w innym folderze o nazwie technologii (w przesłanym przeze mnie excelu w zakładce AAA! można zobaczyć dokładne odwzorowanie ścieżki). Np. dla tech 454 -...
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...
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...
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...
Cześć, może będziecie mogli mi pomóc w uproszczeniu makra. Codziennie rano dostaję plik który moje makro filtruje po różnych kolumnach, w dwóch z nich muszę założyć filtry na daty jak na screenie Czyli od najstarszej występującej w raporcie daty w tej kolumnie do dnia dzisiejszego + 1 dzień oraz puste. I w drugiej kolumnie zakładam filtry od najstarszej...
hej, mam lekko zmodyfikowane, wyszukane w sieci makro, ktore dzieli mi plik na mniejsze pliki po nazwie z konkretnej kolumny. ale nie potrafie tak zmodyfikowac makra, aby dodac do nowo wygenerowanych plikow: 1. hasla pojawiajacego sie przy otwieraniu pliku przez uzytkownika 2. mozliwosci albo pojawialy sie rowniez formuly (bardzo proste) z pliku zrodlowego...
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....
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...
Poniże masz procedurę, rozszerzoną o funkcję, która w razie braku danych folderów i plików w bazie danych zapisuje odpowiednie komunikaty. Myślę, że masz wszystkie elementy i na tej bazie możesz sam odpowiednio zmodyfikować kod, aby uzyskać ew. inne, oczekiwane funkcjonalności.[syntax=vbscript] ' 'Sprawdzanie istnienia folderów i plików PDF ' ' Wersja...
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
Można po przeróbkach wykorzystać makro z Sub dir_pliki() katalog = Application.DefaultFilePath & "" 'katalog = "c:xxx" 'usuń pierwszą linię i wstaw po swojemu. musi być "" na końcu. plik = Dir(katalog & "*.xls") 'tu podstaw "*.mst" Do While plik <> "" If Right(plik,...
Myślę, że bardzo prostym - jedyny wymóg, to aby nazwy były podobne lub ponumerowane zgodnie z kolejnością. To pozwoli załatwić sprawę dosłownie kilkoma kliknięciami, zamiast pisania skomplikowanego makro.
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...
U mnie działa bez zarzutów - sprawdź w swoim źródle danych, czy aby po ostatnim wierszu nie masz jakiś pustych (usuń je). Ewentualnie zawsze możesz skorygować RecordCount o 1. Jeśli chodzi o drukowanie do PDF, to: - ściągnij i zainstaluj PDF Creator, - uruchom go, w Drukarka->Opcje->Autozapis zahacz "Używaj funkcji autozapisu", w polu Nazwa pliku...
Witam Prośba o pomoc jaki będzie kod makra żeby po naciśnieciu przycisku zapisz zapisywało zaznaczony obszar na szaro kopiowało jakby do nowego arkusza i zapisywało (wyskakuje okienko zapisz jako) do wybranego folderu(może być w pamieci folder) oraz nazwę brało z komórki A1 Plik w załaczniku Z góry dziękuję za odpwiedzi
Witam użytkowników, Od jakiegoś czasu męczę się z makrem do wstawiania obrazu. Postaram się szczegółowo opisać sytuację na przykładzie w pliku (załącznik). W arkuszu kosztorys wybieram z listy numer pewnego modelu produktu (ten sam numer ma nazwa pliku obrazu ilustrującego owy model produktu) - pliki obrazów znajdują się w danym folderze na dysku. Automatycznie...
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Witam, bardzo proszę o pomoc w edycji mojego makra, którego początek wygląda tak: [syntax=vb]Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "\\WARW8HP1\data$\Desktop\PROJEKT\tekstó...
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...
Witam, potrzebuje pomocy z excelem, w temacie: Kilka osób, codziennie wypełnia ten sam plik, jeśli chodzi o dane - nazywając go swoim nazwiskiem. Pliki codziennie są zgrywanie, w jedną lokalizację (folder) do jednego pliku pod nazwą Zestawienie (obecnie metoda kopiuj wklej). Każdego następnego dnia pliki z kolejną datą zastępują poprzednie. Chciałabym,...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
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....
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)
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
Witam, poszukuje makra które pozwoliłoby na automatyczne nadawanie nazw zapisywanym arkuszom excela na bazie jednego pliku, tak aby po każdym zapisaniu generował się kolejny numer i zapisywał jako plik w wybranym folderze. Z góry dziekuje za pomoc :)
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ść, mam makro, które generuje mi oddzielne pliki excel z numerem sklepu i teraz w tym samym folderze mam również plik " baza adresów mailowych"(gdzie mam kolumnę z nr sklepów i obok kolumnę z adresem mailowym sklepu i adresem mailowym kierownika). Chciałabym, żeby makro dopasowywało plik (po numerze sklepu) do odpowiedniego adresu mailowego i pod...
Jeżeli jest możliwość to dane mogą być ba różnych arkuszach np: wg. schematu Dane z folderu L1 na arkuszu pierwszym, dane z L2 na arkuszu drugim itp. Scalenia nie mogę zmienić, bo to są dane od klienta i on je w takiej formie później otrzymuje po uzupełnieniu "ręcznym" przez pracowników komórek E,F,G Właściwie formatowanie jest mi zbędne :) najistotniejszą...
Witam, jestem początkujący w temacie VBA a mam następujący problem: 1) plik .xlsx zawiera ok. 30 tys. rekordów 2) w kolumnie K jest ok. 100 unikatowych wartości 3) chciałbym, aby makro vs. ww. kolumny otworzyło ok. 100 plików w wybranym w kodzie folderze - w nazwie każdego pliku powinny znaleźć się poszczególne 100 unikatowe wartości z kolumny K, dane...
C:\Users\marek.korek\Desktop\1-100\1-3 tak wygląda ścieżka. otworzyłem folder i kliknąłem na pasek z lokalizacja plików. W pliku o nazwie 1-3, znajdują pliki word: nazwa plik tak wygląda: ANETA BAJER_676483.docx
Nazwy tych plików do wysłania są takie same jak nazwy odpowiednich kontaktów (adresów) Do czego więc Excel? Po mojemu, powinno zadziałać coś takiego (pod warunkiem, że piki mają w nazwie pełny adres, Np "odbiorca(at)alias.pl.pdf") [syntax=vbscript]Sub bla() Dim objMsg As MailItem, folder As String, plik As String folder = "c:\adam\" plik = Dir(folder)...