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]
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
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....
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...
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...
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...
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...
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.
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ć ?
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...
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Przyciski muszą być. Proponuję ponowną instalację programu DloadX. Ewentualnie próba uruchomienia z innego komputera. Dodano po 49 Ok, zasugerowałem się tym, że mowa o nowym ETHM-1 Plus (a nie o starym ETHM-1). W starym ETHM-1 (bez plusa) faktycznie przycisków (odczyt/zapis) nie ma, natomiast makra można wyeksportować i później w apce mobilnej zaimportować...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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]
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.
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
Witam. Czy jest możliwość aby za pomocą makra skonfigurować plik worda aby drukował się automatycznie przy zapisywaniu pliku? Wklej to do thisdocument zapisz i zamknij i otwórz. [syntax=vbscript]Private WithEvents App As Word.Application Private Sub Document_Open() Set App = Word.Application End Sub Private Sub App_DocumentBeforeSave(ByVal Doc As Document,...
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).
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...
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
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...
Kolumnie T jest właśnie ta lista co w pliku testowym była w H
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")...
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...
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...
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ąć.
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...
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
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ź...
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...
Zamiast msgbox użyj to jak ścieżki do pliku.
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.
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...
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...
Witam Gotowe rozwiązanie było by super. Pytanie jak z Excela wydrukować plik word aby zarejestrowało to makro.
W załączeniu przykładowy plik
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ą...
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\"...
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ć"...
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...
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", _
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"...
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
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...
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...
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
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ć...
'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...
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...
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...
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...
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 chodzi mi o nazwę pliku. Nazwa pliku jest zaczytywana z komórki H3. Chodzi mi o lokalizację na dysku.
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...
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 :)
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...
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 :)
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
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...
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ą...
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
Dzięki wielkie !!! :) Wszystko już hula poza tabelami jednowierszowymi. Żeby obejść pytanie o zapis dałem po prostu .Close False
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.
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...
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...
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_"...
Fakt trochę źle skróciłem ścieżkę zapisu. Ale po poprawieniu i dodaniu AccessMode:=xlShared wywala błąd przy wykonywaniu makra. Chyba ten parametr AccessMode:=xlShared gryzie się z tym że zapisywany plik ma w sobie makro. https://obrazki.elektroda.pl/8228604800_...
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, 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...
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...
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.
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...
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...
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.
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...
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ł...
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'.
Przyznam że nie wiem co jeszcze doradzić więc będę strzelał. Nie dopuszczam opcji że plik a właściwie makro potrzebuje jakiegoś zewnętrznego identyfikatora do działania (pliku/zapisu w rejestrze). Czegoś w rodzaju pieczęci np w rejestrze i jeżeli ktoś wcześniej nie "opieczętuje" siebie/swojego komputera to makro nie będzie się uruchamiać (Robiłem dla...
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...
Ktoś coś podobnego rozwiązał poprzez dodatkowy plik z makrem uruchamiany w harmonogramie zadań.
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ę...
Witam! Nakazano mi zrobić arkusz zamówienia. Mam już praktycznie gotowy. Niestety jestem zielony z Excela, całkiem, jeśli chodzi o jego zaawansowane funkcje. Czytałem trochę po forach, na tym również, jednak tam już ludziska mają pojęcie o tworzeniu makr, ja niestety nie wiem jak się do tego zabrać. Mam w formularzu zamówienia komórkę "Zamawiający",...
makro excel zapis pliku makro pliku zapis makro
turbo diesla benzyny prawy przycisk myszka lm350 ograniczenie prądowe
zderzak naprawa zderzak naprawa
Kabel minusowy kierunkowskazów w skuterze 4T - lokalizacja Radiowy sygnał stereo FM: znaczenie 15 kHz