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...
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 "?"
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",...
Właściwie z tych obiektów potrzebujesz tylko Folder i Plik (do pętli) - to warto zadeklarować. Czyli można od razu zrobić: Set F = CreateObject("Scripting.FileSystemObject... i dalej jak powyżej. I jeszcze jedno: nie chcesz wykorzystać pliku z makrem? Musisz go mieć (no chyba że użyjesz personal) bo uruchamiasz makro VBA,...
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ę?
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
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...
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...
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 .
Witam, W załączniku (mocno) przerobiona wersja v4 pliku. Może coś w tym stylu spełni swoją rolę. Tym razem podejście jest trochę inne: najpierw makro sobie tworzy listę wszystkich plików, folderów i podfolderów w w katalogu źródłowym (co może trochę potrwać przy jakiejś ogromniej ilości plików...). Następnie próbuje dopasować nazwę (pliku, katalogu...
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...
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...
[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"
Kiedyś takie makro napisałem. Nazwy zmiennych i krótki opis pozwoli Ci zrozumieć kod i dostosować do swoich potrzeb. Mam nadzieję.
Prosta sprawa a tu taka dyskusja :) , Teraz to wychodzi, że zawsze jest lepiej załączyć przykładowy plik (dane mogą być fikcyjne), ale "budowa" musi być oryginalna. Sama nazwa nawet jak będą znaki specjalne musi się wyświetlić w okienku "nazwa pliku" ale przy próbie zapisu dostaniesz błąd. ps. w tym elka2-nie działajca, formula jest w d8 a kod w makrze...
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...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Witam, Szczerze mówiąc zupełnie nie kumam VBA, a potrzebuje napisać makro, które bardzo ułatwi mi życie. Dla kogoś kto cokolwiek z tego rozumie to pewnie pestka, a ja będę wdzięczny za pomoc w tym zakresie. Potrzebuję makro które będzie się uruchamiać na żądanie (np skrót klawiszowy) w otwartym arkuszu excel, który ma kilkanaście arkuszy. Nazwa arkusza...
To dlatego, że ta funkcja zwraca nazwę katalogu niezakończonego backslashem - musisz go jeszcze dodać tam, gdzie sklejasz ścieżkę dla funkcji Dir(...)
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)?
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.
Spróbuj takie makro: [syntax=vbscript]Public Sub TworzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Dim JPlik As String Dim NPlik As String 'Sciezka = ThisWorkbook.Path & "\" OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder = Range("A" & i) NPodFolder...
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"
Możesz liczyć na pomoc, nie na gotowca, no chyba że ktoś nie wytrzyma i sam napisze. :) Zacznijmy od początku: co już umiesz zrobić? Umiesz kopiować pliki makrem? W tym co napisałeś widzę jeden błąd: miejsce przeznaczenia zależy od kawałka nazwy pliku, więc trzeba zrobić tablicę przekierowań plików według tego kawałka a nie pełnej nazwy pliku. Na początek...
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...
Cześć Mam ogromną prośbę o pomoc w napisaniu Makra które wyszukiwałoby mi w kilkunastu pliakch xls dane z listy umieszczonej w pliku Excela. Lista zawiera listę z nagłówkami: numer(id) imię i nazwisko. Makro przeszukiwałoby mi pliki w których jest id oraz kwota, pliki znajdują się w folderze z listą, wyszukiwanie zwracałoby informację nazwa pliku w...
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
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...
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...
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...
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?
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ść, 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?
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....
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...
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...
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...
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 <> ""...
Jeśli plik, który jest otwierany, zawsze w tym samym folderze, np. C:\..\..\DaneCodzienne należy: w pliku makr osobistych w kodzie skoroszytu [syntax=vb] Private WithEvents App As Application Private Sub Workbook_Open() Set App = Application End Sub Private Sub App_WorkbookOpen(ByVal Wb As Workbook) If Wb.Path Like "*\DaneCodzienne" Then Wb.Sheets(1).Name...
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"...
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...
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...
Trochę nie rozumiem jak chcesz przygotować/zmodyfikować makro jeżeli już ta mała funkcja to już nie Twój poziom. Wydaje mi się, że istnienie/dostępność foldera można sprawdzić niemal natychmiast, podobnie jest z otwieraniem pliku o znanej nazwie. Nie rozumiem skąd to opóźnienie, pewnie makro robi coś o czym nie wiem, jak to już ktoś wcześniej napisał....
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.
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).
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...
Witam, problem polega na tym: mam folder X(C:Dokumenty) który zawiera kilka skoroszytów(111-01,111-02,111-03 itd.), oraz skoroszyt o nazwie "WZÓR". Potrzebuję makro(w osobnym skoroszycie), które sprawdzi czy w danym folderze istnieje już skoroszyt o nazwie np: xxx-xx, jeżeli tak to go otworzy, a jeżeli nie to skopiuje skoroszyt o nazwie "WZÓR" nada...
Czy w takim razie mogę prosić o pomoc na przykładzie tego pliku z zalacznika? Jeśli wszystkie pliki CSV mają taką strukturę jak w Twoim załączniku ? - to proponuję wykorzystanie tutaj pętli realizującej odpowiednio skonfigurowany import danych tekstowych ! Po uruchomieniu makra z pliku KonwertCSV-XLSX.XLSM - konieczne będzie wskazanie folderu roboczego...
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ć...
Cześć, Potrzebuję wskazówek do utworzenia makra, które: - utworzy pdf o nazwie wskazanej w kom. Z1 - utworzy nowy folder o nazwie wynik (lokalizacja nowego folderu w tym samym miejscu co excel, lokalizacja excela zmienna) i tam zapisze w/w pdf. Z góry dziękuję za pomoc
Bez makra tak się nie da. Najprościej to rozdzielić na 3 pliki. Jeden do obliczeń i dwa na dane. W tym pliku do obliczeń daj ścieżkę do innego pliku z danymi. Oba pliki z danymi muszą mieć tą samą nazwę umieszczone roboczo w dwóch różnych folderach. Po wprowadzeniu danych i zapisaniu kopiujesz plik z danymi tam gdzie podałeś ścieżkę w pliku do obliczeń....
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...
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...
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....
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....
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ę...
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...
dało by rade stworzyć takie makro które importuje pliki txt z danego folderu i kazdy nastepny plik bedzie w nowej kolumnie??
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...
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...
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...
Witam. Znalazłem w sieci Marko które wykorzystuje do scalania danych z wielu skoroszytów do zbiorczego. działa wyśmienicie (scala dane z pierwszego arkusza skoroszytów) ale pojawiła się potrzeba scalenia arkuszy z rożnych plików po nazwie arkusza czyli mam 10 plików źródłowych z arkuszami "Arkusz1", "Arkusz2","Arkusz3","Arkusz4".............. chciałbym...
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...
Użyj mkdir <pełna nazwa kalatogu> To ryba, a teraz wędka: Google i wyszukanie np. "vba excel create folder", i masz wiele artykułów. Najbardziej lubię czytać te związane z M$, ale i inne też.
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...
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ść, 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...
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...
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"...
Jak długo masz programowania? https://support.office.com/pl-pl/article...
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....
Ja mam 2003 może będzie "pasował" - sprawdzić można - nic się nie stanie. standardowe miejsce normal.dot to: C:\Documents and Settings\USER\Dane aplikacji\Microsoft\Szablony Ewentualnie można całkowicie wykasować (przenieść do innego folderu)normal.dot i uruchomić worda jeszcze raz Można sprawdzić katalog C:\Documents and Settings\USER\Dane aplikacji\Microsoft\word\STARTUP...
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...
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...
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....
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....
Nie mam wersji z eksportem do PDF, więc pisane bez sprawdzenia. [syntax=vbscript]Sub KonwerujDoPDF() With Application.FileDialog(msoFileDialogFold... .Title = "Folder z plikami '.doc'" If .Show = -1 Then Sciezka = .SelectedItems(1) & "\" Else Exit Sub End If End With Plik = Dir(Sciezka & "*.doc") Set oWord = CreateObject("Word.Application")...
Makro nie musi otwierać skoroszytu Szybsze (w działaniu) rozwiązanie tj bez otwierania i zamykania plików może wyglądać tak: [syntax=vbscript]Public Sub wypisz() Set a = ThisWorkbook.Sheets(1) x = a.Cells(Rows.Count, "A").End(xlUp).Row + 1 Set objFSO = CreateObject("Scripting.FileSystemObject... Set objFolder = objFSO.GetFolder("C:\testfolder") 'Tu...
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
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
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...
Cześć. Na początku chciałbym poinformować,że nie dawno odkryłem VBA czy tow Excelu czy Wordzie. Tym samym jestem zielony w tym temacie. Pocieszam się tylko tym że nie na wszystkim muszę się znać. Jak domyślacie na VBA nie znam się w ogóle :cry: . W związku z powyższym do osób które znają w tym temacie mam gorącą prośbę. Potrzebuję makra,które będzie...
W Twoim makrze w miejscu gdzie jest nazwa na sztywno zastosuj funkcję INPUTBOX. Wpisaną wartość (1 lub 2 lub 3 itd) wprowadzasz do nazwy pliku wg schematu" Folder_plików + stałay_przedrostek_nazwy + wprowadzana_wartość + ".xlsx" Jeśli chodzi o kopiowanie komórki to raczej nie pomogę bo ja stosuję VBA do innej aplikacji. Ale możesz zrobić rekording makra...
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....
Cześć, Próbuję sformułować makro, które pozwoli mi otworzyć konkretny plik dwg, np. jeden.dwg z konkretnego folderu. Poniższe makro: Sub test() Dim sciezka As String Dim plik As String Dim sWkb As Workbook Dim katalog As String katalog = "C:\Pulpit\" sciezka = InputBox("Wklej nazwę pliku dwg") & "\" plik = Dir(sciezka & ".dwg") Do While plik...
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...
Cześć, prośba o pomoc przy VBA dla sytuacji: w pliku "Dane" znajdują się arkusze A, B, C, D - potrzebuję utworzyć jeden pdf z arkuszy C i D, zapisać go pod nazwą "Nazwa Klienta z komórki A1_Wynik" w folderze, w którym jest plik excel dla pojedynczego arkusza korzystam z takiego makra: With ActiveSheet .ExportAsFixedFormat Type:=xlTypePDF, _ Filename:=.Parent.Path...
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).
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, 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...
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...
Dobry, gdy otwieram folder z makrami personalnymi w tle otwiera mi się masa zadań "microsoft excel" a pliki w personalu wyglądają jakby były uruchomione przez co nie można ich usunąć/zmienić nazwy itd. (nie mam otwartego excela, uruchamiają się same zadania i blokują pliki ). Czy zna ktoś może remedium na to aby excel nie odpalał się w tle i abym mógł...
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 :)
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...
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,...
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...
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.
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...
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....
makro folder zmiana nazwa folder folder dziwna nazwa
szlifierka stołowa części schemat polonez rodzaje pracy silników
zasilacz wzmacniacz 1000w zasilacz wzmacniacz 1000w
Szarpanie silnika w BMW E87 - przyczyny i diagnostyka Mini wieża wyłącza się po 20 minutach - przyczyny
