[syntax=vbscript]Sub Drukuj() If Dir(Range("B1")) <> "" Then Workbooks.Open (Range("B1")) For x = 1 To Sheets.Count If Sheets(x).Name Like "*jakiś*" Then MsgBox Sheets(x).PrintOut Exit For End If Next ActiveWorkbook.Close End If End Sub [/syntax]
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
rozumiem że to tylko część makra? Oczywiście, to tylko fragment kodu, który wykonuje jedynie to co napisałem wyskoczy okienko, w którym będzie można wybrać pliki excela z dysku komputera Po wyborze konkretnego pliku :D możesz kopiować całe arkusze lub wybrane dane do swego pliku zbiorczego. Ta część makra uzależniona jest od specyfiki plików źródłowych...
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
trochę zmieniłem podejście Musisz założyć z góry co chcesz osiągnąć a nie co chwile wklejać jakieś makra. "Widzę", że chcesz pobrać tylko 5 wartości z kolumn(F,J,L,N,W) można to zrobisz tak j.w czy przez zwykłe kopiowanie. Chciałbym, żeby napisany kod mógł sprawdzić czy plik jest już otwarty i jeżeli tak, żeby pominął krok otwierania pliku - nie udało...
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
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 i okazało się że coś co miało być trudne do zrealizowania tak naprawdę jest dość proste. Udało mi się zrobić tak że jednak wejdę bez problemu do menadżera. Teraz jak w oknie dwukrotnie kliknę na plik to otwiera się , a jak dwukrotnie kliknę w okno poza plikami to otwiera się menadżer, tak jak tego wcześniej chciałem :)
No tak. Mój błąd, bo powinno być w innej kolejności. Sorry, ale dzisiaj sobota ;) Coś tam (w załączniku) kopiuje. Przeanalizuj, dostosuj do własnych potrzeb.
Witam Zastanawiam się czy można zrobić Makro , które poprosi o wybranie pliku excel a następnie znając jego położenie i nazwę, dokona wpisów w pliku excel w którym uruchomiono dane makro? Proszę o informacje jak otworzyć okno dialogowe wyboru pliku z odpowiednią maską rozszerzenia.
Cześć, chce makrem z ogólnej bazy klientów skopiować dane do swojego pliku makro wykonuje się, niestety jeśli jest ktoś w pliku "do edycji" wyskakuje mi okno dialogowe: "plik 'klienci zagraniczni' jest zablokowany do edycji, kliknij przycisk tylko do odczytu, powiadom, anuluj" Opcja tylko do odczytu mi wystarczy, nie chce zapisywać zmian w tym pliku...
Niestety dalej zapisuje tylko z 01.YY do 43_01. Następnie otwiera 43_02 i koniec Dodano po 2 W plikach 43_02, 43_03... itd makro tylko je otwiera. makro musisz mieć umieszczone w każdym z plików 01.YY , 02.YY itp
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...
Cześć, jestem początkującym w pisaniu w VBA. Krótko opiszę problem. Napisałem dwa makra (dwa działają): 1) makro do otwierania pliku źródłowego 2) makro w pliku źródłowym, które mi przerabia kilka rzeczy Chciałbym to połączyć w jedno makro, które pobiera plik źródłowy...
Hej, posiadam dwa otwarte dokumenty excel w 2 różnych plikach, w taki sposób żeby jeden mógł być wyświetlany na jednym monitorze, natomiast drugi na innym. Jak napisać jakiekolwiek makro, które będzie odpalane z jednego dokumentu, ale bedzie miało wpływ na drugi dokument?
Witam. Mam pytanie, czy dysponuje ktoś makrem lub byłby w stanie napisać * lub doradzić jak napisać makro , które pozwoliłoby kopiować zakres danych do skoroszytu głównego. Oczywiście wszystkie inne skoroszyty są "kopią" tego głównego. Interesuje mnie taka sytuacja. Ktoś pracuje na pliku 1.xlsx w skład którego wchodzą powiedzmy 2 arkusze ( arkusz1 oraz...
Witam. Potrzebuję makra które pomoże mi w odświeżaniu plików. Mam następujące pliki: SUMA Tabela 1, Tabela 2, Tabela 3, i tak do Tabela 100 Zmienne 1, Zmienne 2, Zmienne 3, i tak do Zmienne 100 Potrzebuję makra które otworzy na stałe plik SUMA (w nim są dane wyjściowe i zbiera wyniki po obliczeniu w plikach Tabele i Zmienne) i następnie zestawy plików:...
Witam, usiłuję przerobić makro zapisujące plik pod określoną nazwą na dwa inne makra, które: 1. zapisuje plik pod określoną z góry nazwą, 2. zapisuje plik pod predefiniowaną nazwą (część jest ustalona, resztę wprowadza się w wyskakujące okienko). Oto kod, który usiłuję przerobić: [syntax=vb] Sub zapisz_jako_cesja_0_5() Call zapisz_arkusz("nadstany_0,5-wydr")...
Witam Czy jest możliwość, aby makro otworzyło nowy plik z określoną nazwą. Chodzi o to, że komenda Workbooks.Add otwiera nowy plik z nazwą Zeszyt1 lub Zeszyt2 itd. Czy jest możliwość, aby ten plik miał określoną nazwę. Nie chodzi mi o to, aby był on zapisany na dysku pod określoną przeze mnie nazwą, ale pozostawał otwarty i niezapisany z określoną w...
Witam, jestem tutaj nowy i potrzebuję pomocy osób bardziej doświadczonych. Mój problem polega na tym że potrzebuję po wcisnięciu buttona aby utworzyło mi nowe zeszyty z nazwą pobraną z innego arkusza niż ten na którym jest przycisk znalazłem takie rozwiązanie : Sub CreateWBs() Dim lRow, x As Integer Dim wbName As String lRow = Range("A"...
Witam, Mam dziwny problem z kodem w VBA. Próbuję przy pomocy kodu w VBA otworzyć inny plik(skoroszyt) aby pobrać dane do wyświetlenia w Combobox, niestety gdy dochodzi do próby otwarcia pliku wyświetlany jest komunikat błędu 1004 - pliku nie znaleziono lub ma inną nazwę. Jeśli napiszę tak: Workbooks.Open ("D:\Users\...\Documents\Nowy folder\xxx.xlsm")...
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...
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...
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
Zeszyt rozumiany jako inny plik? Tu już trzeba wyjaśnic dodatkową nieścisłość. Czy makro ma wcześniej otworzyć ten zeszyt czy jest już (i będzie zawsze przy próbie uruchomienia makra) otawrty? Na marginesie Proponuje ci pouczyć się samamu. excel ma coś takiego jak nagrywanie makr. Włącz nagrywanie Zrób to co chcesz zrobić z plikiem, arkuszem itd wyłącz...
[syntax=vbscript]Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("N:\a.xlsm") 'Lokalizacja pliku EXcel xlApp.visible = true xlBook.refreshall WScript.Sleep 15000 xlApp.Run "Makro1" 'Nazwa makra do uruchomienia xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit...
Chciałbym do tego makra dodać to, że wszystkie te pliki, które zostaną zapisane po odpaleniu makra i wybraniu ilości kopii otwierają się [syntax=vbscript]Workbooks.Open sciezka & Cells(2, 3) & ".xlsm"[/syntax] I chesz otworzyć na raz 10 plików? Porąbany pomysł.
Rozumiem że w jednym pliku excela jest zapisane makro i otwierasz w excelu następny plik wykonujesz makro i chcesz zapisać zmiany w drugim pliku, otworzyć następny, wykonać makro i zapisać zmiany. Jeśli tak to ostatnia linijka powinna mieć postać ActiveWorkbook.SaveCopyAs Filename:=katalogZapisu & "\" & Format(Date, "DD-MM-YYYY") & "_" & ActiveWorkbook.Name...
na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
Z włączoną synchronizacją: Widzisz odpowiedź? [syntax=vbscript]sciezka = ActiveWorkbook.Path[/syntax] Jeżeli włączysz synchronizację twoja sciezka się zmienia przez co dir() się wysypuje bo nie obsługuje url-a tak na szybko to zmień na stałą ścieżkę [syntax=vbscript]sciezka = "c:\users\kotar\onedrive\dokumenty\aplex... Plik = Dir(sciezka & "\Dokumenty\Pracownik\"...
Możesz wrzucić ten plik? Masz w nim jakieś makra uruchamiane przy starcie?
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...
Witaj. Tutaj ktoś mądry napisał makro dla Excela, które wyciąga z tego pliku informacje i przedstawia je na wykresie: https://obrazki.elektroda.pl/5522055500_... https://github.com/wavoigt/FNIRSI-1013D-... Na Twoich plikach z 1014D też działa - najwyraźniej format się nie zmienił.
"Mój Excel", to jakaś najnowsza wersja od MS?;) Pokaż proszę swoje makro. Pewnie połączyłeś kod JRV i mój, a tak się nie da. [syntax=vb]Sub q() s = ThisWorkbook.Path & "\" p = s & Range("A1") & "bvt*.csv" plik = Dir(p) plik = s & plik Workbooks.Open Filename:=plik End Sub [/syntax] Każda wersja Excela zadziała z powyższym kodem.
Np filedialog: .Filters.Add "Pliki Excel", "*.xls" Można i bez otwierania. Spróbuj coś z makr Excel4 arg = "'" & p & "[" & f & "]" & s & "'!" & Range(r).Range("A1"... , xlR1C1) ExecuteExcel4Macro(arg) Gdzie p to ścieżka do pliku, f nazwa...
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ł...
Skoro wyłączenie makr umożliwia otwarcie pliku, to problem musi tkwić tam. Zrobiłeś tak jak pisałem (zapisałeś plik kiedy był otwarty na wysokich zabezpieczeniach makr?). Sprawdź czy nie masz jakiś pętli uruchamianych przy otwarciu które się "zapętlają", może masz tam jakieś linki do lokalizacji sieciowych które są niedostępne, bardzo dużo "kosztownych"...
W ostateczności, jeśli nie znajdzie się inne rozwiązanie, można napisać makro, które przy otwieraniu pliku "Master" będzie zdejmować hasła ze wszystkich "Slave" (warunek: żaden z nich nie może być edytowany w tym czasie) i przy zamknięciu (Mastera) nakładać ponownie. Druga faza opisana [url=http://www.elektroda.pl/rtvforum/to...
Nie ma uniwersalnego rozwiązania w takim przypadku. Można oczywiście zapisać plik z makrem jako dodatek i aktywować go w oknie "dodatki", ALE: jeśli ktoś zmieni nazwy, kolejność indeksów arkuszy (jeśli nie nazwy) to kicha. Spróbuj może w ten sposób: 1. Dostajesz plik z logami (gdzieś trzeba by go zapisać). Tutaj arkusz z danymi musi być rozpoznawalny....
A no tak, sorka. Chodzi mi o makro w exelu. Nie mogę skopiować makr w arkuszu które pobierają dane bo te są chronione hasłem. Makro jest jednak przypisane do przycisku. Mam roboczy raport do którego ręcznie przeklejam dane. Istnieje sposób aby napisać takie makro Excel aby w tym moim pliku roboczym otwierało plik który pobiera dane i aby to makro aktywowało...
...czy ten kod aktywuje się automatycznie z uruchomieniem pliku w którym to makro będzie?... To zależy od Ciebie. Ja zrobiłbym to na zasadzie umieszczenia tych trzech procedur w module i odwołań do nich w ThisWorkbook : [syntax=vb]Private Sub Workbook_BeforeClose(Cancel As Boolean) ResetBar End Sub Private Sub Workbook_Open() BlokujWytnijWklej End...
Kurcze, szukałem na prawde długo i nic nie mogę znaleźć. Jest dużo o imporcie .txt i .csv, ale o .xls i .xlsx nie mogę znaleźć :( Być moźe dlatego, że niepoprawnie zadaje pytanie do szukania. Będę wdzięczny za każdą wskazówkę Pozwól sobie pomóc i napisz jak ten import ma wyglądać? Gdzie znajdują się pliki do importu, jak się nazywają, jak mają się...
Załącz przykład. (jak to 2007 i wyżej to spakuj) Jaki ty masz excel a na jakim otwierają go inni? Czy plik ma makra?
Excel to nie BAZA, to tak na marginesie Miłego kopania się z koniem
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...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Może pokaż makro i załącz wycinek csv.
Bo nie otwierasz "innych" plików w tzw. międzyczasie
Niestety, ADR.POŚR działa tylko na otwartych plikach, a szkoda. Pozostaje VBA... Możesz: 1) połączyć otwieranie plików przy pomocy makr + ADR.POŚR 2) proste makro otwierania pliku i kopiowania danych 3) trudniejsze w składni, ale dające możliwość kopiowania z zamkniętych plików, makro z wykorzystaniem funkcji ExecuteExcel4Macro.
Makro ma pozwolić na przeliczenie danych z np. 20-30 osobnych plików, które mają dane zawsze w zakresie A1:U100. W pliku TESTY wklejamy do zakładki DATA dane skopiowane z otwartego pliku, następnie w zakładce REPORT w komórkach AE4:AE15, mam wybrane dane po przeliczeniach, które kopiuję do kolejnej zakładki ZBIORECZE WYNIKI. Kolejne pliki są przeliczne...
Kłopot polega na tym że nadal nie do końca wiem co chcesz. Jeżeli to w pełni zautomatyzujemy i ty będziesz to obsługiwał bezpośrednio na pliku excela to praca kolegi z tym związana nie będzie już potrzebna. (zanudzi się na śmierć :) ) Jeżeli dopuszczasz makra w swoim docelowym pliku "magazynie" to widzę to tak: otwierasz plik wciskasz przycisk np. nowa...
U mnie działa z 3 plikami. Wprawdzie nie sprawdziłem, co robi, bo brak danych, ale przy zaznaczeniu 3 plików wszystkie 3 otwiera i zamyka.
Nie wiem czy dobrze zrozumiałem. Makra w nowo utworzonych plikach ma nie być.
makro trzeba uruchomić po otworzeniu excela, poza tym makro chyba może działać tylko "na arkuszach", nie mają dostępu do plików, także chyba nici z tego, ale Excel zawsze pyta się czy zapisać przed zamknięciem pliki w których były dokonane zmiany, a po uruchomieniu z menu Plik można wybrać ostatnio otwierane dokumenty :)
Mi przy otwieraniu umowy informuje że błąd pliku i mogła nastąpić utrata danych. Ale potem mogę działać. Zaraz spróbuje poprawić. Jak teraz poparzyłem to stwierdzam że miałem podobny kłopot z przyciskami i rozciągniętym wierszem gdy przechodziłem z plikami z 2003 do 2010. W chwili obecnej nie mam 2003 jak wrócę do domu to poprawie na 2003 (myślę że...
Taa, ci francuzy co tydzień zmieniają swoje poprawne znaki. Jedno z: 1. Zrób sobie kolekcje tychże tablic. 2. Zapisz sobie makro w którym otwierasz inny plik i robisz kopię komórki A1, będziesz mieć kod.
Faktycznie trochę chaotycznie. Chodzi mi o pobranie danych z innego pliku i zapisanie ich w taki sposób aby nie było potrzebne otwieranie pliku źródłowego. Pobranie danych-> zapisanie (i tak codziennie z innymi danym) Chciałbym aby w komórce (np. B8), w której jest wprowadzone ='G:\XX\XX\XXX\Plik_do_ściągania_danych\ Dodano po 27 Aktualnie poniższe...
Nie baw się w makra, tylko wydziel sobie arkusz i wstaw w nim 50 łączy do plików. W arkuszu "raport" oblicz tylko sumę... Z drugiej strony: jeśli już koniecznie VBA, to bez wstawiania łączy i otwierania plików zrobisz to wygodnie za pomocą ExecuteExcel4Macro z odpowiednimi argumentami.
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,...
Witam! Po zainstalowaniu pakietu Excel 2003 otwiera pliki .xlsx .xlsm itp. Ale makro nadal nie działa w Excel 2003 które działa bez problemu w 2007 i 2010
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
Istnieje, ale ustalmy wpierw nomenklaturę: 1. Plik excela (rozszerzenie .xls, .xlsx, .xlsm, itd.) = zeszyt, skoroszyt 2. Zakładka w pliku excela - arkusz, ewentualnie strona Z kontekstu tematu rozumiem, że chodzi tutaj - " ... w drugiej zakładce wszystkich arkuszy z katalogu " - o drugą zakładkę/arkusz/stronę każdego z pliku/zeszytu/skoroszytu umieszczonego...
makro excel otwieranie pliku makro otwieranie pliku excel otwieranie pliku
instrukcje serwisowe canon screen panel repair układ scalić lampka
naprawa udaru makita interfejs diagbox
Strojenie dźwięku w Panasonic RX-CT820: Porady i funkcje Jak zapobiec zacinaniu się telefonu? Porady
