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.
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...
Witam, Proszę o pomoc - jak powinno wyglądać makro czytające (otwierające) kolejne pliki wg listy (tekstowej lub excela - to obojętne). Wiem tylko tyle, że wyrażenie Windows("plik1.xls").Activate trzeba zastapić wyrażeniem Windows(s+".xls").Activate gdzie s to zmienna typu string do której podstawiamy dowolny tekst z dowolnego źródła (tabeli, arkusza,...
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...
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"...
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,...
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...
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...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
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 [syntax=vbscript] arg = "'" & Path & "[" & NazwaPliku & "]" & NazwaArkusza & "'!" & Range("C3").Range("A1").Address(, , xlR1C1) a = ExecuteExcel4Macro(arg)[/syntax]
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]
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",...
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ś.
wyeksportowania bez pętli Pętla ma zostać. Otwieranie i zamykanie pliku ustaw poza pętlą. Otwieranie przed, a zamykanie po pętli.
Zastosowałem już metodę GetOpenFilename ale nie potrafię pobrać tej ścieżki i zapisać w komórce. np. tak [syntax=vbscript]p = Application.GetOpenFilename Range("A1") = Left(p, InStrRev(p, "\"))[/syntax]
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
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.
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.;)
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.
Witajcie Mam już napisane makro w pliku Worda, które otwiera po kolei kilkadziesiąt plików Worda, które wszystkie są korespondencją seryjną. Makro robi swoje we wszystkich tych plikach jednak przy otwarciu każdego z nich muszę kliknąć na przycisk "TAK" na pytanie "Otwarcie tego dokumentu spowoduje uruchomienie następującego polecenia SQL ..." Czy jest...
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.
Przeszukaj katalog w pętli, z wykorzystaniem wbudowanej funkcji FileDateTime(ścieżka & nazwa_pliku) Poniżej napisane "na kolanie", ale powinno być coś w tym stylu [syntax=vbscript]katalog = "C:\Pliki Excela\" plik = Dir(katalog & "*.xls*") test2=filedatetime(katalog & plik) Do While plik <> "" test=filrdatetime(katalog & plik)...
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...
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...
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...
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...
Działa mi to makro, gdy mam we wszystkich plikach, które otwieram funkcje DodajMyslniki zawartą. A moje pliki, ktorych bede uzywac w przyszłości nie będą miały tej funkcji i potrzebuję makro, które użyje tej funkcji w plikach otwieranych, odpalone w pliku wejściowym tzn. plikodtworzeniowy. Czyli zależy mi na przerobieniu tego kodu na sytuacje gdy otwierany...
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...
No i w czym problem?
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....
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\"...
Przy otwieraniu trzeba dodać parametr [syntax=vbscript]Local:=True[/syntax]Sta... VBA oczekuje angielskiej wersji pliku .csv z przecinkami, więc średników nie traktuje jak separatory. [syntax=vbscript]Workbooks.Open ThisWorkbook.Path & "\" & "1.csv", Local:=True[/syntax]
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...
... Ale zrobiłem w makro, otwórz plik, skopiuj dane i wklej wartosci (chyba lepsze...) ... No to jak już wykorzystujesz makro do otwierania pliku to po co kopiować dane jeżeli adr.pośr() dział na otwartych plikach? ...A czy istnieje możliwośc użycia funkcji wyszukaj pionowo, ale w lewo? Nie wiem czy o to ci chodzi ale jest jeszcze wyszukaj.poziomo().
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...
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?
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...
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...
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"...
programy otwierające pliki makro otwierające arkusz makro otwierające folder
nokia działa internet świeca simson wymiana zegarów renault
uszkodzone lifepo4 pralka kończy
Kod A11 1000 w piecu Junkers - konfiguracja systemu Korekta dmuchawy przy spiekach: ustawienia na minus czy plus?
