Witam! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
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...
hmm dalej nic, A nie masz czasami w tym "e5" jakiegoś znaku typu (<>?/")?
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Powiem że (polskie) google nie oferuje za dużo info na temat VBA Word, a nagrywanie to jakaś masakra. No ale udało się. Może to dla znawców trochę toporne ale zawsze jakieś rozwiązanie: [syntax=vb]Sub osobny_plik() Application.Browser.Target = wdBrowsePage For i = 1 To ActiveDocument.BuiltInDocumentProperties... of Pages") ActiveDocument.Bookmarks("\page").Range....
Podmień Sub na zdarzeniową: [syntax=vb]Private Sub Document_Open()[/syntax]
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
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...
Witam Dziękuje Działa, ale chciałbym mieć możliwość całkowitego zablokowania możliwości zapisu pliku z włączonymi filtrami. Makro działa - wywala błąd, ale mimo wszystko pozwala użytkownikowi zapisać plik.
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
Plik działa, ale wymaga abym nazwę wpisał sam i wskazał adres zapisu Jakoś nie widzę zapisywania. Powinno być w pytaniu po Else... Czas mierz przed msgbox'em z pytaniem, a wynik możesz wyświetlić w tytule.
To całe makro?? Ten fragment służy jedynie do wybrania nazwy pliku. Zapis nastąpi w momencie wywołania: [syntax=vb]ThisWorkbook.SaveAs (ZapiszJako)[/syntax]
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
idat wpisywane recznie, na poczatku nowej I zmiany, lub gdy juz potrzeba wpisac dane I zmiany(nowej). wtedy kasuje sie tabela I, II, III zmiany. Makro dodaje nowy wiersz ze wpisana data. Dane w 'Tabela zapisu ' gotowe kazdy raz, jak byly zmiany w itab
Cześć, chcę stworzyć makro (przycisk w arkuszu), które będzie zapisywało plik jako wartość z komórki i dzisiejsza data. Lokalizacja pliku jest inna niż plik oryginalny. Napisałem następujący kod: Sub Zapis_Bizcase() Application.DisplayAlerts = False Dim Nazwa As String, Sciezka As String Nazwa = Range("T2").Value & " " & Date & ".xlsm" Sciezka = "C:\Users\was\Desktop\"...
Zupełnie o tym zapomniałem. Teraz wszystko działa. A czemu kwalifikator nie jest potrzebny przy zapisie danych do pliku, w którym jest makro. Poniższy zapis działa poprawnie. TenPlik.Range(Cells(OWD + 20, 4), Cells(OWD + 22, 38)) = Dane Przy odczycie danych z pliku zewnętrznego nawet po otworzeniu pliku i ustawieniu arkusza "Wyniki zbiorcze" jako aktywnego...
Natomiast mam pytanie. Ponieważ gdy chce drukować ten dokument zawsze dostaję informacje że marginesy są błędnie ustawione i czy chce kontynuować wydruk Podmień makro do drukowania i zobacz. [syntax=vbscript]Sub PrintToSpecificPrinter() Dim PrinterName As String PrinterName = "STL-TE100" ' Save the current active printer Dim currentPrinter As String...
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ć ?
Nie wiem czy dobrze rozumuję. Wyniki obu porównań można umieścić w odpowiednich arkuszach pliku "makro.xls", skopiować (arkusze wynikowe) do nowych plików, nadać im nazwy i zapisać (zamknąć z zapisem).
Mimo tej modyfikacji, makro cały czas zachowuje się tak samo - wywala ten sam błąd. Przecież masz w nim te stare makro. Po podmianie makra na te co podałem wyżej, wszystko działa w pliku testowym2
Kolumnie T jest właśnie ta lista co w pliku testowym była w H
Linia ActiveWindow.Close Zamyka plik bez zapisu zmian Może to jest problemem? Zrób z tej linii komentarz i zobacz czy będziesz miał tak jak oczekujesz
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
Nie zapisuje nowego pliku w .xlsx bo jak pisałem w tym rozszerzeniu nie może być makra a Ty masz makro, jest błąd i nie zapisuje. Nie usuniesz makra z którego w danej chwili korzystasz. Trzeba to obejść tworząc kopię Arkusza bez makra i zapisując kopie. Sub Zapis() Dim Sciezka As String Dim adres1 As String Dim adres2 As String adres1 = Range("G2")...
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...
musiałem to przeoczyć teraz działa idealnie :) ale mam jeszcze jedno zagadnienie, mianowicie chodzi o to, że po tym jak excel wykona te wszystkie czynności to plik z którego robiliśmy kopie zapisujemy jako (w nazwie podajemy dokładnie tą samą wartość co w pliku który makro tworzy samo, czyli ta sama komórka) i później link działa ale wyświetla komunikat...
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Procedura jest prawie dobra. Zapisu do pliku dane.txt można dokonać przez:[syntax=vb] Open "C:\dane.txt" For Output As #1 [/syntax] Ponieważ zapisujemy do pliku a nie odczytujemy z niego (linia po linii), zapis [syntax=vb] Do Until EOF(1) .... Loop [/syntax] nie ma sensu i należy go usunąć.
Teraz jest ok jeżeli chodzi o tworzenie pliku DXF. :-) Jest jeszcze jednak mały problem techniczny zapisu rekordów w samym pliku, a mianowicie przed każdą liczbą i po każdej liczbie w danym rekordzie makro wstawia spację np. "30" natomiast powinno być tak "30" (sama liczba tak jak jest wpisane w komórce). Przy ciągach literowych ten problem nie występuje.
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
Niestety nie działa to jak należy. Po aktywowaniu makra wyskakuje okienko zapisu, gdzie muszę wpisać nazwę i wybrać typ zapisywanego pliku. https://obrazki.elektroda.pl/9879440800_... Chciałbym aby plik zapisywał się automatycznie i miał nazwę pliku przed zapisem z dodaniem na końcu nazwy daty aktualnej w momencie zapisu. Dodatkowo...
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...
W załączeniu przykładowy plik
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Makro1 - nie trzeba w makro Test zmien ActiveDocument.SaveAs FileName:=sDir & "a_" & CStr(r) & ".docx", _ na ActiveDocument.SaveAs FileName:="C :\" & .DataSource.DataFields("nazwa ").Value & ".docx", _
Wygląda na to że wszystko robisz dobrze. Prawdopodobnie nie masz uprawnień administratora i do zapisu bezpośrednio na dysk C, ew. to kwestia ustawienia czegoś w zabezpieczeniach Worda (widzę że to ten nowy, ja się zatrzymałem na 2007). Utwórz na nim jakiś katalog, zmień ścieżką w makro i do niego próbuj zapisać. Oczywiście nazwa pliku ma tutaj znaczenie...
Mają być w starszym formacie .xls czy w nowszym, używanym m.in. w 2010, .xlsx? Sam zapis jest względnie prosty, wystarczy żebyś spróbował nagrać makro recorderem proces zapisywania pliku w odpowiednim formacie - powinno wyjść coś podobnego do: [syntax=vbscript]ws.SaveAs Filename:= "C:\test.xls", FileFormat:=xlExcel8, _ Password:="", WriteResPassword:="",...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Witam, Szukam makra, które by przefiltrowało ten zamieszczony plik po kolumnie "K" i wynik zapisało w oddzielnym pliku pod nazwą przefiltrowaną. Czyli stworzyło by plik Kraków Bazar Gospodarstwo gdzie by były tylko dane z Kraków Bazar Gospodarstwo i zapisało go i zamknęło, później stworzyło by kolejny plik po nazwą Kraków Bazar Kultura itd aż wyczerpią...
Witam Gotowe rozwiązanie było by super. Pytanie jak z Excela wydrukować plik word aby zarejestrowało to makro.
Taki problem, który pewnie jest dla wielu banalny. Zapisując plik za pośrednictwem zwykłej funkcji: Zapisz jako i wybierając .CSV rozdzielany przecinkami uzyskuję plik, który przy ponownym otwarciu jest podzielony na kolumny (patrz załącznik: 1058226 ZDEM_via_Excel.csv) tymczasem gdy stosuję taki kod do zapisania pliku. ActiveWorkbook.SaveAs Filename:="C:\ZDEM.csv"...
Witam, Mam problem z makrem w Wordzie. Mianowicie makro miało mi tworzyć kopie pliku z odpowiednią nazwą, którą odczytuję z jednej komórki tabeli. Miał być początkowy człon następnie dzisiejsza data i na koniec nazwa firmy. Niestety po napisaniu tego makra (dopiero się tego uczę) przy samym zapisie wyskakuje błąd że Nazwa pliku jest niepoprawna. Dokładnie...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
Witajcie, mam taki problem. Stworzyłem sobie makro tworzące plik csv (z konkretnego zakresu danych) w określonej lokalizacji, w moim przypadku chodzi o Pulpit. O ile makro działa u mnie na kompie, będzie problem jeżeli z pliku i makra będzie chciał skorzystać ktoś na innym kompie (inna ścieżka zapisu). Czy może mi ktoś podpowiedzieć jak sobie z tym...
Prosta sprawa a tu taka dyskusja :) , Teraz to wychodzi, że zawsze jest lepiej załączyć przykładowy plik (dane mogą być fikcyjne), ale "budowa" musi być oryginalna. Sama nazwa nawet jak będą znaki specjalne musi się wyświetlić w okienku "nazwa pliku" ale przy próbie zapisu dostaniesz błąd. ps. w tym elka2-nie działajca, formula jest w d8 a kod w makrze...
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
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...
Może być tak set /p dim= <.\flm.tmp O! Teraz to już jasne! Tamten sposób zapisu był dla mnie całkowicie niezrozumiały.
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
Zle chyba opisuę pierwsze makro było ok zapisywało do folderu w którym był pliktylko do niego dołożyć nie koniecznie to co podesłałem żeby tak jak ata forułka =dziś i lista rozwijana z firmami w zapisanym pliku byłu tekstem. Bo teraz to wyskakuje plik a tak jak na począrku pierwsza wersja ok plus żeby data i lista rozwijana były bez formuł(bo jak bedzie...
Nie chodzi mi o nazwę pliku. Nazwa pliku jest zaczytywana z komórki H3. Chodzi mi o lokalizację na dysku.
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...
Jest jeden poważny błąd. Załącznik zostaje wysłany razem z makrem, w którym są Twoje dane do skrzynki pocztowej! Wszystkie procedury trzymaj w normal, a nie w pliku źródłowym. http://obrazki.elektroda.pl/7493883500_1... A tutaj poprawiona procedura z zapisem do pdf'. http://obrazki.elektroda.pl/3609333200_1...
Przy porannej kawie wyszło coś takiego (załącznik). Zapisz plik w folderze, tym samym gdzie "Pula.xlsx" i uruchom makro. dodano po chwili: sorry, zapomniałem załączyć plik :)
Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa pliku była aktualizowana zgodnie z zawartością...
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
Witam Serdecznie, Na bazie waszych informacji stworzyłem proste makro bynajmniej w przypadku rezygnacji z zapisywania pokazuje mi błąd, jak można go ominąć? Sub Zapis() Dim adres1 As String Dim adres2 As String adres1 = Range("B3") adres2 = Range("B2") ActiveWorkbook.SaveAs Filename:=adres1 & adres2 & "\" & Range("B1").Text & ".xls" End Sub http://obrazki.elektroda.net/56_12783202...
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
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 :)
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
Kurczę .. dopiero teraz przez to przebrnąłem a i tak nie jestem zadowolony do końca z efektu. Dwa dni nad prostym makrem - łał. Niby basic ale za małą mam wiedzę. Poniżej przykład w OpenOffice Działa podobnie jak w excelu Nie moge wyrównać do prawej okienka ilości. Pomimo zaznaczania do prawej w edytorze po zapisie i ponownym otworzeniu znów jest do...
NIe do konca rozumiem, co to zmieni w kwesti makra ktore ma pobrac z dysku lokalnego uzytkownika odpalajacego makro, wlasnie do tego udostepnionego folderu ? Mam problem z uzyciem metody FileCopy i sciezka zeby filecopy dzialalo
Cześć, chcę zrobić makro które pozwoli mi otworzyć konkretny plik i zapisać jego ścieżkę w jakiejś komórce. Zastosowałem już metodę GetOpenFilename ale nie potrafię pobrać tej ścieżki i zapisać w komórce.
Dzięki wielkie !!! :) Wszystko już hula poza tabelami jednowierszowymi. Żeby obejść pytanie o zapis dałem po prostu .Close False
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Podmień Jednak mam problem plik który mam jest plikiem CSV czyli nie ma możliwości wpisania na stałe tam makra, osoba która chce mój plik zaimplementować używa Accessa (w którym jestem zielony) i chce wywoływać makro z poziomu Accessa i teraz pytanie czy jest możliwość by w accesie zapisała sobie to makro na zasadzie wywołaj mi go w pliku 1234.csv...
Jeżeli chodzi o dynamiczną zmianę samego arkusza nie było by problemu ale tobie chodzi o zmianie ścieżki a właściwie nazwy pliku. Właściwie nie ma formuły excelowskiej by to uzyskać. ADR.POŚR() sobie z tym nie poradzi. A właściwie innej wbudowanej funkcji nie ma. Pozostaje tylko makro lub .... inne "pobranie" danych Jeżeli zdecydujesz się na makro to...
Jeżeli nie ma takiej możliwości, to będę wdzięczny za pomoc przy makro Jak widać w Twoim pliku jest on naszpikowany makrami korygującymi zapis czasu :D w takim układzie proponuję dodać tylko jedno makro (w module uniwersalnym), które podsumuje Ci wszystkie komórki H1 z analizowanego miesiąca - wybierasz np. arkusz "lipiec - suma" i uruchamiasz kod...
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Zgadzam się ze zdaniem kolegi Prot . Po jakimś czasie uzbiera się tych kopii tyle, że zrobi się bałagan. Wg mnie, kopię takiego zestawienia można zmieścić w jednym wierszu arkusza (jednej linijce pliku tekstowego). Do podglądu/wydruku archiwów wystarczy odwrócić makro zapisu + jakaś zgrabna wyszukiwarka/filter. Jeśli z jakiegoś powodu będzie potrzebny...
Dzień dobry, To makro tylko odczytuje plik csv, więc jeśli są w nim jakieś przekłamania, to zapewne powstały w momencie zapisu tego pliku i tam trzeba szukać przyczyny. Proszę otworzyć sobie ten plik csv w Notatniku i zobaczyć co w nim jest zapisane. Pozdrowienia.
Spróbuj takie makro: [syntax=vbscript]Public Sub TworzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Dim JPlik As String Dim NPlik As String 'Sciezka = ThisWorkbook.Path & "\" OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder = Range("A" & i) NPodFolder...
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
Mam bazę klientów, z których po dwukrotnym kliknięciu dokonuję wyboru konkretnych potrzebnych klientów. Następnie po uruchomieniu makra (ZAPISZ I DRUKUJ) chciałabym aby drukował się dokument, który tworzy się w Arkuszu2. Chciałabym także, aby dokument z arkusza2 zapisywał się do pdfa. I tu pojawia się problem. Działa wszystko poza zapisem pdf. Załączam...
Dziękuję. Wszystko działa. Zamykam Dodano po 8 Pojawił się jeszcze jeden problem. Makro nie chce zapisać do pliku xlsm Jest na to jakiś sposób? Dodano po 13 Przebrnąłem przez problem z zapisem do xlsm dodając: FileFormat:=xlOpenXMLWorkbookMacroEnable... Jednak napotkałem na kolejny problem, makro kopiuje arkusz ze wzoru z obsługą makr jednak nie kopiuje...
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
Hmm, a może rozpatrzyć możliwość bez "pośrednika"? Tzn makro w Wordzie importuje bezpośrednio do Excela (wyłącznie te nowe dane)? Będzie znacznie szybciej... No, ewentualnie zostawić zapis do csv jako swego rodzaju backup.
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
Witam potrzebuje pomocy, a mianowicie - Mam makro, które zapisuje mi ładnie tak jak chce aktywny arkusz do pliku csv. Tylko zapisuje mi do pliku w konkretnym miejscu wpisany w kodzie z konkretną nazwą, a ja chciałbym wybierać miejsce zapisu i nazwę pliku. Próbował skorzystać z InputBox ale wywala jakiś błąd. Jak zmienić poniższy kod tak by zapisywał...
Witam, prośba o pomoc uruchamiam makro z poziomu sap które wyowłuje odpowiednią transakcje z danymi np mb52 niestety nie wiem za pomocą jakiego kodu uzyskane dane można zapisać do postaci pliku excel chodzi mi o kod VBA który zachowywałby sie analogicznie jak wywołanie manualne z poziomu sapa:List-> export->spreadsheet->format pliku + nazwa ścieżki...
A czy potrafisz pobrać to nazwisko do jakiejś zmiennej? Jeżeli tak to wystarczy je dokleić do nazwy pliku do którego makro zapisuje. Jeżeli trzeba wydzielić pierwsze słowo to też nie powinien byc kłopot. Może pokaż co już masz, jak wygląda makro, będzie łatwiej.
makro nie działa poprawnie :cunning: :?: Makro być może nie spełnia Twoich oczekiwań :D , ale z reguły działa poprawnie tj. zgodnie z zapisem kodu VBA :please: Jeśli uruchamiasz kod z pliku Personal - to dla makra to jest ThisWorkbook i jego arkusze są w stanie Active :!: Musisz tak dostosować kod, żeby jednoznacznie wskazać w jakim skoroszycie i w...
Witam, przejdę od razu do mojego problemu / pytania be zbędnego tłumaczenia się, że jestem tu nowy i nie mam doświadczenia w pisaniu Makr :) Na początek może cały zapis, który utworzyłem: Sub Zapisz() Dim Sciezka As String, Nazwa As String Nazwa = ActiveSheet.Range("Nazwa"&... StaraNazwa = ThisWorkbook.Name Sciezka = ThisWorkbook.Path...
Zapytam jeszcze raz JAK WYŁĄCZYĆ OKNO O ISTNIEJĄCYM DOKUMENCIE PRZY ZAPISIE! Napisałem makro które ma zapisywać kilka pól w kilka miejsc. Więc zapisz lub autozapis nie rozwiązują tego problemu.
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
ActiveDocument.Tables(1) '1' to indeks tabeli w dokumencie. Dodano po 5 P.S. Markoz, to nie VBA Excel, a VBA Word... Cells(NumerWiersza, NumerKolumny).Value = Zapis 'Cells', to obiekt z Excela. W Word jest obiekt 'Cell'.
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
Zamiast msgbox użyj to jak ścieżki do pliku.
Witam serdecznie! Chciałbym stworzyć makro, które będzie generowało nowy plik z wybranymi danymi. Tak jak w załączonym pliku powiedzmy że 2 tabele to dwa różne raporty. Chciałbym żeby za jednym kliknięciem dane się zapisały jako plik raport 1 i raport 2. powiedzmy na pulpicie. Fundament jakoś udało mi się stworzyć ale stanąłem w miejscu i bardzo proszę...
makro zapis pliku makro excel zapis pliku makro pliku
mierniki analogowe esp8285 tasmota numer rozdzielni
firmware 17mb185 firmware 17mb185
Wymiana linki stalowej rolety w ciężarówce: krok po kroku Aktualizacja firmware TP-Link bez dostępu do ustawień
