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...
Plik który dodałeś nie działa poprawnie. makra się nie chcą włączyć a dodatkowo makro chce otwierać plik "Regał" którego nie dołączyłeś.
Czy takie makro da się zrobić? Tak :D , ale chyba lepiej dwa oddzielne :spoko: Po drobnych zmianach w pliku tygodnie.xlsm 901448 umieszczony w Module1 kod sprawdza "stan arkuszy" i ewentualnie przygotowuje arkusz na nowy tydzień :!: Zmodyfikowano również plik suma pól.xlsm 901451 i wyposażono w makro do kopiowania potrzebnych Ci wartości z aktualnego...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Przyczyną błędu jest tylko to, co napisał adams_nt : powinna być deklaracja typu jak poniżej: Ewentualnie program mógł by sprawdzić czy akrusz B jest otwarty, jeżeli jest nie otwierać go ponownie a jeżeli jest zamknięty otworzyć go. Założyłeś, że Twoje makro będzie kopiować z pliku B.xls aktualnie zaznaczony wiersz - ono nie otwiera pliku [ponownie]....
Cześć, potrzebuje pomocy z napisaniem procedury wyszukaj pionowo jako makro. Poniżej wysyłam to co mam. Wpisując wartość w jednej z komórek, makro musi wyszukać dla niej odpowiedni wynik w innym pliku. Jako, że ten plik będzie codziennie inny to makro będzie otwierać najnowszy plik z danej lokalizacji "Baza". Uruchamiając makro otwiera mi się okno w...
Ale, ale. U mnie zmienna 'test' "pokazuje" posortowane, bez względu na kolejność zaznaczania.[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count test = .SelectedItems(i) Next End With[/syntax]Może toto...
można to zrobić w 3 etapach 1. Przejdź do lokalizacji (ChDrive, ChDir) 2. przy pomocy funkcji Dir i FileDateTime zrobić listę plików 3. Sortuj listę malejąco po Data-godzina pierwszy na liście będzie plik, którego szukasz
I znowu nieprecyzyjnie Kolega napisał. Założenie powinno być takie, że wpisujesz swój 'numer' w komórkę A1. W komórce B1 jest formuła WYSZUKAJ.PIONOWO(A1...', która zwróci ścieżkę do pliku. I dopiero wtedy, jeżeli istnieje taki plik, to go wydrukować, prawda? Pytam, bo jedynie mogę się tylko domyślać. Dziękuje bardzo. W zasadzie udało się wszystko...
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",...
No, to prawie wszystko masz gotowe, tylko o funkcji CDate() zapomniałeś - "w polskich warunkach systemowych" FileDateTime() zwraca tekst, a nie podtyp daty z "Variant", jak napisane jest w pomocy podręcznej - łatwo to sprawdzić, np. przez "?TypeName(test2)" w oknie Immediate. Czyli porównujesz np.: tak: "If CDate(test) > CDate(test2) Then", chociaż...
Przykładowe makro: Po użyciu przycisku w Mobile KPD2 Pro następuje uruchomienie wyjścia monostabilnego na 1s. Potem tworzysz wejście, którego typ linii to "wg wyjścia" a typ reakcji to "techniczna - przycisk drzwi". Wejście to jest sterowane wg wyjścia monostabilnego. Taka wskazówka powinna wystarczyć.
Może sprecyzuję swoje pytanie. Klikam przycisk ->otwiera się folder, nie inny plik, nie inny skoroszyt, nie obrazek czy piosenka tylko folder. Tak jakbym otwierał go z poziomu windowsa przez Mój komputer i tak dalej. GetOpenFilename nie chce mi otwierać folderu.
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"...
Edit Jest jeden myk: [syntax=vbscript] ActiveWorkbook.Windows(1).Caption = "dowolna nazwa" [/syntax] Jak chcesz go potem zapisać to w oknie dialogowym pojawia się nadal Zeszyt1 zamiast "dowolna nazwa".
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
Jeśli napiszesz, jak zrobić to wszystko czego potrzebuję prostszym kodem Chcesz "zielone" przerzucić do excela do pojedynczej komórki, każdy do osobnej? Ma tworzyć nowy skoroszyt, otwierać istniejący? itd. Czyli co ma się dokładnie dziać?
Witam, Jestem mocno początkujący w VBA i mam problem. Makro które próbuję stworzyć ma za zadanie otwierać plik za pomocą przycisku oraz kopiować poszczególne komórki z pliku otwierającego do pliku otwieranego. Makro się wykonuje, tzn otwiera plik, tyle że kopiuje dane z pliku otwieranego do otwierającego: [syntax=vbscript]Sub CommandButton1_Click()...
To bardzo proste do zrealizowania. W Workbooks_Open piszesz kod, w dodatkowym arkuszu z argumentem xlSheetVeryHidden przechowujesz wartości. Niestety, takie "zabezpieczenie" równie łatwo złamać, jak napisać ;) Np wystarczy otworzyć plik z wyłączoną obsługą makr, cofnąć datę w komputerze, albo otwierać zawsze kopię oryginału. Userzy mają niesamowitą...
kod skróciłem, dużej zmiany nie ma. Pokaż ten kod i opisz z którego skoroszytu ma się co kopiować i gdzie.
po dojsciu do polecenia "ActiveSheet.Paste" przechodzi automatycznie Spróbuj wcześniej Thisworkbook.Activate (przed sheets(mySto).select) Makro umieściłeś w module? Może właściwiej (dla copy-paste) będzie otwierać pliki w jednej instancji? Jeśli wyłączysz odświeżanie, nie będzie znowu tak bardzo rzucało się w oczy...
co zmienia na ekranie co 10s między Sheet 1 a Sheet 2 To zamiast migających światełek na choince? Jak już wspomniałem to będzie wyświetlane na dashboard. Na TV. Zamiast otwierać 2 pliki lub instalować 2 PC + 2TV wystarczy jeden, który się zmienia.
Wielkie dzięki, o to mi chodziło. Na przyszłość najpierw nagraj makro i podejrzyj kod. Niestety, nie wiem jak nagrać makro typu: jeżeli... to... - stąd też nie mogłem nic podejrzeć. Nie jestem niestety biegły w Visual Basic i tylko eksperymentalnie mogę coś tworzyć, co mi ułatwia pracę. Stąd też ostatnie pytanie laika: Czy makro może otwierać kolejne...
Witam, Makro ma za zadanie otwierać kolejne pliki Excel , pobierać dane i je zamykać ( bez zmian). Jak należy napisać procedurę zamykania aby, nie było pytań : 1. o zapisanie zmiany w pliku (proces pobierania danych z różnych arkuszy pliku) 2. o rezygnacji z umieszczenia pliku w schowku - to jest trudne. cel - makro ma się nie zatrzymywać. pozdrawiam,...
Chciałbym odświeżyć temat edycji plików CSV. Makro jest już gotowe, przygotowałem interfejs graficzny w oddzielnym pliku xls. Teraz po wybraniu miejsca przechowywania plików i miejsca makro powinno otwierać wybrany plik csv, obrabiać i zapisywać we wskazanym miejscu, ale niestety nie obrabia go - wyskakuje Run-time error 91. Poniżej zamieszczam kod:...
Zaraz, zaraz. Po woli i systematycznie. :D Łącza do innych plików to jedno a nie/działające makro to drugie. Pierwsze (łącza) powstaje w momencie gdy w pliku nazwijmy głównym użyjesz danych z innego pliku. Normalny objaw żeby niepotrzebnie nie powielać danych. U Ciebie na komputerze plik główny może otwierać się bez dodatkowego komunikatu ponieważ plik...
hibou1, nie piszesz, w której wersji Excela pracujesz. Generalnie, nie należy takich plików otwierać przez dwuklik na ikonce/nazwie pliku, bo wtedy zdajemy się wyłącznie na domyślność Excela - a Excel wszystko co przypomina liczbę traktuje jak liczbę, a dokładność pamiętania liczb to 15 cyfr. Wszystko co ponad to jest zastępowane zerami. Dlatego zanim...
Nagraj SaveAs > arkusz wynikowy > pdf i dopisz na końcu makra. Niestety, nie działa. Dodano po 1 tylko jego wynik w komórkach Skopiuj, do nowego arkusza wklej specjalnie ,,tylko wartości'' i wyeksportuj do PDF. Zależy mi na tym aby czynność ta zajęła jak najmniej czasu u pracy nie chcę otwierać kilku arkuszy. Im mniej czynności tym lepiej.
Witam. Mam dziwny problem. Przyniosłem z pracy kilka plików utworzonych w Excelu, w tej samej wersji 2007. Obojętnie jaki ma ten plik rozszerzenie *.xlsx czy *.xlsm. Wszystkie te dokumenty mogę bez problemu otwierać i obrabiać. Problem pojawia się dopiero po tym jak wcześniej w innym arkuszu uruchomię pewne makro. Udało mi się dojść do tego, że problem...
Nie lubię wskazywać plików. Zastanów się czy rzeczywiście potrzebujesz otwierać pliki zewnętrzne? Czy nie lepiej ręcznie wkopiować ich zawartość do zakładek? Masz wtedy pełną kontrolę i nie ma możliwości zniszczenia czegokolwiek. Dalej z tego co piszesz powinno już się udać. Możesz np. oznaczać różne dane kolorami. Jeżeli jednak chcesz wskazywać i otwierać...
Witam, Codziennie robię "zrzut" części bazy danych systemu ERP do Excela. Napisałem sobie makro, które filtruje mi zawarte tam dane. Problem w tym, że z każdym takim "zrzutem" tworzy mi się nowy plik (w zasadzie to nie xls, tylko csv) i tak ma być. Tworzę sobie archiwum tych plików. Chciałbym, aby to makro, które napisałem było dostępne nawet dla nowostworzonego...
Chyba najprościej przez okno FileDialog (Application.FileDialog(msoFileDialogOpe... z multi=true, zapisać nazwy plików do tablicy, posortować, otwierać i drukować wg kolejności. Tylko czy drukarka (lub spool'er) to wytrzyma...
1. Otwieramy TC (2 kliknięcia) 2. Zaznaczamy wszystkie pliki (jedna szara *) 3. Ctrl+M (2 klawisze) 4. Wybieramy np wstawianie daty (1 kliknięcie) 5. Start (1 kliknięcie) 6. Zamykamy (1 kliknięcie) 7. Robimy Entery - Ctrl+C, Ctrl+V dla podanego skryptu konsoli, Enter (5 klawiszy) 8. Scalamy (3 kliknięcia) 9. Można otwierać w Excelu ;)
Witam, mam problem z konfiguracją manipulatora INT-TSI współpracującego z centralą Integra128WRL. Dokładnie chodzi o "przycisk - wskaźnik" wejście 18 zostało zaprogramowane jako NO, bez alarmu - opis "św. kuchnia" wyjście 18 zostało zaprogramowane jako 25-przełącznik BI wyzwalany z wejścia 18. tak wszystko działa poprawnie - zwarcie wejścia przełącza...
Ż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...
Otworzysz te np. 10 plików i co dalej? Musisz uważać żeby któregoś przypadkowo nie zamknąć przed skontrolowaniem? Mnie by się to zdarzało. Dlatego bym zrobił listę plików do kontroli. Można ją zapisać i używać do woli , nawet przez wielu kontrolerów. A samo otwieranie nie jest problemem, można przecież zrobić hiperłącza.
cześć, poszukuję znaleźć makro przypisaną do przycisku który będzie aktualizował dane w excelu, które są powiązane formułą z plikiem na dysku sieciowym. Problem jest w tym, że jak plik otworzę pierwszy raz na pulpicie to excel te dane zaciąga automatycznie z dysku sieciowego. Lecz jeżeli ktoś na dysku sieciowym podmieni plik wsadowy to aby zobaczyć...
Witam jeszcze raz nie chce otwierać nowego tematu, a do pełni szczęścia w powyższym arkuszu brakuje mi jakiegoś efektu by było widać że przycisk został wciśnięty. Chodzi o podświetlenie , poszarzenie, rozciągnięcie lub zmianę koloru oczywiście w momencie najechania kursorem na przycisk w arkuszu. Wszystkie mądre rady i kody mile widziane Pozdrawiam
Excel nie ma szans, zapomnij, prędzej sqllite lub MySQL, zależy jeszcze co jest w tych plikach, czy jeden wiersz rownalby się jeden rekord w tabeli, czy kilka kolumn, jaki typ danych zawiera, text? Liczby? Nikt nie jest wróżka 🔮, opisz dokładnie co jest w przykładowympliku, co chcesz uzyskać w efekcie końcowym. 3,5Gb w txt, to w Excelu jak pisał...
Tak jak pisał kolega PeteSh - spróbuj zmienić poziom zabezpieczeń makr w samym Excelu. Mam E2003 pod ręką, więc podpowiem: MENU Narzędzia -> Opcje -> Zabezpieczenia -> (przycisk) Bezpieczeństwo Makr Poziom średni będzie odpowiedni (otwierając plik z makrem można decydować, czy makra będą działać). Jeśli się tego nie da zrobić, to jednak pozostanie Ci...
Witam, Nie mam pojęcia jak się do tego tematu zabrać. Mam pole kombi (1,2,3). Po wybraniu 1 powinien otwierać się inny plik do którego kopiowane byłyby dane z niektórych komórek arkusza z polem kombi. Po wybraniu 2 chciałbym automatycznie wysłać email na ściśle określony adres z wartością komórki z bieżącego arkusza w temacie i treścią wiadomości z...
No i widzisz bo pracujesz na aktywnym arkuszu. Jak sobie przypiszesz do zmiennej workbook to nie musisz fokusować drugiego okna. Autofiltr też możesz zrobić na obiekcie. A pliku do zmiennej nie musisz otwierać możesz go przypisać: [syntax=vbscript] Set Wrkb2 = Workbooks("zeszyt2.xlsb") [/syntax] A potem się odwołujesz do tego obiektu. Aktywacje możesz...
Wszystko jest do zrobienia. Jeśli chcesz umieszczać obszary w zmiennej rang , wystarczy zmienić przypisanie elementu /rn = rang(i)/ na pętlę for, przypisującą adresy komórek z tych obszarów. Np If lub Select Case w pętli For Each . Wyłączenie obsługi błędów (On Error Resume Next) spowoduje, w przypadku braku arkusza w pliku, jedynie przypisanie pustego...
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
dobrze, inne osoby nie działa z arkusza 1? plik Pana powinny być wspólne dla reszty. Jest pożądane, który można otworzyć bez ostrzeżenia "do odczytu" Pytanie 2 jako makro musi znać nazwę pliku "statystycznego", bo to może mieć inne pliki do nagrania na arkuszu po zamknięciu, zamiast otwierać je na statystyki ==akrusze w całości ze wszystkich plików...
Plik csv można "klasycznie" otworzyć w Excelu poleceniem 'Workbooks.Open', skopiować potrzebne dane i zamknąć. Jeśli nazwy arkuszy w plikach WZ.xls oraz PZ.xls są pobierane z A2 odpowiednich dokumentów (csv), to można w pętli otwierać je kolejno, sprawdzać czy istnieje arkusz o nazwie=A2 i jeśli nie... Postąpiłbym wg następującej kolejność: 1. Z głównego...
No dobrze, zastanówmy się. Plików masz nieokreśloną ilość. Można te właściwe zaznaczyć w oknie dialogowym (Alow multiselect) lub dialog otwierać w pętli aż do zamknięcia bez wyboru. Arkusze mają różne nazwy. Mniejsza z tym jeśli będziemy kopiować tylko i wyłącznie z pierwszego i drugiego po indeksach (Sheets(1), Sheets(2)), zawsze z tych samych komórek...
Rety! Po kolei. Nie chcesz otwierać pliku, OK. Ale po co przepisywać jeśli można pobrać do zmiennych, albo od razu do wzorca (tu trzeba zdecydować i ustalić kolejność). Krok 1 - pobieranie danych z pliku. Wypróbuj takie coś (katalog z plikiem skopiowałem sobie na pulpit) [syntax=vbscript]wrs = 2 pth = Environ("USERPROFILE") & "\Desktop\Etykiety\" plik...
Witam, Jestem początkująca. Póki co potrafię rejestrować makra, czy staram się modyfikować znalezione kody makr. Mam 2 problemy. 1 to taki, że kod, który znalazłam działa, ale tylko na plikach, które nie są chronione. Nie wiem jak nie chronić pliku już na poziomie kodu VBA, gdy wybierane są pliki do scalania. W sensie- aby nie trzeba było ręcznie otwierać...
makro otwierać lokalizacja makro otwierać folder makro otwierać arkusz
volvo silnika transformator tufvassons glosu samsung
depollution system faulty peugeot kabel brake radio
Specyfikacja głośnika Celestion BL10-100X 10 cali 8 ohm Wideofon Genewa - cichy dźwięk rozmówcy
