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...
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ę?
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...
:) temat dla mnie trudny, to też z rozjaśnianiem mi nie idzie :) Widzę to tak: - makro ma się znajdować w pliku, do którego mają być pobierane dane (w przykładzie Zestawienie) np. poprzez przycisk Pobierz dane - nazwa drugiego pliku będzie nadawana przez różnych użytkowników i to będzie np.Nazwisko i imię_dane (więc nazwa nieregularna) - oba pliki będą...
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...
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ć...
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....
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...
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...
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...
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 .
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...
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...
Wielkie dzięki za odpowiedź, ale niestety w dalszym ciągu nie działa... Pewnie robię coś źle, ale makro nie otwiera mi plików txt z wywołanej funkcją ścieżki. Całość wygląda tak: [syntax=vb]Function pobranie() As String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz...
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"
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
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...
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.
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...
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 "?"
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...
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...
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
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?
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....
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?
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...
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...
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,...
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...
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...
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ść, 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...
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).
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...
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ń....
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
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...
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...
dało by rade stworzyć takie makro które importuje pliki txt z danego folderu i kazdy nastepny plik bedzie w nowej kolumnie??
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...
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...
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...
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...
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...
nazwa folderu użytkownika outlook nazwa folderu makro zapisanie folderu
tablic dwuwymiarowa otwieraja drzwi kierowcy generator biernej
filtr pasmowoprzepustowy plafon philips
Xoro HRT 8772 Twin/HDD Freezing Issues: Firmware V40.0, Storage, Signal & Power Troubleshooting Electrolux EWF 1220 – zła jakość prania, czyszczenie, diagnostyka, typowe usterki, łożyska