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...
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...
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...
[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 ;)
Wyszukiwanie konkretnego pliku Excel w folderze i następnie usunięcie tego pliku. Szukam podpowiedzi, jak stworzyć makro, które znajdzie np. trzeci plik w danym folderze i usunie go za pomocą funkcji Kill. Stworzyłem już makro, które usuwa mi wszystkie pliki w danym folderze. Głównie chodzi mi o to, żeby tworzyć kopie zapasowe pliku Excel w danym folderze,...
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...
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...
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...
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?
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 <> ""...
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...
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?
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...
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...
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...
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 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...
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...
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 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...
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.
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ł....
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...
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).
makro folder zmiana nazwa folder zmieni nazwa folder
bosch oznaczenie model zmywarka bateria pomarańczowy niebieski hotel sharp
Obciążalność portów mikrokontrolera ATmega32 Dane techniczne wzmacniacza Continental Edison PA9909
