Mało szczegółów, to i kod taki sobie. ;) [syntax=vbscript]Sub Drukuj() Workbooks.Open (Range("B1")) Sheets("ArkuszDoWydrukowania").PrintOut ActiveWorkbook.Close End Sub [/syntax]
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.
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...
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.
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...
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"...
Cześć mam makro, które dzieli mi plik na mniejsze pliki - ale kopiuje do nich tylko po 1 linii oprócz nagłówków. Potrzebowałbym przerobić poniższe makro na takie, które kopiuje wszystkie unikalne wartości tzn. jeżeli w D3 mamy wpisane np. rower, samochód, pieszo kilka razy to makro będzie tworzyło plik z unikalnymi wierszami. Czy mogę prosić kogoś o...
Mam problem to taki ze jest w ustawieniach myszy ze trzeba dwukrotnie kliknąć na plik aby sie otworzył a mi sie dzieje że raz za jednym razem a raz za dwoma Proszę pomocy!!!!!!!
Witam! Czy istnieje sposób albo możliwość stworzenia makra, które wpisane w pliku o określonej porze go otworzy, po otworzeniu wyskoczy komunikat, że plik zawiera łącza do innych źródeł z pytaniem czy je zaktualizuje - tu chciałbym aby wybrane zostało aktualizuj - po czym zapisze zmiany, zamknie plik i ponownie otworzy go kolejnego dnia o tej samej...
Zrobiłem Makro (sterujące) uruchamiające inne makra ale zawsze po skończeniu ich wykonywania plik zamyka się. Wcześniej zrobiłem wszystko w 1 pliku ale zacząłem się gubić w module z 1000 linii i rozdzieliłem makro na kilka modułów. Makro wykonuje 1 makro po czym wraca do tego ponizej i pyta o kolejne itd. Makra pracują z SAP, nigdzie nie mogę znaleźć...
Cześć, zwracam się do Was z uprzejmą prośbą o pomoc w rozwiązaniu następującego problemu. Potrzebuję skopiować wartości z zakresu B10:C23 w plikach JEDNOSTKAA i JEDNOSTKAB do pliku OCENA_ZBIORCZA w kolumny odpowiadające nazwom tych plików. Dotychczas potrzebowałem tylko kopiować wartości z pliku JEDNOSTKAA i realizowałem to za pomocą prostego makro:...
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.
To (mam nadzieję) wszyscy już wiedzą, ale jednak ma możliwość otwierania plików z sieci i pobierania ich zawartości. Może więc ktoś poradzi jak obsłużyć te pliki zablokowane do edycji. Rozwiązanie na pewno istnieje, choćbyśmy musieli sięgnąć do windowsowego api. Traktuj to jako hobby, a nie konkurencję dla profesjonalnych programistów. Znałem takich,...
Witam, mam problem z napisaniem makra w VBA. Mam plik o nazwie "program" w którym znajduje się tabelka (zał.3.). Mam początek kodu (zał.4.), ale nie umiem ruszyć dalej. Makro ma pozwolić na otwarcie dowolnej ilości plików Excela. Te pliki mają różne nazwy i nie da się określić jednej ścieżki do nich. Następnie w otwartych plikach we wszystkich arkuszach...
Zaciąganie danych z zamkniętego pliku jest niemożliwe To nie jest prawda :) Poniższe odczytuje zawartość komórki C3 z zamkniętego pliku sorry, ale cieniutki jestem z VBA. Czy to jest pełne makro? Rozumiem, że mam wstawić nazwę swojego pliku i nazwę arkusza, ale czy coś jeszcze, bo pokazuje mi błędy? Nie wiem też czy zrozumiale wytłumaczyłem o co mi...
Czy jest makro które kopiuje dane z kilkunastu plików exela do jednego pliku Excela? trzeba je po prostu napisać. Prosty przykład, na którym można bazować Bazując na w/w pomyśle dedito , mogłoby to wyglądać np. tak: 848608 Katalogi: '' Biorca '' i '' Dawcy '' wraz z zawartościami wkopiować do '' C:Temp ''. Plik '' Wyk-makro_02.xls '' to makro do otwierania...
Samo , pobieranie danych udało mi się stworzyć (kod dodałem w zdjęciu) :?: No nie :!: na Twoim zdjęciu widać jedynie kod do otwierania wskazanych plików :cunning: Jeśli te Twoje pliki html mają prawidłową strukturę tj. przykładowo taką jak na zrzucie 1018262 to wówczas Excel potrafi je otworzyć (czy zaimportować) - dlatego ważna jest sugestia kolegi...
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.
potrzebuje makro ktore dla danych z otwartego pliku A bedzie wyszukiwalo mi wartosci przypisane do nich w zamknietym pliku B Jeśli naprawdę zależy Ci na wyciąganiu danych z zamkniętych plików (tj. bez ich otwierania :D ) to możesz skorzystać z funkcji Excel 4.0 :idea: np. jak w wątku https://www.elektroda.pl/rtvforum/viewto...
Witam! Bardzo potrzebuję pomocy. Mam plik raportu o nazwie "raport.xlsm" za pomocą którego przenoszę różne dane do kilku różnych plików w tym do pliku "plik do wydruku.xlsm" znajdującego się w innej lokalizacji niż "raport.xlsm". Zawsze po przeniesieniu danych muszę otworzyć "plik do wydruku.xlsm" w celu wydrukowania 2szt. danych z arkusza1 tego pliku...
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
Tak to jest jak się myli instrukcje z metodami. Do otwierania plików lub zapisu słuzy instrukcja Open ( instrukcja VBA ) jej składnia: Open ścieżka For tryb As # numer_pliku Natomiast: metoda Open obiektu Workbook ( bo to jest obiekt ) nie ma nic wspolnego z otwieraniem pliku. Pozdrowka
Nie bardzo mam czas wnikać, ale z opisu wynika, że wystarczy zmodyfikować nieco "Makro2" W przykładzie sumowanie z trzech komórek. Jeśli zaskoczy, dopisz sobie ile tam trzeba... [syntax=vb]Sub Makro2() MyPath = "M:\magazyn\" myname = Dir(MyPath & "*.xls", vbNormal) rang = Array("A1", "A2", "A3") 'tu dopisz kolejne adresy ark = "Arkusz1" With Sheets("Arkusz1")...
Po dodaniu tej linijki okno o pytanie rzeczywiście się nie pojawia, jednak skutek jest taki, jak przy kliknięciu w "NIE" czyli do otwieranego pliku nie podpina się źródło danych do korespondencji i nie można wygenerować w dalszej części plików, które zawierają dane z bazy danych. Potrzebne jest coś co zadziała podobnie ale "naciśnie przycisk TAK" i...
Witam. Nie znam się na makrach a bardzo potrzebuję dokładnie dwóch makr. W załączniku jest plik Excela o nazwie "DANE ETYKIET", w którym znajdują się dane do dwóch plików exela o nazwach: "ETYKIETY_GŁOWNA" i "ETYKIETA_PŁYTY" Pozostałe pozostałe plik to sposób zapisywania etykiet w folderze jak makro je utworzy.(przykłady dla etykiety głównej i dla etykiety...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
Witam - chciałbym dołożyć pytanie do tego wątku. Mianowicie, czy można wykorzystać konkretną komórkę (przy użyciu funkcji cells (w, k), do tego by określić lokalizację danego pliku. Pytam, gdyż chciałbym w prosty sposób móc pobierać dane, bez konieczności ich każdorazowego otwierania i kopiowania. http://obrazki.elektroda.pl/4558130500_1...
kolega zapomniał o Dodano po 3 witam Jak w temacie problem z kopiowaniem. Mam plik excela w którym gromadzę dane. Potrzebuję w jakiś sposób pobrać dane z innych plików excela, których nie chcę za każdym razem otwierać(gdyż będzie ich dużo). Np. w kolumnie A mamy nazwy plików i potrzebne jest aby w kolumnie B były wartości z określonych plików z kolumny...
Ten dodatkowy kod niestety wyrzuca błędy albo źle go dodałem (wstawiłem przed linijką "set bs"). Wczoraj i dzisiaj sporo czytałem na ten temat i nie natrafiłem niestety na nic co wyglądałoby jak metoda otwierania plików o masce jakies_slowo_XXX_jakies_slowo.xlsx. W ostateczności zrobię kilka makr do obsługi grup plików o powtarzalnych rodzajach nazw....
Witam Widzę tu "czary mary" [syntax=vbnet]Application.DisplayAlerts = False With wkb2.Sheets(2) .Delete End With With wkb2.Sheets(1) .Name = "Lista odczytowa" End With Application.DisplayAlerts = True [/syntax]
ale i to nie przyśpieszyło makra. I nie przyspieszy. 1. po co masz w kodzie dwie pętle otwierające plik? 2. Pozbądź się tych "aktivejtów i selektów"
Ale na czym właściwie polega problem? Makro1 zawiera metodę Add i powinno działać w wersji 2010 i późniejszych i u mnie działa w 2010 i w 365. Makro2 zawiera nowszą metodę Add2, która nie dziala w wersji 2010, ale tu jest niepotrzebna. Więc używaj Makra1, chyba że są jakieś inne problemy, których nie wskazałeś.
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",...
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
Spróbuj tego (spakowane zipem). Makro jest w pliku 0.xls a otwierane są pliki 1.xls i 2.xls Wypakuj najpierw całą zawartość.
Mógłbyś jeszcze podpowiedzieć jak wstawić całą ścieżkę do pliku? [syntax=vbscript]Range("A1") = Application.GetOpenFilename[/syntax]
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...
Czy macie jakiś pomysł jak to ulepszyć? Spróbuj kodu z załączonego pliku. Tylko pamiętaj o otwieraniu obu plików przed uruchomieniem makra Porownaj() :spoko: 865411
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...
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ł.
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...
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
nie wnikam czy ten plik otwiera się w ogóle w excelu No właśnie.;)
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
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...
Trzeba było to opisać na początku. Teraz już mi się nie chce tego przerabiać. Edit: Dodaj sobie w pliku z makrem otwieranie plików z wiązkami i po sprawie. Przecież sam już coś piszesz w VBA. Przetestowane pobieżnie. Sam sprawdź. [syntax=vbscript]Sub Wiazki() Dim Wiazka As String Application.ScreenUpdating = False Application.Calculation = xlCalculationManual...
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...
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...
Coś takiego [syntax=vbscript]plik = Application.GetOpenFilename(FileFilter:=... If plik <> 0 Then Set plik1 = Workbooks.Open(plik) End If[/syntax] ps Niedawno był podobny temat jak chcesz otwierać więcej plików https://www.elektroda.pl/rtvforum/topic3...
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
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...
[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...
O takie makro mi chodzilo. W moim arkuszu mam dwie zakladki o identycznym ukladzie wierszy i kolumn. Chcialbym aby makro dzialalo niezaleznie na obu. I jeszcze jedno pytanie. Moj oryginalny arkusz jest dosc odszerny w ilosci danych tak wiec po uruchomieniu zajmuje to odrobine czasu. Czy istnieje sposob aby przyspieszyc makro/otwieranie pliku np. przez...
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...
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...
makro plików błąd otwierania plików aplikacja otwierania plików
stihl husqvarna pralka łożysko wymienny optiplex zasilacz
schemat inwertera hybrydowego schemat falownika hybrydowego
Lodówka po doładowaniu gazu za mocno chłodzi - przyczyny i rozwiązania Diagnostyka zepsutego radia w Oplu Insignia
