Tworzysz obiekt FileSystemObject Dim fs as object Set fs = CreateObject("Scripting.FileSystemObject... Z powyższego pobierasz obiekt folder Dim f as object Set f = fs.GetFolder(folderspec) Z powyższego pobierasz kolekcję plików Dim files as object set files = f.Files Z kolekcji pobierasz ilość pozycji (czyli plikow) num = files.count funkcją Rnd losujesz...
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)...
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,...
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...
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ż...
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".
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",...
sorry, ale nie bardzo rozumiem. Mam wpisać w makro otwierające plik czy w makro w otwieranym pliku? i co to zmieni?
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Przecież możesz wpisywać kolejne daty np po przecinku lub po "alt + enter". "Kłopot" nie jest z możliwością wpisu tylko z wynikiem w komórce M2. Ale jeżeli o to ci chodzi to troszeczkę zmieniłem w tej komórce funkcję. Jednak jest zasada by datę zawsze wpisywać w tym samym formacie (zgodnym z formatem daty w excelu). Na marginesie bez sensu jest dodawać...
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
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...
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]
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"
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 ,...
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()...
(at)lanzul, 1. Kontekst zrozumiany prawidłowo. 2. Wszystkie pliki z mojego katalogu mają rozszerzenia .xlsx Bardzo proszę o podanie przykładu makra otwierającego po kolei drugie zakładki wszystkich plików z mojego katalogu w którym będę mógł umieścić fragment swojego kodu VBA.
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.
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...
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...
które pozwoli mi otworzyć konkretny plik dwg, np. jeden.dwg Lub [syntax=vbscript]Sub elka() Dim plik As String Dim sWkb As Workbook Dim katalog As String katalog = "C:\Pulpit\" plik = Dir(katalog & InputBox("Wklej nazwę pliku dwg") & ".dwg") If plik <> "" Then Set sWkb = Workbooks.Open(katalog & plik) sWkb.Close SaveChanges:=False...
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
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
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...
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...
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...
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...
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]
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...
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ł.
Możesz wrzucić ten plik? Masz w nim jakieś makra uruchamiane przy starcie?
... 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().
Witajcie. Na upartego szukam rozwiazania aby makro w pliku o nazwie "abc 0123.xlsm" moglo otwierac kazdorazowo nowy plik o nazwie "abc xxxx.xlsm", gdzie 'xxxx' to czesc tej nazwy ktora bedzie zmieniac sie za kazdym razem. Czy jest jakas funkcja w vb, ktora ignoruje czesc nazwy pliku i go otwiera? Jestem poczatkujacy na poziomie przed 'beginner'. P.S....
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...
No i w czym problem?
Witam. Mam mały problem. Mianowicie nie potrafię stworzyć makra otwierającego plik znajdujący się na pulpicie. W każdej innej lokalizacji wychodzi bezproblemowo, jednak pulpit to twierdza nie do zdobycia dla mnie :) Jestem początkujący w VBA, więc proszę o wyrozumiałość
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...
Witam mam problem z kodem, otóż chciałbym aby makro otwierało mi pliki po długości i początku numeru. Nazwa plików to są zawsze cyfry , plików jest ich zawsze 12 : 10234567 20134566 30345672 40874510 ... 100541294 110560328 120549356 mam problem ponieważ jak chce otworzyć pierwszy plik z nazwą początkową:10 otwiera mi sie ten dłuższy plik początek 100...
Jeśli Mamy raporty dzienne z każdego miesiąca zapisane w ten sposó; 5.MAJ-2011/R.D 5-1 do 5-31 i tak w każdym misiącu w folderze "5.MAJ-2011" są tylko pliki raportów, to bez wnikania w nazwy pobieramy kwoty z kolumny "C" (lub tych kolejnych) na podstawie tekstu z kolumny "A" z wszystkich znajdujących się tam plików. Jeśli standard zapisu nazwy jest...
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...
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ść, 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?
Witam Stworzyłem programik, który importuje z folderów i podfolderów pliki *.dat do Excela. Pierwszy przycisk (makro) otwiera po kolei wszystkie pliki dat i zapisuje do jednego arkusza w pierwszy wolny wiersz. Drugi makro importuje konkretny plik z konkretnego folderu. W folderze dane znajdują się podfoldery np. 0112 , 0212, 0312 które oznaczają miesiąc...
Siedzę ponad 2 godziny i nie mogę znaleźć makra, które by kopiowało plik Excela do innego pliku bez otwierania tego pierwszego Nie rozumiem, to w czym ty chcesz to makro uruchomić?
Pytanie o sens całkowicie zasadne ;) Nie rozumiem... Uruchamiasz powyższe makro skąd? W tym makro wywołujesz w pętli makro z jeszcze innego pliku (personal). Wcześniej odniosłem wrażenie, że w tych otwieranych plikach są makra o tej samej nazwie, wykonujące różne działania i je własnie chcesz uruchamiać. Ale, widzę, to nie tak. Dlaczego nie trzymać...
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...
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...
PRL - jeżeli to o zakładaniu nowego konta było do mnie, to nietrafione. To jest pierwsze. Nie jestem znawcą VBA - makro stworzyłem poprzez nagrywanie. Okienka o których mowa wyskakują z automatu - moje makro otwiera cztery pliki, każdy obrabia, wyniki wrzuca do piątego, cztery zbędne potem zamyka - bez zapisywania, bo potem miałbym błędy przy kolejnym...
Jeszcze raz ogromne dzięki JRV za użyczenie wiedzy i poświęcony czas :) Te ostatnie dwa makra, które napisałeś, działają bez błędnie na rzeczywistych plikach, prawie skakałem na fotelu z radości :) Mam jeszcze (ostatnie mam nadzieję) pytanie: moje pliki małą łącza do innych plików i w trakcie działania makra podczas otwierania każdego pliku muszę potwierdzić...
Przy tak prostej linijce to pewnie masz otwarte w dwóch różnych instancjach. Nie bardzo wiem o co chodzi z tymi instancjami, ale jeżeli dobrze rozumiem to błąd prawdopodobnie wynika z tego, że plik "Stary" jest plikiem xls, a "Nowy" plikiem xlsx. Ponieważ operuję starą wersją Excela (2003) to chyba jedynym rozwiązaniem jest zamiana pliku Nowy.xlsx...
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...
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
Witam, może się komuś przyda. Miałem podobny problem, z tym, że makro otwierało mi kilkadziesiąt plików w pętli. Wszystko działało przez ponad półtora roku, a tu nagle jakiś tydzień temu zaczęło się zatrzymywać na metodzie open, ale nie przy pierwszym lecz przy drugim przejściu przez pętlę. Co ciekawe wystarczyło puścić dalej makro i przechodziło do...
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...
Mój poziom znajomości VBA przyznam wam się jest na poziomie zero! Nie wiem czy jest to możliwe, jeśli nie jest trudno dałem plamę na cła Polskę, a kto wie może i na cały świat. Zaryzykuje i za pytam. Czy jest możliwe podanie w exelu w podanie określonych danych w exelu: 1. określonej ścieżki w jakieś komórce exela i makro pobiera sobie tą ścieżkę i...
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...
na chwilę obecną poradziłem sobie w dosyć podobny sposób: 1.zapisałem sobie 2 puste pliki z zarejestrowanymi makrami 2.otwieram plik z logami 3.kopiuje zawartość do plików z pkt1 4.uruchamiam makro które mi przetwarza dane i tworzy pliki wynikowe-raporty właśnie mam taką sytuację ,że zmieniają mi się nazwy i kolejność arkuszy -,- trudno użytkownik będzie...
Witam, mam problem z napisaniem makra w VBA. Mianowicie, mam plik o nazwie "program" w którym, znajduje się tabelka (zał.1.). Przycisk ma za zadanie otworzyć wskazane przeze mnie pliki i z otwartych plików skopiować wartość komórki A146 z arkusza o nazwie "ORZ". Nazwy plików, które otwiera makro są różne, a w każdym pliku jest arkusz "ORZ" i wszędzie...
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...
Witam Mam problem z zapisywaniem pliku przez makro. Okienko sie otwiera zapisz jako nazwa pliku sie zgadza ale jak kliknę na zapisz to okienko się zamyka i nic sie nie dzieje dalej jestem w pliku źródłowym ze starą nazwą. Pracuje na EXCELu 2010 sciezka = ThisWorkbook.Path & "\" Dim ZapiszJako As Variant Dim nazwa As String nazwa = Range("C2").Value...
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
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...
Oczywiście znam hasło tylko chcę aby przy kopiowaniu z wielu plików makro samo je wprowadzało bo jak na razie moje makro otwiera plik ale nie wiem jakim kodem sprawić, żeby je samo wpisywało. Wszystkie pliki są chronione jednym hasłem. Dzięki za linki, chyba uda mi się coś spłodzić.
Pierwszy wątek już jest rozwiązany. Powstała nowa potrzeba usprawnienia działania makra do pobierania tylko trzech kolumn o określonej nazwie Otwieram tylko jeden plik i po zassaniu pliku ZAMÓWIENIA jest zamykany przez makro.
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ł...
Co to za wersja Excela??? W 2007 nie otwiera mi się.
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,...
Dzięki ! udało się ominąć problem :) Ale jak to często bywa człowiek chcę więcej heh Mianowice chciałbym, że pliki które otwierają się za pomocą polecenia: GetObject ("H:\Moje Makro\Pomiary\pok.csv") były otwierane w każdej lokalizacji. Tzn. Jeżeli skopiuje mój katalog Moje makro na dysk E:/ to nie będę musiał w kodzie zmieniać mu wszystkich lokalizacji....
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...
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.
Trochę nie rozumiem jak chcesz przygotować/zmodyfikować makro jeżeli już ta mała funkcja to już nie Twój poziom. Wydaje mi się, że istnienie/dostępność foldera można sprawdzić niemal natychmiast, podobnie jest z otwieraniem pliku o znanej nazwie. Nie rozumiem skąd to opóźnienie, pewnie makro robi coś o czym nie wiem, jak to już ktoś wcześniej napisał....
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ść?
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.
To się nazywa otwieranie programu z parametrami - Kolega poszuka w sieci jak to zrobić. Jak już program napisany w C# będzie wykorzystywał przesłane parametry ( np ścieżkę do pliku) to sobie Kolega w Excelu zrobi makro które będzie otwierało tenże program podając przy okazji parametr będący ścieżką do pliku. Mam nadzieję że moje zawiłe tłumaczenia da...
Czy jest możliwość, aby makro , które otwiera inny plik przypisało np do arkusza1 kod jakiegoś innego makra?
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...
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 :)
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\"...
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...
Może pokaż makro i załącz wycinek csv.
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:...
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...
Nie do końca rozumiem. Nazwy plików sieciowych otwieranych przez makro różnią się tym znakiem: https://obrazki.elektroda.pl/4818664400_... Kiedy mam ustawioną stałą wartość to jest ok, ale zwraca mi błąd gdy jest ona inna niż ta stała (wartości zmieniają się od 0 do 9)
Witam, mam taki kod VBA, które zapisuje plik z określoną nazwą z pliku "wzorcowego", poprzez wciśnięcie button'a. : "Sub Zapis() Dim Sciezka As String Dim adres1 As String Dim adres2 As String adres1 = Range("G2") adres2 = Range("J2") On Error Resume Next ActiveSheet.Shapes.Range(Array("Button 1")).Select Selection.Delete Sciezka = "C:\Users\...\Dane"...
Ale gdy wskazujesz obszar to ten inny skoroszyt staje się aktywnym (no bo jak wskazujesz obszar bez aktywacji innego skoroszytu) żebyśmy się dobrze zrozumieli mam otwarte dwa pliki (a plik z makrem) i (b - dowolny inny) żeby wskazać obszar pliku b muszę go wywołać.(czyli otwierasz a uruchamiasz userform przechodzisz do pliku b wtedy uruchamiasz inputbox)
No tutaj nie trafiłeś, otwieram inni otwierają o problemów nie ma.
Witam wszystkich użytkowników, mam sprawę która sprawia mi problem, chodzi o kopiowanie przy pomocy makra danych z kolejnych plików. Chodzi o to że do pliku ZBIORCZY.XLSX kopiujemy wiersz A2 z plików 1_19, 2_19, 3_19, ..., n_19. Pliki o nazwach 1_19, 2_19, 3_19, ..., n_19 umieszczane są w folderze TEST. Pliki te będą tworzone i umieszczane w katalogu...
Potrzebuję napisać makro w Excelu, które: przy wyłączaniu Excela zapisze wszystkie otwarte dokumenty w jakichś plikach po włączaniu otworzy je.... Pomocy, potrzebuje to na wczoraj :)
[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
Witam, Odeszliśmy od standardowych dysków sieciowych i poszliśmy na Sharepoint - stety, niestety wszystkie makra z odwołaniami do plików na sieci poszły się .. paść. Mam makro które otwiera dany plik z dysku sieciowego, dokleja kolejną linie do tabeli, zamyka plik i wychodzi - teraz pytanie czy da się to zrobić na pliku znajdującym się na Sharepoint?...
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.
To musisz popatrzeć co w tym pliku jest - obrazki, duża ilość makr i odwołań matematycznych - rzeczy które program musi wczytywać i liczyć przed wyświetleniem pliku przeciągają otwieranie w nieskończoność. Jeśli otwiera się tak tylko ten jeden plik to wina tkwi w nim.
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).
Działa super, wielkie dzięki :-) Dodano po 2 A jak bym w C2 wpisał =TERAZ() i ustawił datę aby miała format 2017-11-11 to czy udało by się ten sam efekt (czyli przypisanie zmiany) uzyskać automatycznie w momencie otwierania pliku tak abym nie musiał podczepiać makra pod przycisk?
Pod Windows nie ma już automatycznego autostartu jak to było dawniej, czyli pozostają tylko wirusy "dołączone" do zwykłych plików wykorzystujące np. makra w pakiecie Office czy różne luki w programach które te pliki otwierają - tutaj nie ma znaczenia czy pliki pochodzą z pendrive czy zostały np. pobrane z internetu. No i infekcja nie nastąpi sama tylko...
programy otwierające pliki makro otwierające arkusz makro otwierające folder
instrukcja projektora suszenie pralko suszarka samsung gokart silnik elektryczny
pralko suszarka bosch electrolux pralko suszarka bosch electrolux
Toyota Auris kod błędu P0352 - cewka zapłonowa cylindra 2 Niedostępność kontaktu w Messengerze po odblokowaniu
