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...
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]
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D obecnie stworzyłem opcje nazwy (pozostaje niestety niezmienna) oraz aktualne daty. Do wyskakującego okienka, abym mógł wpisać własną nazwę pliku nadal nie doszedłem. Obecny zapis pliku to [syntax=vbscript] hDir "C:\Users\Paweł\Desktop" ActiveWorkbook.SaveAs Filename:="C:\Users\Paweł\Desktop\format...
witam, czy moge jeszcze raz prosic o pomoc z makrem powyzszym? mam juz makro ktore po czesci robi to co chce, czyli zapisuje excela w formacie pdf, zapisuje je w okreslonej lokalizacji, po dokreslona nazwa i drukuje. teraz chcialabym dolozyc do tego wyslanie maila z tym pdfem na adres mailowy, ktory bedzie zawarty w aktywnej zakladce np w polu h5, a...
potrzebuję aby nowy folder był tworzony w tym konkretnym folderze Jeśli w komórce A1 będzie wprowadzona ścieżka aktywnego pliku z makrem :idea: (np. =INFO("katalog") :D ) to możesz tworzyć nowe podfoldery np. wg takiego kodu :spoko: : [syntax=vbscript]Sub StworzFolder() Dim FullPath As String Dim CheckDir As String Dim PATH As Variant Dim Folder As...
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
Ja bym zastosował to http://www.pentaho.pl/kettle-etl.html Nie jest potrzebny cały pakiet a tylko "spoon" i ewentualnie "pan". Spoon wykonuje transformacje, czyli w tym przypadku odczyt z kiku xls i zapis do jednego xls. Pan automatyzuje wykonanie transformacji, może nie być tutaj potrzebny. Jaka jest wyższość nad makrem excelowym? Przede wszystkim...
Witam Potrzebuję skrócić następujący kod w celu lepszego wyglądu. [syntax=vbscript] Sub OdczytajWpistest() Dim Zapis Dim Kiedy Dim NumerWiersza, NumerKolumny Dim tablica Dim wartosc As Variant NumerWiersza = 1 NumerKolumny = 30 Range("ad:ad").Clear Open "C:\wpisy.txt" For Input As #1 Do While Not EOF(1) Input #1, Kiedy Cells(NumerWiersza, NumerKolumny)...
Witam, Mam bazę danych w excelu, w jednym pliku mam dane z których kożysta makro w innym pliku. Chciałem zabezpieczyć plik z danymi przed wprowadzeniem zmian bezpośrednio przez użytkownika (nie uprawnionego). Jednocześnie makro w drugim pliku powinno mieć możliwość zapisywania zmian w pliku bazy. Z bazy może kożystać kilka osób, każda ma u siebie osobny...
Zastępowanie prostej formuły makrem według mnie nie należy raczej do ułatwiania sobie życia... Tak wygląda zapis w komórce Twojej formuły: =JEŻELI(LUB(CZY.PUSTA(H8);CZY.PUSTA(H9))... A tak mojej funkcji: =PUNKTY(H8;H9) Zauważ, że do zapisu tej jak uważasz prostej formuły użyłeś aż 3 funkcji , 12 nawiasów okrągłych,...
Cóż, tak jak pisałem - zapis adresu jako: otwartego pliku o nazwie 1.xls Spróbuj najpierw otworzyć plik źródłowy (jeden lub kilka), potem ten plik z makrem to się okaże, że zaktualizował łącza tylko w otwartych plikach. Chcąc się odnieść do nieotwartego pliku, moim zdaniem musisz zawsze podać pełną ścieżkę. Nie mam pomysłu jak to zrobić w formule (o...
Podałem makro które zapisane w pliku robi kopię zapasową w innym katalogu. Jeśli kopia pliku ma być zapisana w tym samym katalogu to do swojego makra proponuję dopisać: Dim katalogZapisu As String ' to wpisujemy na początku deklaracja zmiennej katalogZapisu = ThisWorkbook.Path ' odczytamy katalog w którym jest zapisany otwarty plik ThisWorkbook.SaveCopyAs...
[syntax=vbscript]ThisWorkbook.SaveAs Sciezka & Nazwa, FileFormat:=xlOpenXMLWorkbookMacroEnable...
Witam, Jestem mniej niż początkujący, ale próbuję :) Potrzebuję makro, które zapisuje plik excel w formacie ddmmrrrx, gdzie "x" jest wartością komórki z innego arkusza. Docelowo ma zapisywać na dysku sieciowym w określonej lokalizacji, a później zamyka plik bieżący nie zapisując zmian. Na chwilę obecną mam coś takiego: [syntax=vbscript]Private Sub CommandButton2_Click()...
Witam, usiłuję przerobić makro zapisujące plik pod określoną nazwą na dwa inne makra, które: 1. zapisuje plik pod określoną z góry nazwą, 2. zapisuje plik pod predefiniowaną nazwą (część jest ustalona, resztę wprowadza się w wyskakujące okienko). Oto kod, który usiłuję przerobić: [syntax=vb] Sub zapisz_jako_cesja_0_5() Call zapisz_arkusz("nadstany_0,5-wydr")...
Witam, probuje stworzyc makro, ktore zapisywaloby dany plik excelowy pod nazwa danego arkusza np. na pulpicie w folderze "TEST" ale w formacie tekstowym Unicode. https://obrazki.elektroda.pl/3260048400_... ponizej moje agrane makro, z niedoskonalosciami: Sub save_unicode() activeWorkbook.SaveAs _ Filename:="C\users\desktop\TEST\Report1....
Witam, Mam pytanko do wszystkich fachowców z Excela, jak powinno wyglądać makro które stworzy mi kolejny plik, i skopiuje do niego dane które mam obecnie zaznaczone, dobrze by było aby w pliku głównym stworzyło mi również hiperłącze do nowego pliku, tak aby w razie ewentualnej edycji danych zmieniły się one również w pliku który powstał podczas owego...
Witam, jestem tutaj nowy i potrzebuję pomocy osób bardziej doświadczonych. Mój problem polega na tym że potrzebuję po wcisnięciu buttona aby utworzyło mi nowe zeszyty z nazwą pobraną z innego arkusza niż ten na którym jest przycisk znalazłem takie rozwiązanie : Sub CreateWBs() Dim lRow, x As Integer Dim wbName As String lRow = Range("A"...
Witam, łamię sobie głowę jak napisać makro, aby kopiowało mi kolejno komórki z jednego pliku do innego. Otóż w pliku Zeszyt1 mam kolumnę cyfr A1:A100. W pliku Zeszyt2 mam w komórce D1 formulę przykładowo =C1*100. Potrzebuję utworzyć takie makro, które pobierało by kolejno wartości z Zeszytu1 kolumny A1:A100 i kopiowało do pliku Zeszyt2 komórka C1. Następnie...
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...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
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...
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....
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]
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...
Podmień Sub na zdarzeniową: [syntax=vb]Private Sub Document_Open()[/syntax]
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Otwórz plik na komputerze na którym działa. Jak się otworzy wciśnij Alt+F11 Jeżeli po prawej stronie nie widzisz okienka eksplorera projektów wciśnij Ctrl+R Odszukaj tam VBAproject(personal.xlsb) Naciśnij obok niego plusik (rozwinie się projekt) Otwórz "folder" modules "złap myszką" moduł w którym są twoje makra i przeciągnij na projekt twojego 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.
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...
Niestety znowu problem z brakiem makr w pliku nagłówkowym SysTick został całkowicie pominięty. Chciałem więc prosić o poradę jak zrealizować na przykład taki zapis : Błagam... Po prostu błagam! Tego nie da się spokojnie czytać... Makra są w pliku core_cm4.h - wystarczy poszukać, a nie z każdym "problemem" na forum od razu. 4\/3!!
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.
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
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
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...
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...
Cześć, Mam problem z poniższym makrem, które: po otwarciu pliku tworzy jego kopię, a następnie tę kopię zapisuje z odpowiednią nazwą we wskazanej lokalizacji, po czy, zamyka tę kopię, a plik "macierzysty" (początkowo otwierany) wciąż zostaje otwarty i w nim pracujemy. Służy mi to do tworzenia kopii zapasowej przy każdym otwarciu pliku. Mój problem polega...
Funkcja ADR.POŚR pobiera dane tylko z otwartego pliku, więc tu raczej się nie nada. W Excelu można to zrobić odpowiednim makrem, ale dostosowanym do konkretnego problemu. Twój zapis formuł wskazuje jednak, że to nie jest Excel. Podaj dokładnie jakiego programu chcesz użyć i więcej szczegółów o tych danych (czy to są pojedyncze komórki z każdego pliku,...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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...
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ąć.
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).
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ć ?
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]
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ć...
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ź...
SaveAs nie powinno usunąć już zapisanego pliku, ale może go zapisać (wersję po zmianach) gdzie indziej. Jeżeli popełnisz błąd to plik "znika". Proponuję samodzielne namierzenie w którym miejscu w kodzie pojawia się problem i dopiero wtedy poszukać pomocy. Nie jest to takie trudne, ale wymaga systematyczności. Musisz znaleźć miejsca, gdzie coś się z...
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.
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 mały problem z makrem a mianowicie z zapisywaniem pliku pod nazwą podaną w komórce. Szukając w necie znalazłem fajny kod który ogólnie działa ale nie do końca tak jak bym tego oczekiwał a mianowicie zapisuje plik pod nazwą z komórki tylko wtedy kiedy jest ona wpisana tam ręcznie Ja natomiast chciałbym uzyskać tą nazwę poprzez odpowiednią formułę...
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", _
Kolumnie T jest właśnie ta lista co w pliku testowym była w H
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.
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
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...
zapis pomiaru pliku zapis pliku muzycznego zapis danych pliku
ekspres krups konserwacja włącza wyłącza grundig pralka candy zablokowany bęben
linka bramy technicolour cga2121
Epson Stylus SX425W – pełne sterowniki, instalacja, Windows, macOS, Linux Panasonic CQ-LV1320L schemat serwisowy PDF darmowy, czytelny, instrukcja naprawy
