Kiedyś takie makro napisałem. Nazwy zmiennych i krótki opis pozwoli Ci zrozumieć kod i dostosować do swoich potrzeb. Mam nadzieję.
Ktoś już walczył z tym, ale nie mogę znaleźć wątku. Za to uchował się plik. Wykroiłem z niego to, co może Cię zainteresować. W załączniku przykład wyszukiwarki plików na dwóch poziomach. Możesz wejść dowolnie głęboko w strukturę katalogów. W makro dopisałem i "zaptakowałem" wejście w 3-ci. W kolumnę A (od 3-go wiersza) wpisujesz szukane, w E1 folder...
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",...
Ojej! Ale najważniejsze, że próbujesz ;) Przy okazji: wklejając kod, umieść go pomiędzy znacznikami Syntax (opcja listing kodu) Poniżej przykład oparty o 'Dir'. Przeanalizuj, dostosuj do własnych potrzeb [syntax=vb]Sub Find_Id() Dim strPath As String, wb As String Dim ostWrs As Long, i As Long, test As Variant strPath = ThisWorkbook.Path 'jeśli w tym...
[syntax=vb] Sub sub_OpenFolder() Dim str_folder As String str_folder = "C:\Temp" ' folder do otwarcia Call Shell("explorer.exe " & str_folder, vbNormalFocus) End Sub [/syntax]
[syntax=vbscript]Sub elka() s = ThisWorkbook.Path & "\" For i = 1 To Cells(Rows.Count, 1).End(xlUp).Row p = Cells(i, 1) d = "\" & Cells(i, 2) c = "\" & Cells(i, 3) If Dir(s & p, 16) = "" Then MkDir (s & p) If Dir(s & p & d, 16) = "" Then MkDir (s & p & d) If Dir(s & p & d & c, 16) = "" Then MkDir (s & p & d & c) Next End Sub[/syntax]
np. [syntax=vb]StarFold = "D:\dane\tmp" NowyFold = "D:\projekt" If Dir(NowyFold, vbDirectory) <> "" Then RmDir NowyFold Name StarFold As NowyFold [/syntax]
Google -> "excel amount of files in directory"
[syntax=vbscript]Sub Sumujezeli() Application.ScreenUpdating = False Dim Sc As String, Plik As String, Co As String, KG As String, KW As String, x As Double Co = Sheets("Parametry").Cells(2, 1) KG = Sheets("Parametry").Cells(2, 2) KW = Sheets("Parametry").Cells(2, 3) Sc = Sheets("Parametry").Cells(2, 4) Plik = Dir(Sc & "*.xls*") While Plik <>...
Raczej zmień kolejność ;) [syntax=vb]Sub powrot_z_zapisaniem() Workbooks.Open Filename:="C:\Program Files\tabela.xls" ThisWorkbook.Close True End Sub[/syntax]
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 <> ...
Hmm... U mnie (Office 2010), nie wiedzieć czemu, zwraca błąd niezdefiniowanego typu. Czyżby należało włączyć jakieś referencje? Po drugie: czy takie nazwy pliku sa w folderze i jego podfolderach A powyższa funkcja przeszukuje tylko podfoldery. Nie testowaliście tow... znaczy kolego PRL Byłoby również wskazane wyłączyć rozróżnianie wielkości liter (compare...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. 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 Konieczny byłby szablon takiej faktury...
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...
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[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...
makro zakłada, że w folderze jest Report.xlsm i folder z plikami danych. Być może jest coś jeszcze oprócz Report. i tego folerza edit: błąd: wyrażenie "GetAttr(fld) And vbDirectory" musi być w nawiasie, chyli (GetAttr(fld) And vbDirectory)
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"
Sprawdź, dostosuj. Zrezygnowałem z tablicy na rzecz prostego przypisania.
Zobacz, czy o coś takiego chodziło... Kod nieco rozbudowany w dodatkowe "opcje", ale zawsze można poskracać. :)
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....
Dodaj Swoja sciezka w Dir, jak w post #1 Dodano po 4 lub przed wlanczeniem makra zrob "Plik - Otworz" wejdz w folder z plikami - "Esc"(Odmiana)
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
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...
[code][syntax=vbscript] Sub wydrukHurtowy() Dim automatycznyWydruk As Boolean Dim Plik As String Dim myPath As String automatycznyWydruk = True 'poniżej jest moja scieżka, prosze ja o dosotosowanie do swoich potrzeb myPath = "C:\Users\marek.korek\Desktop\1-100\1-3\... Plik = Dir(myPath) L = 1 Do While Plik <> "" Documents.Open (myPath & Plik)...
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...
Chcesz tylko zliczyć, czy coś więcej robić z tymi plikami? Czy nadrzędnym folderem jest E:\MAPY? W sensie, czy pozostałe foldery znajdują się w E:\MAPY. Jeżeli masz Excela, to mogę napisać makro, które zliczy ze wszystkich katalogów.
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
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).
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 ;)
Otwieranie wybranego pojedynczego pliku :D realizuje kodem: [syntax=vbscript]Dim intResult As Integer Dim strPathFile As String Application.FileDialog(msoFileDialogOpen... = False intResult = Application.FileDialog(msoFileDialogOpen... If intResult <> 0 Then strPathFile = Application.FileDialog(msoFileDialogOpen...
Witam, Proszę Was o pomoc w napisaniu makra, które otwierałoby po kolei wszystkie pliki z danego folderu i uruchamiało stworzone wcześniej makro. Wyobrażam sobie to tak, że w folderze z plikami do przerobienia znajduje się jakiś plik, który należy uruchomić i w nim odpalić makro, które: 1. otwiera każdy plik po kolei z folderu 2. uruchamia moje makro...
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...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
[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]
Witam, potrzebuję makro do scalania wielu plików z danymi w jeden. Wszystkie skoroszyty do scalenia znajdują się w jednym folderze, dane do scalenia są zawsze w pierwszym arkuszu i mają jednakowe obszary. Jako, że nie bardzo radzę sobie z VBA, skorzystałem z dostępnego makra, które później lekko zmodyfikowałem do własnych celów. Jednakże pozostało mi...
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...
Na taki opis, jaki podałeś, bez pliku wejściowego i wyjściowego, zaproponuję swoje makro. Jak będziesz chciał, to sobie dostosujesz do 'zmiany dat i innych danych'.
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...
żeby makro pobierało mi konkretne rzeczy ze wszystkich plików chciałabym, żeby program pytał z którego pliku ma zaczytać makra To wskazać te kilkadziesiąt folderów? Makro tylko w 'Raporcie'
NIe do konca rozumiem, co to zmieni w kwesti makra ktore ma pobrac z dysku lokalnego uzytkownika odpalajacego makro, wlasnie do tego udostepnionego folderu ? Mam problem z uzyciem metody FileCopy i sciezka zeby filecopy dzialalo
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...
chce żeby z danego folderu pobrało dane ze wszystkich plików Import wielu plików jest w miarę uniwersalny, a 2020 jest przerobiony dla Ciebie.
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
Jeśli będzie to makro, to nie będzie to aż tak bardzo zautomatyzowane. Rozumiem, że chodzi Panu o makro w stylu "otworzyłem plik zbierzwyniki.xls które zaciągnie wszystkie wartości z plików które leżą w którymśtam folderze".
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 :)
Moi mili państwo napisałem sobie proste makro które ułatwia mi pracę udało mi się wyeksportować moduł *.bas do folderu i szukam sposobu - makra które masowo mi zaimportuje go do wszystkich plików w folderze C:\pliki i podfolderach znajdujących się tam. Mam mnóstwo plików do których trzeba zaimportować makro i ręcznie to robić to nie wykonalne. to co...
o ile to możliwe Na pewno, np. poprzez: zwykłe Open (I/O), Workbooks.Open, Workbooks.OpenText, QueryTables, Ado, mechanizmy wewnętrzne excela (połączenia z txt), itd. - wypróbuj.
Nawet nie czyści swojego arkusza tylko codziennie wrzucany jest nowy plik na którym pracują pracownicy, a ten na którym pracowali np. wczoraj jest przeze mnie przenoszony do innego folderu do beckupu.
dało by rade stworzyć takie makro które importuje pliki txt z danego folderu i kazdy nastepny plik bedzie w nowej kolumnie??
Myślę, że najlepszym rozwiązaniem jest makro. Po zaimportowaniu pliku można go przenieść do innego folderu, jak napisałaś.
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
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...
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.
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
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...
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....
Jeżeli znasz hasło to możesz napisać takie makro, nagraj zdjęcie hasła z dwóch plików. Po czym znajdź: - "VBA iterowanie plików w folderze". Na koniec połącz oba makra.
Opis w miarę jasny, ale bez przykładów mało daje... Brak przykładowego pliku, brak przykładowej ścieżki do folderów (źródłowy, docelowy) itd.
Problem nie jest tak naprawdę z tabelą przestawną tylko z tą zakładką do której wczytywane są dane. Wybieram opcję pobierz dane (makro), wybieram folder i wtedy ten raport zbiorczy pomija mi przy zrzucaniu punkty. Zrzucam to do zakładki dane i tabela przestawna działa prawidłowo, ale brakuje pominiętych wcześniej punktów. Tabela działa ok. Dodano po...
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...
Sprawdź wartość zmiennej plik przed pętlą. Jeśli pusta, to nieprawidłowy lub pusty folder...
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
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 "?"
Zmień procedurę na funkcję: [syntax=vb]Function Pobranie_sciezki() as String Dim sciezka As String Dim Wybor As FileDialog Set Wybor = Application.FileDialog(msoFileDialogFold... With Wybor .Title = "Wybierz folder" .InitialFileName = ThisWorkbook.Path If .Show Then sciezka = .SelectedItems(1) End If End With Pobranie_sciezki = sciezka End Sub[/syntax]...
Troche źle się wyraziłem. Potrafię dostosować niektóre kody... nie wszystkie Nie wiem jak nagrać makro, które przeszuka wszystkie arkusze, we wszystkich plikach w folderze i skopiuje dane tylko z tych, w którym dana komórka jest wypełniona.
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...
Teraz chciałbym wykonać pewne makro na wszystkich plikach w danym folderze. Wydaję mi się że to jest wykonalne, ale czy nie znając zaawansowanych funkcji w vba jest to możliwe ?
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...
Witam. Ponownie potrzebuję pomocy. Tym razem potrzebne mi makro, które z danego folderu skopiuje i przeklei wszystkie arkusze do jednego pliku Excela. Kod na skopiowanie pojedyńczego, wybranego arkusza poniżej, ale jak zrobić to z całą grupą? Pętlą Do Until/For Each? [syntax=vb]ThisWorkbook.ActiveSheet.Copy _ Before:-Workbooks.Add.Worksheets(1)[/syn...
Witam serdecznie jeszcze raz Mam pytanie: Czy dałoby się to makro zmodyfikować tak, by przeszukiwany był folder o poziom niżej? (W Twoim przykładzie ścieżki "Podfolder") Serdecznie pozdrawiam
Trochę mi się nie zgadza. 1. Uruchamiam makro w folderze gdzie mam wszystkie pliki: 2. Pobiera nr handlowca np. z Sprawozdanie 1, 3. Otwiera Raport i wyszukuje nr handlowca 1, 4. Kopiuje wskazany zakres komórek, 5. Wraca do Sprawozdanie 1, 6. Wkleja we wskazanym miejscu pobrane dane, zapisuje i zamyka plik. 7. Przechodzi do Sprawozdanie 2 i pobiera...
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...
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?
Te Czy taki wynik ma dać makro?
On jest tak skonfigurowany, że gdy go włączsz pokazuje sie ikonka w tray'u i ruter jest "po cichu" restartowany - sprawdź czy po odpaleniu programu nie zmienia Ci sie ip. Jeśli nie działa usuń S&M bot.cfg odpal na nowo program i wczytaj makro które jest w folderze z programem.
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....
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...
W pętli, Panie, w pętli ;) A poważnie - Wrzuć przykładowy plik (z tym działającym makrem). Bo piszesz o Word'zie, a makro jakby excelowskie... Jest jakaś lista tych plików do wydrukowania, wydzielony folder, lub tp? Jaka kolejność: alfabetycznie, data modyfikacji, inne (niepotrzebne skreślić)?
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,...
Po naciśnieniu makra i po wybraniu pliku zaś wyskakuje mi okno do wybrania pliku i wybieram ten sam. Następnie wyskakuje błąd "Permission denied" :/ Jak chcesz przenieś otwarty plik(w którym to jeszcze wykonuje się makro?
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, Makra - fajna sprawa. pod warunkiem że umie się je pisać :) Jak znajdę coś co mogę wykorzystać (tak mi się wydaje), to im dłużej czytam mniej wiem. Bez pomocy z zewnątrz nie dam rady. Potrzebuję makro, które z folderu „W” ze wszystkich plików xlsx.(A, B, C, D) przejdzie przez każdy plik oraz po każdej zakładce i zwróci mi do pliku...
plik źródłowy i pliki użytkowników są w tym samym folderze Workbooks.Open ThisWorkbook.Path & "\zrodlo.xlsx"
Dziękuję serdecznie i wszystko działa :) Dodano po 2 Mam jeszcze problem bo chciałbym utworzyć nowe foldery które mam w piątej kolumnie
Zanim zaczniesz coś kodować w VBA (albo czymkolwiek innym) musisz wiedzieć czego chcesz. Młodzi programiści zwykle od razu rzucają się do klawiatury, sam tak robiłem i czasem nadal robię, ale to ostatecznie zabiera więcej czasu, niestety. :) W tym przypadku czy ten numer klienta jest poprzedzony jakimś charakterystycznym tekstem, albo jest zawsze w...
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...
Cześć, Mam ciekawy case do zrobienia, ale niestety nie ogarniam na tyle VBA, żeby to zautomatyzować, dlatego przychodzę po pomoc. Musze zautomatyzować proces SQL->EXCEL->WORD. Proces wygląda tak, że dane z tabeli źródłowej mam podłączone pod excela, po odświeżeniu zaczytują sie do 4 tabel w 4 arkuszach. Następnie odpalam WORDa, który pobiera dane klientów...
Przed 'Paste' wstaw linię wyszukującą pierwszy wolny wiersz. Przykładów ci u nas dostatek: [url=https://www.elektroda.pl/rtvforum/f... W ostateczności nagraj makro Ctrl+strzałka w dół.
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)?
Nie chciałbym otwierac pliku z ktorego beda pobierane dane ( praca w tle) Taaaaa :cunning: , to jest akurat najtrudniejszy element tego zadania - do jego spełnienia musiałem sięgnąć do funkcji makr z Excela 4.0 :please: Efekt jak na zrzucie 892040 uzyskasz po umieszczeniu obu plików w swoich folderach, korekcie ścieżki dostępu do pliku raport.xlsx...
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 :)
Cześć wszystkim. Pojawił mi się problem z plikeim VBS - miesiąc temu normalnie działał teraz w połowie przestaje wykonywać pętle. Wyjąsniam o co chodzi i gdzie leży problem. Makro powoduje najpierw usunięcie w folderze X plików .TXT i wgranie nowych z folderu Z. Póżniej kopiuje z X plik Excel i umieszcze go w folderze L. W folderze X jest plik Access...
W mojej bazie pracowników do każdego pracownika mam fotke w formacie JPG w folderze: [syntax=vb]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie[/syntax]
z pliku A do B, w każdym pliku jest ok. 10 skoroszytów Być może z folderów A do B ?
Genialnie :) O to właśnie mi chodziło!!! (at)cbrman - jesteś wielki :) Zapytam z ciekawości - czy dałoby się zrobić kolejny krok i przetwarzać w ten sposób foldery? Tzn mam makro w katalogu głównym i za pomocą tegoż makra przetwarzam wszystkie podkatalogi, które z kolei zawierają po 1000 Zeszytów, każdy składający się tylko z 1 arkusza o tej samej nazwie?
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
Przy porannej kawie wyszło coś takiego (załącznik). Zapisz plik w folderze, tym samym gdzie "Pula.xlsx" i uruchom makro. dodano po chwili: sorry, zapomniałem załączyć plik :)
Zle chyba opisuę pierwsze makro było ok zapisywało do folderu w którym był pliktylko do niego dołożyć nie koniecznie to co podesłałem żeby tak jak ata forułka =dziś i lista rozwijana z firmami w zapisanym pliku byłu tekstem. Bo teraz to wyskakuje plik a tak jak na począrku pierwsza wersja ok plus żeby data i lista rozwijana były bez formuł(bo jak bedzie...
makro utwórz folder makro otwierać folder makro tworzy folder
schemat ideowy zasilania regulacja napięcia zmiennego akumulator skuter elektryczny
Firmware download and flashing for Avocor AVE-5530, update_signed.zip safety, official sources Renault Vel Satis 2.2 dCi – brak napięcia na przewodzie wentylatora nawiewu pod schowkiem