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",...
[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]
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...
[syntax=vbscript]Function Recurse(sPath As String, Plik As String) As String Dim FSO As New FileSystemObject Dim myFolder As Folder Dim mySubFolder As Folder Dim myFile As File Set myFolder = FSO.GetFolder(sPath) For Each mySubFolder In myFolder.SubFolders For Each myFile In mySubFolder.Files If myFile.Name = Plik Then Recurse = "Tak" Exit Function...
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)
[syntax=vbscript]Sub Miesiecznie() Glowny = "D:\PlikiExcela\" Miesiac = Month(Date) FolderMiesiaca = Glowny & Miesiac & "\" If Dir(FolderMiesiaca, vbdir) = "" Then MkDir (FolderMiesiaca) ThisWorkbook.SaveCopyAs FolderMiesiaca & Day(Date) & "-" & ThisWorkbook.Name End Sub [/syntax]
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)
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
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 "?"
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...
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ść, 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...
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...
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ść, mam problem ze stworzeniem makra w VBA, które będzie tworzyło foldery i pod foldery z listy jak na obrazku. Chodzi o to żeby stworzył się folder A, w którym będzie folder 1 i 2, folder B, w którym będzie folder 1 i 2 etc. https://obrazki.elektroda.pl/3285666400_...
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...
Żeby nie otwierać nowego tematu to rozwinę temat tutaj. Powyższy kod działa dobrze a jeszcze rozbudowałem go o inne możliwości. Chcę do kodu dodać jeszcze jedna możliwość ale nie wiem jak to zrobić. Potrzebuję aby makro przeniosło mi folder z jego zawartością z jednego miejsca na inne. Jakim makrem można by coś takiego zrobić? I jeszcze inne makro aby...
cześć, poszukuje usprawnienia w makrze, które pozwoli mi przeszukać cały folder oraz znajdujące się w nim podfoldery w celu wyszukania i skopiowania danych. Poniżej to co udało się do tej pory wymyślić wraz z plikiem. Nie wiem jak to usprawnić. [syntax=vbscript]Private Sub CommandButton1_Click() Application.ScreenUpdating = False ost_w = Range("A" &...
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...
Kiedyś takie makro napisałem. Nazwy zmiennych i krótki opis pozwoli Ci zrozumieć kod i dostosować do swoich potrzeb. Mam nadzieję.
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...
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...
Prace nad kodem makra posunęły się naprzód :D . W chwili obecnej jest już gotowe wpisywanie ścieżki dostępu i wpisywanie zakresu danych do kopiowania. Pozostaje jeszcze problem, że musze wpisywać zakres danych do kopiowania dla każdego pliku osobno (zakres danych do kopiowania mam taki sam we wszystkich plikach). Chciałbym aby raz podany zakres danych...
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...
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...
(at)prl ale wydaje mi się że to mija się z celem bo tak to będę musiał edytować co jakiś czas ścieżkę do pliku więc wychodzi na to samo. Może dokładniej to opiszę. Co miesiąc tworzę nowy folder na dany miesiąc, raz w roku na nowy rok. W danym miesiącu przenoszę do nowego folderu pliki z poprzedniego miesiąca. Po wykonaniu pewnych operacji na jednym...
Makro robi zestawienie wszystkich wierszy z różnych plików z jednego folderu ale odrzuca te w których szósta komórka we wierszu wynosi zero. Problem jest taki że makro w Excelu nie zaciąga danych z komórek odnoszących się do innego arkusza. Z pierwszego pliku jednak takie dane pobiera bez problemu, z kolejnych już nie, pojawia się tam 0. Jakieś wskazówki?...
Google -> "excel amount of files in directory"
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...
Może inaczej,w folderze jest plik excel z tabelka, który ulega zmianie dość często. wartości z tabelki maja być aktualizowane i dodane do JEDNEGO pliku excel. To po czym można rozróżnić wiersz jest kolumna "T". tak własnie ma działać makro to makro.
makro nagrywa dopiero jak wybiore folder i zapisze, a wtedy juz mam nadpisany z gory folder lub jest to polozenie w ktorym jest dany plik excel'owski jesli usunę tą linijkę. Więc prosiłbym o kod , do samej "funkcji" : Zapisz jako. (żeby mi sie okienko pokazało tak jakbym to zrobił manualnie z wybranym formatem .pdf) Dodano po 56 ooo, jeszcze inaczej...
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 .
Tak jak w tym temacie, tylko rozwiązanie zdaje się u mnie nie działać :-? i nie wiem dlaczego DisplayAlerts = false, DisplayClipboardWindow = false Tego też nie udało mi się zaaplikować Sub Scal() Dim Plik As String Dim Skor As Workbook, Ark As Worksheet Dim Licznik As Long, i As Long Dim Folder As String ThisWorkbook.Worksheets(1).Range...
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...
[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]
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....
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...
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...
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 <> ...
folder Temp folder temp Ja widzę różnicę :!: jeśli masz tam rzeczywiście folder temp To w linii [syntax=vbscript]MFilePath = "C:\Temp\temp.html"[/syntax] zmień na [syntax=vbscript]MFilePath = "C:\temp\temp.html"[/syntax]
Dzięki za info. Obawiałem się, że nie da się tego zrobić. Szkoda, bo po pierwsze plik źródłowy jest dosyć duży i otwieranie jego strasznie zamula komputery użytkowników. Natomiast mam jeszcze jedno pytanie w nawiązaniu do tego. Czy jest możliwe, aby makro otwierało plik źródłowy bez wpisywania w makrze jego ścieżki, która niestety się co jakiś czas...
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
Witam, przedstawię zarys sytuacji. W firmie każdy pracownik posiada swój plik excel, do którego wprowadza na bieżąco wyniki sprzedaży, co pozwala mu na bieżące śledzenie realizacji celów. Dane pobierane są do osobnego pliku w którym śledzę wyniki całego zespołu. Pliki są co miesiąc archiwizowane, a co miesiąc każdy otrzymuje nowy plik z zaktualizowanymi...
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,...
żebym miała możliwość wskazania ręcznie z których folderów mają być pobierane Widoczne są folder gdzie jest ten plik? Debug - (okienko Locals) co jest napisane naprzeciwko 'plk'? Plik przypadkowo już otwarty? Sprawdzone - Pokaż folder: wszystkie pliki z folderu jest Czytane oraz kopiowane dane
[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)...
Chciałbym utworzyć makro które będzie kopiowało określone kolumny do innych plików. Nie ma tam zamieszczonego Makra, bo nie wiem od czego zacząć niestety. Chciałbym, żebyście mi pomogli utworzyć jakieś podstawowe makro do kopiowania danych do innych plików. Cały folder z danymi chciałbym, żeby mógł być przenoszony do innych folderów (jako kopia), ponieważ...
Witam, Znalazłam w Internecie kod makra, które jest podstawą do pomocy przy tworzeniu mojego. Jednak jest to moje pierwsze makro, które tworzę dla kolegów i koleżanek. W swoim makro chciała bym aby rozpoczęcie łączenia plików excela rozpoczynało się zawsze w wierszu 3 (nagłówek w pierwotnym skoroszycie jest zawsze w 3 wierszu, pierwsze dwa wiersze są...
Przetestuj poniższy kod: [syntax=vb]Sub Rozdziel_Pivota() Dim pvTbl As PivotTable Dim pvFld As PivotField Dim pvItm As PivotItem Dim shArkPvTbl As Excel.Worksheet Dim shArkList As Excel.Worksheet Dim lLstRwList& Dim rngList As Excel.Range Dim rngCp As Excel.Range Dim wbkDest As Excel.Workbook Dim shDest As Excel.Worksheet Dim sItem$ Dim oWSShell As...
makro utwórz folder makro otwiera folder makro nazwa folder
silvercrest odkurzacz wtyczka combo kodek allplayera
Montaż uszczelki katalizatora w Mercedesie Vito W639 Kalibracja przepustnicy po czyszczeniu Skoda Octavia 2 1.6 MPI 2004
