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.
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
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
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 ,...
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...
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...
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...
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
"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.
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...
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ł.
[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...
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
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
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...
Może pokaż makro i załącz wycinek csv.
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...
Cześć napisałem makro, które otwiera pliki excel, kopiuje ich zawartość do kalkulatora, następnie przekopiowuje obloczenia do zbiorczej zakładki, i tak dla każdego z wybranych plików. Problemem jest powolność jego działania, od 10 plików makro działa o wiele wolniej. proszę o sugestie w jaki sposób mogę przyśpieszyć makro. Dopisałem również zamykanie...
Excel to nie BAZA, to tak na marginesie Miłego kopania się z koniem
w pliku są danę osobowe pracowników, więc najpierw musiałbym go "wyczyścić". Przy starcie jest makro, które ukrywa arkusze i włącza ochronę. Arkusz1 ma własne menu podręczne.
Może jakoś tak: [syntax=vbnet] sub Test() dim Fn as string, Wb as object Fn=Dir("C:\twój katalog\*.xlsx") do while (Fn <> "") set Wb=Open(Fn) Sheets(2).Select Fn=Dir loop end sub [/syntax] Tylko otwiera plik i wchodzi do 2 zakładki, nic więcej nie robi.
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 :)
W najprostszej postaci taka procedura może wyglądać tak: [syntax=vbscript]Public Sub WskazPlik() Dim WB As Workbook Dim Wybor Wybor = Application.GetOpenFilename("Pliki Excel (*.xls*),*.xls*", , "Wskaż plik", "Wybierz", False) If Wybor <> False Then Set WB = Workbooks.Open(Wybor) Else Exit Sub End If End Sub [/syntax] Otwiera się okno dialogowe,...
działa ale wolno Musi działać wolno bo za dużo 'aktywacji' jakiś 'activeceli' otwierasz plik "baza" zamykasz jakiś "Lista_srodkow"
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.
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,...
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 :)
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.
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
Pliki do odczytu są jak by poza komputerem Plik może być na serwerze, ale jest ładowany lokalnie, skoro masz do niego dostęp, a więc jest otwierany Excel, a więc można się odwołać do obiektu Windows().
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.
Jakaś podpowiedź co dodać żebym mógł wybierać kilka plików :?: i zostały otwarte w osobnych arkuszach :?: ? Celowo wspomniałem Ci o nagrywaniu makra bo wtedy musisz całą procedurę przeprowadzić "manualnie" i przemyśleć dokładnie co chcesz zrobić i jaki efekt chcesz osiągnąć :?: Otwieranie pojedyńczych plików i otwieranie kilku plików wymaga odmiennego...
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...
adamas_nt próbowałem wkleić to polecenie wiersz po wierszu w moim makro. I niestety przy każdym otwieranym pliku muszę nadal klikać na "nie aktualizuj"(w EXCEL 2003) lub "kontynułuj" (W EXCEL 2007). Dla uściślenia informacji (dla nowo przybyłych). Makro, które próbuję usprawnić znajduje się tutaj: http://www.elektroda.pl/rtvforum/topic21...
też już próbowałem ale 14 plików musiał bym otwierać... inny sposób obejścia to makro? czy jednak jest jakaś możliwość?
Otwierając plik Excel ze strony www (klik w zwykły button) plik Excela nie otwiera się, aż do momentu kiedy nie zatrzymam działania makra - dla wyjaśnienia po kliknięciu w przycisk makro czeka na pojawienie się nowego pliku o określonej nazwie. Przechodząc kod krokowo wszystko działa poprawnie. Puszczając makro automatycznie niestety plik się nie włącza...
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
Witam, Mam problem z pobieraniem danych - power query z pliku chronionego haslem. baza danych(excel) - "źródło" chronione hasłem "123" Arkusz "pobierz" - tutaj mają trafić dane z odświeżonych zapytań (kilka) Udało mi się znaleźć makro, który otwiera plik źródło i teoretycznie powinien odświeżyć połączenia ale niestety tak się nie dzieje. Wywala błędy...
...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...
Czesc Poszukiwałem w internecie rozwiazania, ale kazde dotyczylo plikow excel i nie mogelem znalesc rozwiazania. Mam makro, które otwiera wskazany plik PDF. Po wykonaniu określonych zadań chciałbym aby po kliknięciu przycisku marko zamykało wskazany PDF (jeśli ten jest otwarty). Pomożecie?
niestety poprawiony plik nie działa, otwiera mi pierwszy plik do importu i zatrzymuje się. Makro podświetla linię: ActiveSheet.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False
Nie jest oczywiste, że pliki będą otwierane kolejno wg nazwy. . Autor nigdzie nie napisał, że zależy mu na kolejności ale na wczytaniu 300 pozycji.
otwiera się Arkusz 2 zaznaczając pustą komórkę kolumny B (ewentualnie dodaje nowy pusty wiersz) Patrząc na załączony plik nie mogę zrozumieć w jakim celu chcesz zrobić to makro :?: :cry: Jeśli chcesz szybko weryfikować odniesienia do arkusza 2 to najprościej proponuję makro w arkuszu 1 :spoko: : [syntax=vbscript]Private Sub Worksheet_BeforeDoubleClick(ByVal...
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.
Jak napisać kod do makra 1. Nagraj makro wykonujące w/w czynności, przeanalizuj. 2. Zerknij [url=https://msdn.microsoft.com/en-us/li... następnie [url=http://www.elektroda.pl/rtvforum/fi... 3. Połącz, usuń nadmiar kodu 4. Jak coś nie będzie działać, opisz na forum.
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....
Witam Napisałem makro, które dokonuje kilku przekształceń na pliku CSV, rysuje wykres i zapisuje plik do formatu .xls. Takich plików CSV w jednym katalogu jest bardzo dużo, więc chciałbym, aby Excel sam otwierał wszystkie pliki w CSV, edytował i zapisywał w innym katalogu jako .xls Jak używam polecenia ChDir_ to Excel edytuje go w taki sposób, że tam...
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...
Jak rozumiem Czy próbowałeś? Dodano po 3 Tak na ułamek sekundy widać Dodano po 4 Może przejść długą drogę - programowo utworzyć obiekt Excel, domyślnie nie jest widoczny, z nim otworzyc plik
Tylko chodzi o to, żeby makro automatycznie otwierało plik , w którego nazwie zawiera się dzisiejsza data w formacie jaki wcześniej podałem. Niespecjalnie wiem jak to napisać.
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...
Chce jakiś przykład Analizowałeś przykład z linka? Otwiera plik, szuka tekst i kopiuje. nie znam hasła Ja chyba też nie znam hasła do Twojego pliku.
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ę...
Funkcję jakos bym napisał... Ale np mam funkcję napisaną i jeśli sam ją uruchamiam to wszystko dziala ale jak np zapisalem to i włanczam od nowa ten plik to zebym ja nie musial uruchamiac funkcji tylko zeby ona sama sie uruchomila no właśnie to ma byc jakaś funkcja... czy makro... ale ma sie otwierać przy każdym starcie programu
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ć...
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",...
Cześć, Potrzebuję waszej pomocy. Otóż muszę zliczyć codziennie dane z jednego pliku i wpisać do drugiego. Jest na to prosta formuła: =SUMA.JEŻELI('[Scrap report.xlsm]IR'!$L:$L;[(at)Dzień];'[Scra... report.xlsm]IR'!$G:$G) Problemem jest dla mnie to, że plik, z którego pobieram dane musi być otwarty i przy odczycie również. Zależałoby mi na makro, które...
Windows 10, Office 2010, zmienna Workbook działałaby gdyby oba dokumenty były otwarte w jednym pliku, ja natomiast nie mogę tego zrobić, bo jeden z plików wyświetlany jest na jednym z monitorów, natomiast drugi na innym. a jeśli chodzi o przykład to powiedzmy że stworzyłem 2 dokumenty excel; pierwszy to zeszyt1 natomiast drugi to zeszyt2. następnie...
U nie mam tak (niezalecane): http://obrazki.elektroda.pl/3974948300_1... Oczywiście jeśli odpalam nieznany (podejrzany) plik, to piszę sobie "jednolinijkowe" makro, Np a=1 w nowym pliku, uruchamiam pierwszy krok (przez F8) i dopiero otwieram właściwy. Sprawdź również zakładkę "Zaufane lokalizacje" (ptaszki u dołu okna).
Przenieś (skopiuj i usuń) makro z "Report.xlsm" do źródłowego i wywołaj (oba makra w "Otwieranie pliku źródłowego.xlsm"). Po Woorkbook.Open powinien być aktywnym, ale dla pewności (nie wiem, czy to całość makr) można przekazać nazwę i aktywować: [syntax=vbscript] Set wkb2 = Workbooks.Open(.SelectedItems.Item(1)) Filtrowanie (wkb2.Name)[/syntax][syntax=vbscript]Sub...
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...
PDF-a konwertuję do excela na jakiejkolwiek strunie gdzie mogę zrobić to online. Czy to znaczy, że otwierasz PDF-a w przeglądarce WWW i myszą kopiujesz tekst? W jakim systemie to robisz? Windows, Linux, MacOS...?
Zapewni to zakładki w programu Excel - office-tabs.com/download.htm by po kliknięciu jednego pliku otwierały się inne zakładki z arkuszami - To na pewno makro od głównego arkusza
Zrobiłem tez to, lecz jest jeszcze mały problem z tym rozwiązaniem. Po uruchomieniu wyłącza mi paski. Ale w wym arkuszu mam hiperłącza do innego pliku excel, który po uruchomieniu też nie ma pasków (a tam mi są już potrzebne) Pojawia się gdy zamknę ten gpierwszy plik który wyłączał paski. Chcę by tylko 1 arkusz (z którego czarpię dane i otwieram hiperłącza)...
Przepraszam uprzejmie za ignoranckie pytanie :cry: ale gdzie w tym pliku są makra, które rzekomo mają za krótki zasięg? Z braku nowej wersji MO otwierałem go w OO. Makra powinny być widoczne.
Tak myślałem, że z zamkniętym się nie da... Ale problem jest też taki, że po uruchomieniu wskazanego pliku dalsze procedury nie zaskakują. Po prostu uruchamia się i koniec. " Workbooks.Open Filename:="C:\Documents and Settings\rb20476\Pulpit\excel.xls", ignorereadonlyrecommended:=True " Jak usunę tę linijkę i sam ręcznie włączę to wszystko jest ok....
Plik jest stworzony przeze mnie. Co do zawartości - w większości Tabele z danymi z kilku lat w częstotliwości dobowej (kilkadziesiąt parametrów), kilkanaście makr uruchamianych przyciskami, jeden wykres/grafika i w zasadzie tyle. Plik jest zabezpieczony hasłem przed otwarciem - makro też. Sytuacja wystąpiła z dnia na dzień. Wcześniejsza wersja pliku...
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...
Witajcie, Czy istnieje możliwość by makro otwierało ostatnio zapisany plik z danej lokalizacji albo plik z najświeższą datą w tytule np. raport20160430? Obecne rozwiązanie jest uciążliwe i szukam optymalizacji do tego działania :D
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...
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
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")...
Witam poniżej działające makro: otwierasz plik excel - powstaje wpis edytujesz zapisujesz zamykasz - powstaje wpis [syntax=vb]Private Sub Workbook_Open() Dim nrPlikuWyj On Error Resume Next nrPlikuWyj = FreeFile Open "F:\Marek\OFFICE\test formuł\LISTA_LOGI.log" For Append Shared As #nrPlikuWyj Write #nrPlikuWyj, _ ThisWorkbook.Name & _ " otwarto " &...
Rozwinę: Przychylam się jednak w stronę zdania kolegi PRL . Makro będzie działać tylko w jednym pliku (chyba, że jakiś dodatek, albo plik z makrami osobistymi). Przytoczone rozwiązanie w każdym, nawet otwieranym z załącznika poczty... Co nie ma wpływu na moją ciekawość (to do JRV) ;)
Makro masz już gotowe If Dir(ThisWorkbook.Path & "\" & nazwa) = Empty Then należy pozmieniać tylko polecenia. Jeśli Empty, to znaczy że nie ma i wyświetlasz komunikat, w przeciwnym wypadku otwierasz. Poczytaj o metodzie Workbooks.Open i argument posklejaj ze zmiennych (patrz kod wyżej).
Witam, Mam następujący problem. Co miesiąc muszę dokonać aktualizacji pliku xls, zawierającego odniesienia do ponad setki plików źródłowych w katalogach (adresy "C:\..."). Przygotowałem plik Main.xlsx , w którym w kolumnie A mam listę z tymi adresami do plików źródłowych, natomiast w kolejnych kilku kolumnach formuły, które wyszukują odpowiednie dane...
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]....
Dzięki za podjęcie tematu. Obawiam się że to nie pomoże ponieważ makro sprawdza czy jest tam katalog, jeżeli nie to najpierw go zakłada a następnie zapisuje do niego plik. Domyślnie chce to robić zawsze w moich dokumentach. Po zaznaczeniu w excelu nazwy dysku np. D:\ wszystko jest ok. W podanym przez Ciebie przypadku katalog jest zawsze ten sam a u...
Rozwiązanie na pewno istnieje, choćbyśmy musieli sięgnąć do windowsowego api. Zawsze można prowadzić prace nad nowatorskim ulepszeniem widelca do jedzenia zupy. Chwała (we własnych oczach) jeszcze lepsza. Rzecz w tym, że tu nie ty otwierasz, ale excel i przedziwne tryby otwarcia pliku (a istnieją takie) nie sa dostępne. Przy talencie manipulacyjnym...
nagrałem jeszcze raz pominąłem otwieranie pliku, wyszedłem z założenia że wsztskie są otwarte, "Range..." się pokazało jednak makro nadal ne zwraca wartości tak jak podczas nagrywania. Nowe makro po nagraniu: [syntax=vb] Windows("ordofinLO.xls").Activate ActiveSheet.Range("$A$1:$AK$755").AutoFi... Field:=8, Criteria1:="756902" Range("K342").Select...
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ć ?
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...
Użytkownik otwiera plik w Excel'u edytuje co potrzebuje i generuje sobie ręcznie z tego Excela PDFa. Nie ma na to żadnego automatu.
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...
Witam! Znalazłam i przerobiłam proste makro (w excelu 2007) zapisane w ThisWorkbook: Private Sub Workbook_Open() With Worksheets("nazwa arkusza") .Protect Password:="hasło", UserInterfaceOnly:=True, AllowFiltering:=True .EnableOutlining = True End With End Sub Niestety nie chce ono działać na niektórych komputerach. Wykonuje się przy otwieraniu pliku,...
1. Otwieram wzór arkusza ze zleceniem w którym zapisane jest moje makro. 2. Wypelniam ten wzór w odpowiednie dane. 3. Uruchamiam makro, które tworzy nowy plik zapisuje je pod nazwą pobraną z odpowiedniej komórki po czym tworzy hiperłącze które łączy nowo stworzony plik z plikiem wzorca. 4. Później aby wzór pozostał wzorem, to plik który wypełniałem...
Pytanie jak z Excela wydrukować plik word aby zarejestrowało to makro. Żeby zobaczyć jaki kod się stworzy przy wydruku z Word-a można makro zarejestrować w Word-zie, a następnie je dostosować, tak, aby np. otwierało plik/pliki Word-owe i je drukowało. P.S. Gotowe rozwiązanie może i jest super, ale jeszcze lepsza jest przyjemność stworzenia czegoś samemu...
Zrobiłem to tak że program wybiera z tabelki po prawej inicjały (4 pierwsze znaki) czyli jak w tabelce jest J.K. to wybiera te inicjały. I przeszukuje kolumnę K w poszukiwaniu zgodnych inicjałów, (też 4 pierwsze znaki) czyli jak jest( J.K. data) to wybierze tylko "J.K." i dodaje do licznika pozycji zleconych. Dodatkowo jak kolor czcionki jest czerwony...
Jeżeli problem jest powodowany przez VBA i tylko w tym jednym pliku, to czasem - nie zawsze - pomaga coś takiego (Excel 2003): - otwórz dowolny plik Excela, ustaw Narzędzia->Makro->Zabezpieczenia na poziom BARDZO WYSOKIE, zamknij plik. - spróbuj otworzyć uszkodzony plik, - jeżeli się uda, zapisz otwarty plik. Teraz możesz przywrócić poziom zabezpieczeń...
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ą...
Cześć, Czy jest możliwość w VBA ignorowania MsgBox, który wyskakuje tuż po otwarciu innego pliku? Mam makro - otwiera plik i wyskakuje MsgBox (coś sprwadza, służy komuś innemu - więc o usunieciu nie ma mowy). Jest jakieś obejście by dezaktywować MsgBox z innego pliku, lub nawet całe kody makr?
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:...
Makro ma za zadanie otwarcie pliku "matki" do którego kopiuje pewne dane, następnie zapisuje go pod odpowiednia nazwą w odpowiedniej lokalizacji. Czy nie lepiej zapisać nowy plik bez wielokrotnego otwierania pliku matki?
Cześć, mam problem, którego nie potrafię rozwiązać. Mianowicie potrzebuje narzędzia, które będzie wyszukiwać zakładki w pliku excel po jego nazwie. Powinno być to w formie MsgBox. Np. mamy plik jak w załaczniku i chciałbym, żeby odrazu po uruchomieniu wyskoczył MsgBox, gdzie możemy wpisać interesujacy nas arkusz i otwiera się on po potwierdzeniu komunikatu....
Otwierasz kolejne pliki w pętli, w której należy umieścić licznik numeru kolumny arkusza docelowego. Jeśli znasz nazwę lub indeks arkusza źródłowego (idealnie byłoby, żeby był identyczny w każdym pliku), to przepisujesz zakres, zamykasz plik i... to wszystko. Ewentualnie powtarzasz tę samą operację dla podfolderów, o czym pisałem wyżej. Jeśli nazwy...
od razu mowie ze kompletnie nie znam sie na Makro To może trochę teorii na początek? Np Sub przyklad() sciezka = Application.DefaultFilePath & "/" plik = Dir(sciezka & "*.xls") Do While plik <> "" MsgBox plik plik = Dir Loop End Sub to będziesz w połowie drogi. Wykorzystaj też rejestratora...
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...
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...
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...
makro otwieranie pliku excel makro otwieranie innego pliku excel otwieranie pliku
opalarka grzeje budowa odbiornika lm350 ograniczenie prądowe
Retrofity świateł drogowych Opel Astra K 2017: LED, HID, AFL Panasonic SC-HC15 - Kompaktowy System Audio