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]
Tworzysz obiekt FileSystemObject Dim fs as object Set fs = CreateObject("Scripting.FileSystemObject... Z powyższego pobierasz obiekt folder Dim f as object Set f = fs.GetFolder(folderspec) Z powyższego pobierasz kolekcję plików Dim files as object set files = f.Files Z kolekcji pobierasz ilość pozycji (czyli plikow) num = files.count funkcją Rnd losujesz...
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, 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...
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, 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...
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...
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. Mam pytanie odnosnie otwierania plików w wywołanym folderze przez makro. Mam bazę pracowników, każdy pracownik ma swój folder w którym są dokumenty od danego pracownika. Menadżera z wybranym folderem wywołuje tym makrem: [syntax=vb]sciezka = ActiveWorkbook.Path & "\Dokumenty\Pracownik\" & NazwiskoImie If Dir(sciezka, vbDirectory) = "" Then MsgBox...
Hej, Jestem zielona jeśli chodzi o makra. Moja dotychczasowa kariera to jedynie ich nagrywanie ;) Od dwóch dni czytam tematy na forum z wypiekami na twarzy! Próbuję pilnie stworzyć makro choć niestety bez skutecznie, czuję się jak dziecko, które próbuje ogarnąć całki a nie umie dodawać ;( Chciałabym za pomocą makra ściągać informacje [do arkusza "AA"...
Plik jest na dysku wspólnym Jakie masz prawa do niego? Utwórzyc folder? Ustaw atrybuty plików 'ukryty' oraz folder Dodano po 5 Nadaj plikowi nazwę bez rozszerzenia związane, np. asdfg.dat proste makro w skoroszycie osobistem Workbooks.Open "G:\demo\asdf.dat" otwiera go
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...
Macie jakiś pomysł, aby po kliknieciu w przycisk otwierało nowe okno do kontretnego katalogu i mógłbym wybrać odpowiedni plik, z którego skopiowałoby odpowiednie komórki do mojego arkusza ? Przykład W arkuszu Arkusz1 przycisk POBIERZ powinien pobierać dane z pliku z lokalizacji np. H:\CCC\ccc\ (jest w nim kilkanaście plików excel wiernej kopii arkusza...
cześć, poszukuje kodu makra, które pozwoli mi przeszukać cały folder oraz znajdujące się w nim podfoldery w celu wyszukania i otwarcia plików z różnym rozszerzeniem
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...
nie wnikam czy ten plik otwiera się w ogóle w excelu No właśnie.;)
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...
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...
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ł...
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...
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ł....
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...
Trochę pogmatwany ten opis ;) 1. Wszystkie w tym samum folderze? 2. Wszystkie mają być przeszukiwane, czy tylko z jakąś specjalną nazwą, datą modyfikacji, lub tp? 3. Ile arkuszy do przeszukania w każdym, która kolumna zawiera id, która kwotę? Nie oszczędzaj klawiatury, wskazany jakiś plik z przykładem (Np arkusz wynikowy + jeden arkusz z pliku źródłowego...
Hmm słuszna uwaga ;) niestety tak też nie działa. Zamyka, ale nie otwiera Próbowałem użyć jeszcze Application.Workbooks.Open ("C:\Program Files\tabela.xls") ale również nie otwiera
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...
Napisanie takiego makra nie jest czymś szczególnie trudnym, tylko ono będzie się dość długo wykonywać. Moja propozycja zmierzała do przyspieszenia tego. [syntax=vbnet]Sub kopiowanie2() ' ' kopiowanie Makro ' Dim r As Range Dim wkcalc As Worksheet Application.ScreenUpdating = False ' Workbooks.Open Filename:= _ "U:\Nowy folder\Arkusz B.xlsx" Set wkcalc...
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ć ?
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...
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ę...
dzięki, marusk'ek!!! następne pytanie jajogłowego: jak ma wyglądać początek i koniec makra? Makro ma otwierać po kolei pliki .txt z folderu C:\source\ wykonać, co trzeba i zapisać wynikowe pliki w formacie .rtf w folderze C:\ready\ dzięki za podpowiedzi. wszelkie.:D
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. Wykorzystuję makro które otwiera mi po kolei pliki excela z określonego folderu i pobiera (kopiuje) z tych plików dane. Problem w tym iż dane pliki posiadają łącza do innych źródeł i przy otwieraniu wyskakuje okienko z zapytaniem czy ma aktualizować dane. Do wykonania operacji kopiowania nie potrzebuję aktualizować tych łączy. Czy istnieje makro,...
Cześć, Chciałbym stworzyć makro, które pobiera pewien zakres danych i wkleja do jednego pliku. Chciałbym, żeby to odbywało się automatycznie, gdyż dziennie takich plików jest około 120. 1. Pliki mają zawsze datę na końcu, czyli z dzisiaj było by ...31.10.2011.xls 2. Pliki zawsze są umieszczane w jednym folderze - np. c:\dane\ Zrobienie makra, żeby otwierał...
Ż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ść 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. Lekko edytowałem wcześniejszy post. Rozwiązaniem było przeniesienie w menu programów plików z makrami. Z folderu ogólnego do folderu dokumentu. Teraz program pyta o ustawienie zgody użytkownika na odpalenie nie podpisanego makra. To można przeżyć. Inny problem to potrzebuję żeby to również Exel otwierał. Makra są bardzo proste jedno do sortowania...
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...
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...
Do Excela wygodniej będzie ciągnąć makrem VBA. Ja bym to robił w takiej kolejności: 1. Zrób sobie taką pętlę, która przebiega po wszystkich plikach o które ci chodzi. Przetestować. Możesz wypisać nazwy dla weryfikacji czy działa. 2. Otwieraj każdy plik po kolei i czytaj w pętli do końca pliku. Przetestować na 1 pliku. Możesz teraz wypisać wiersze, żeby...
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....
Konwersja CSV do XLSX w VBA. W pracy zawodowej używam specjalistycznego programu, który wyświetla pewne dane w formie tabeli. Kilkanaście kolumn z nagłówkami i kilkaset wierszy. Dane są eksportowane do pliku CSV rozdzielonego średnikami. Mam trzy pliki 1.csv, 2.csv 3.csv w folderze DANE. W pliku dane.xlsm w tym samym folderze jest makro, które ma przekonwertować...
Jeśli Mamy raporty dzienne z każdego miesiąca zapisane w ten sposó; 5.MAJ-2011/R.D 5-1 do 5-31 i tak w każdym misiącu w folderze "5.MAJ-2011" są tylko pliki raportów, to bez wnikania w nazwy pobieramy kwoty z kolumny "C" (lub tych kolejnych) na podstawie tekstu z kolumny "A" z wszystkich znajdujących się tam plików. Jeśli standard zapisu nazwy jest...
w testowym folderze mam trzy pliki docx, żadnego oczywiście nie otwieram, WOrd jest jest zamknięty. Po uruchomieniu Excela i makra w nim zawartego pojawia się ikona klepsydry i w arkuszu nic się nie dzieje. Kiedy podglądam Worda, jest komunikat, że pierwszy z trzech plików docx jest zablokowany do edycji przez użytkownika "inny użytkownik" i mam do...
Proponuję, żebyś od nowa napisał, co chcesz zrobić, bo to połączenie kodów nie będzie działać poprawnie. Napiszmy to jeszcze raz.:) Ok. Działać powinno tak : Otwieram plik personal.xlsb włączam makro główne. Makro główne wykonuje wskazane w kodzie makro na każdym pliku z podanej ścieżki (może być podane w kodzie). Uprościłem trochę makro, które działa...
Jak u Ciebie jest z uprawnieniami do tworzenia nowych plików na tym komputerze zwłaszcza na dysku systemowym ? Twój Excel zainstalowany jest na komputerze ? Czy na jakimś serwerze ? Ten błąd w zasadzie zgłaszany jest wtedy kiedy Path przekracza 255 znaków :?: :cry: Tu nic takiego nie występuje :cry: Zrobiłem testy w Excel 2007 i w Excel 2016 wszystko...
(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...
może nieco i późno ale lepiej to niż wcale ;) załączam plik w którym jest i opis i pliczek, który zamienia wartości liczbowe na wartość "słownie" Doprawdy ułatwia życie! :) Plik “Slownie.xls” należy przekopiować do folderu Jak uruchomić to makro? Robię zgodnie z instrukcją. Podczas otwierania Excela wyskakuje mi informacja czy chce uruchomić...
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...
Sorki, że tak namieszałem, ale do końca nie wiedziałem jaki ma przybrać ostateczny kształt mój projekt. Dodatkowo problem polega na tym, że w domu operuję nowszą wersją excela i często coś co próbuję w domu nie zawsze wychodzi w pracy gdzie mam starszą wersję. Postaram się opisać jak wygląda mój problem. Chodzi o to, że w pracy dostaję codziennie spakowany...
Witam. Mam ok 60 plików CSV (pliki tekstowe oddzielone przecinkami) znajdują się w jednym folderze. Pliki mają różne nazwy (przykładowo: 21172001 6.28.18 13.07.05) każdy plik ma tyle samo kolum (po przecinku) wiersz pierwszy: a,b,c,d,e,f,g,h,i, wiersz drugi: 1,1,1,0,0.00,0.00,N-m,0,0 wiersz trzeci: 1,1,1,0,0.00,0.00,N-m,0,0 Potrzebuję makro które: 1....
excel makro otwiera folder otwiera folder makro folder
niebieski matryca blaupunkt konwerter satelitarny emisja galaxy pilot
termostat atmega pa0016 napięcia
Bosch GC 2300iW 15P – minimalna różnica temperatur zasilania i powrotu dla modulacji T.MS6M48.3B-10423 Firmware Dump: MStar MSO648 Board, Supra STV-LC3277WL, Flashing & Recovery
