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]
No tak. Miałeś ActiveSheet. [syntax=vbscript]Sub Drukuj_jezeli() Dim Arkusz As Worksheet For Each Arkusz In Sheets With Arkusz If .Name <> "Dane z zam" And .Name <> "Arkusz1" Then If Application.WorksheetFunction.CountIf(.R... ">0") > 0 Then .PrintOut .ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "D:\test\pdf\" + .Range("f7")...
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
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...
Dziękuję koledze LordBlick, poprosiłem go o odblokowanie tematu, bo wydaje mi się, że mimo pozornej prostoty problemu warto się nad nim chwilę zastanowić. Zanim przejdę do odpowiedzi na post #3, powiem dwa słowa o makrodefinicjach. Wiele osób z nich chętnie korzysta, w pokazanym wyżej przykładzie zdecydowanie lepiej posługiwać się makrami LED_ON i LED_OFF...
Może i Makrem byłoby łatwiej ale.....poległem. No to masz z instrukcją "if" :) (dodane do twojego kodu) [syntax=vbscript]Private Sub CommandButton4_Click() On Error Resume Next 'po błędzie kontynuuje dalej Application.ScreenUpdating = False DatExample = Date Dim s As String s = "C:\Users\jasuc\OneDrive\Tamex Żwirkop\Kopia Dane Tamex\PDF\" y = 2 With...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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:=...
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...
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...
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....
Nie wiem, czy się rozumiemy... [syntax=vbscript]Sub ZapiszPlik() ActiveWorkbook.SaveAs Filename:=[H1] & [H3], FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False End Sub [/syntax]
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
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 <> ...
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[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...
Poproszę linijkę bez komentarza, bo powyższy zapis jest błędny.
Witam, Zielony z makro szukam pomocy :-) Uprościłem pytanie, poszukuję makra które uruchamiałoby się automatycznie po wprowadzeniu zmiany w arkuszu dane C3, makro powinno zapamiętać i zapisać poprzednią wartość C3 do arkusza zestawienie C5, przy kolejnym wpisie do C3 w danych, kolejny zapis w C6 w arkuszu zestawienie itd. Mógłby ktoś pomóc w stworzeniu...
Podmień Sub na zdarzeniową: [syntax=vb]Private Sub Document_Open()[/syntax]
Pierwsza zmiana wpisuje noc (zapisz), druga zmiana wpisuje rano (zapisz)... A co się dzieje z wartością komórki "noc" po pierwszym zapisie :?: a co przy drugim zapisie ? :D W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany np zapisu czasu przez poszczególne zmiany można wykorzystać Twój pierwotny kod w postaci: [syntax=vbscript]Sub...
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...
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).
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
Podmień na [syntax=vbscript]NowaNazwa = ThisWorkbook.ActiveSheet.Range("A1").Val... & ".xlsm"[/syntax]
Jak zmienia się którykolwiek TextBox uruchamia się procedura TTextBox. Jak wykonuje się makro w którym jest zapis do TextBox uruchamia się ponownie i tak ciągle. Proponuję zostawić Label, tu też można wyśrodkować tekst. W załączniku poprawiony Label i kod od Private Sub ListBox12_Change(), bo nie zawsze zwracał poprawne dane.
Przydałby się przykładowy plik, żeby chcący Tobie pomóc, nie musieli robić tego za Ciebie.
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Witam, Mam problem z makro. Tworząc pewien raport w każdy poniedziałek filtruje daty w kolumnie Y dla poprzedniego tygodnia. W formularzu Excel umieściłam w 2ch komórkach następujące funkcje; Y3 =dziś(), Y2 =dziś() -6, a następnie w filtrze niestandardowym wybieram większy lub równy Y2 i mniejszy lub równy Y3, aby uzyskać interesujący mnie przedział...
żeby skopiował wartość innej komórki Cells(x, 2) = InnaKomorka;) Kolego, jak poprzednim razem, proszę pisać konkretnie. Dodano po 35 Łukaszu, ja Ci nie pomogłem tym wpisem. Pewnie nie zauważyłeś średnika na końcu.:) Napisz konkretnie, co makro ma robić w przypadku, gdy w 'Arkusz2', w kolumnie D znajdzie się zapis 'VW', to Ci przerobię powyższe makro.
A jakby baza losowań z czasem okazała się nieaktualna to jak temu zaradzić? Co rozumiesz pod pojęciem "nieaktualna"? Bazę pobieramy z http://www.mbnet.com.pl/dl.txt" jeżeli będzie na innej stronie należy w makro poprawić zapis. Mogę to zrobić by się nie "grzebać" w makro a pobierać dane z komórki gdzie wpisze się ścieżkę dostępu do bazy. Jednak nie...
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.
Udało sie GetData(moc_a, "MODBUS TCP/IP", 4x, 86, 1) wynik_a = moc_a SetData(wynik_a, "Local HMI", LW, 0, 1)
Podepnij sobie pod przycisk "Zapisz" następujące makro [syntax=vb]Sub zapisz_karte() Dim sFlnNm As String 'nazwa pliku z komórki A1 Dim sPath As String 'ścieżka zapisu na razie taka sama jak pliku źródłowego Dim sWrbkFrm As String 'nazwa pliku docelowego z rozszerzeniem sPath = ThisWorkbook.Path & "\" sFlnNm = Range("A1").Value If sFlnNm = "" Then MsgBox...
Widzę, że lubisz chyba jak się Ciebie ciągnie za język. :D Chętnie bym się w tym temacie doedukował jak coś wskażesz. Jak dla mnie śp. pamięci "kozak vba" "Charles Pearson" http://www.cpearson.com/excel/optimize.h... ps widzę że nie którzy stosują zapis np. [A1] łatwiejszy zapis ale jak piszą wolniejszy.
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.
Po zapisie do Flash centrala z reguły się restartuje.
E tam "zlituje" zaraz ... zwykłe "sie mu zechce" i tyla ... bo jak się zagmatwy"wowawoło"wuje proste sprawy, to ludziskom innym się nie chce ... Drugie marko ma drukować wszystkie arkusze z skoroszytu "akrusz ocen" ale przez zapisam makro musi poprosić o podanie ścieżki zapisu jak i makro musi dopisywać numerek przy każdym zapisie (tak żeby nie nadpisać...
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")...
To jest trochę, moim zdaniem , źle przez Satela zrobione ale musisz zrobić tak : w DloadX w zakładce ETHM1-Plus>GuardX /Integra Control musisz stworzyć Makro załączające dane wyjście . Potem , oczywiście po zapisie do centrali , importujesz z poziomu aplikacji na iPad / iPhone makra. Następnie z poziomu ustawień kamery musisz dodać to wyjście którym...
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,...
Na pasku górnym otwierasz Makra - Nowe Makro. Wpisujesz nazwę elementu i OK. Otwiera się okno Edytor Elementów. Tam rysujesz cały element od podstaw, wybierając kształty, dodajesz wyprowadzenia (PinDown, PinLeft itp.) numerując je i wprowadzając nazwy. Można też przerobić istniejący element. Jak skończysz, klikasz OK i element pojawia się na obszarze...
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
Pomoże ktoś??
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 :)
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...
Głównym założeniem makra miał być podział dokumentu na strony i zapis ich w oddzielnych plikach PDF. Wszystko pięknie i ładnie do momentu...... Cześć tabeli na stronie przeskoczyła na stronę nastepną. jak niżej https://obrazki.elektroda.pl/6132375300_... Po przejsciu makra wygenerowana zostaje fizyczna strona z końcówką tabeli. Wszystkie...
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ź...
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.
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]
Brak załącznika. Podobny temat [url=https://www.elektroda.pl/rtvforum/t...
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ć ?
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ą...
Zapis do wielu rejestrów to 16, nie 10. Możesz napisać sobie makro.
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
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".
Zapisanie etykietę w wordzie z roszerzeniem.doc lub .docx nic nie daje. Nie mam pomyslu jak mozna obejść "etykietę" aby makro dzialalo. Nie sadze aby twórca systemu chcial zmienić zapis.
proponuję zastosować zarówno przed każdym zapisem i odczytem jak i po zapisie/odczycie eepromu makro eeprom_busy_wait() które jest tym samym co while(eeprom_is_ready()==0)
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.
[syntax=vb]Sub zapisz1() numer = InputBox("Podaj numer kolejny") NewFilename = numer & "-2015 " & ".xls" ActiveWorkbook.SaveAs Filename:=NewFilename End Sub[/syntax] lub [syntax=vb]Sub zapisz2() ActiveWorkbook.SaveAs Filename:="FORMULARZE" & ".xls" End Sub[/syntax]
[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
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...
Nagraj sobie makro zapisywania. Poniżej zarejestrowane (bez korekty) dwa: "Zapisz jako" oraz Ctrl+s (zwykłe zapisz) http://obrazki.elektroda.pl/3841968300_1... i wybierasz z listy. Aby oprogramować komórkę/zakres potrzebujesz procedury zdarzeniowej [url=http://dzono4.w.interiowo.pl/kurs/d... Tu należy warunkowo wywołać...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Zamiast msgbox użyj to jak ścieżki do pliku.
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ąć.
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
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
Z czego wynika niespójność zapisu danych w ostatnim arkuszu? W wierszu drugim są te dane zapisane koło siebie, kolumna po kolumnie. W wierszu trzecim między każdą kolumną jest przerwa. Czemu tak jest? Jeśli makro ma sortować wyniki z lotto to można je uprościć, nie musi liczyć do 100 pozycji w wierszu, tylko do sześciu, do tego nie musi liczyć na liczbach...
Witam Mam pewien problem, a mianowicie na FTP sieciowych mam arkusze excelowe wzbogacone o makra które kopiują i wklejają dane z tabeli do tabeli w innym arkuszu tgz. głównym. Bo zapisie makro zapisuje i zamyka obydwa arkuszę, jednak zdarza się sytuacja że inny użytkownik może przeglądać arkusz główny i mieć go odpalonego w tym czasie przy próbie zapisu...
Jako ścieżkę i nazwę (z A1) podstaw[syntax=vb] Filename:= Environ("UserProfile") & "\Desktop\" & Range("A1") & ".pdf"[/syntax]
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"...
Wyjścia nie muszą być przydzielone do grup! Wyjścia powinny być w tym przypadku ustawione na przełączniki mono lub bi. Nie zapomniałeś wpisać hasło w definicjach (istniejące w systemie - przypisane do użytkownika z uprawnieniami sterowania) albo zaznaczyć pytanie o hasło? Zawsze najpierw zczytuj dane z klawiatury a później nanoś zmiany i zapisuj do...
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
Witam Mam pytanie czy jest mozliwosc zaktualizowania makra? Posiadam Makro ktore wkleja jakies formuly w obszarze 100 kolumn i 100 wiersz, potrzebuje teraz wstawic dodatkowa kolumne mniej wiecej w polowie zakresu, Iteraz co zrobic aby zapisy makra rowniez sie przesunely o ta jedna kolumne, jest taka mozliwosc????
Witam. Próbowałem dziś poprawić conieco w manipulatorze INT-TSG więc połączyłem się przez ETHM-1 i odczytałem z centrali dane . Potem zgodnie z instrukcją instalatora Str10 Pkt.6.5 chce odczytać makropolecenia które są zapisane w manipulatorze ... niestety przycisku ODCZYT nima ... Ktoś wie co jest grane ? http://obrazki.elektroda.pl/7983272900_1...
Tym razem nie napiszę gotowca, lecz pół;) [syntax=vbscript]Function KolejnyNumerPliku(Katalog As String) As Integer Dim Plik As String Plik = Dir(Katalog & "*.xlsx") x = 1 While Plik <> "" n = Val(Plik) If n > x Then x = n Plik = Dir Wend KolejnyNumerPliku = x + 1 End Function Sub Test() MsgBox (KolejnyNumerPliku("C:\PlikiExcela\")) End...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
[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...
Witam proboje skompilować kod PDU z pewnego ebooka według mnie brakuje tutaj makrodefinicji #include ... tylko jakiej prosze o pomoc code char CPIN[] = "AT+CPIN=1643"; //wprowadzenie numeru PIN code char CHOOSEMEM[] = "AT+CPMS="; //wybór domy lnej ś lokalizacji pamięci code char ECHOOFF[] = "ATE0";...
PS. LicznikGodzin = (__TIME__ __TIME__ to predefiniowane makro które zwraca godzinę kompilacji w postaci ciągu znaków ASCII (w formacie "hh:mm:ss = 23:00:00"). I jak byśmy zrobili tak: czyli pobrali pierwszy element naszej tablicy znaków-> int cyfra = __TIME__[0] to w wyniku otrzymamy kod ASCII = 50 (2 w dec). A my "musimy" zamienić te 50 na cyfrę...
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...
Czyli 4 pierwsze bajty masz zapisane w EEPROM. Do odczytu służy makro eeprom_read_byte(), zaś do zapisu eeprom_write_byte(). Prawdopodobnie, nie analizowałem, błędy masz w warunkach... R
For i = 0 To UBound(PATH) Folder = Folder & PATH(i) & "\" If PATH(i) = "" Then CheckDir = Dir(FullPath & "Nowy" & Date, vbDirectory) If CheckDir <> "" Then MsgBox CheckDir & " - taki folder już istnieje" Else MkDir FullPath & "Nowy" & Date MsgBox "Utworzono nowy folder " & FullPath & "Nowy" & Date End If...
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...
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ść, 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...
Widzę, że wątek wisi od... zimy ;) Makro przy wydruku, czy zapisie wymaga zdarzenia. Tu się w OO sprawa komplikuje. O wiele łatwiej będzie napisać makro drukowania dla przycisku i w nim umieścić numerację...
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...
wtedy nie zastap tylko w makro FormulaLocal
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...
ActiveCell.FormulaR1C1 = _ "=VLOOKUP( RC ,' tu masz błędny zapis
A dlaczego warunkujesz działanie działanie Textboxów w Arkuszu1 od stanu filtrowania w Arkuszu2 (który jest całkowicie pusty) ? Popraw makro w zapisie "Arkusz1" zamiast "Arkusz2" i będzie działać :D
Powstaje tylko A, B, C, D a dalej nie idzie wywala się. Dodano po 5 Dopisałem kolejne E, F, G ale plik zatrzymuję sie na zapisie i podziale D.
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\"...
Potrzebuję zrobić przycisk który będzie odejmował od czasu zapisanego w komórce 1 minutę. W komórce zapisany jest stempel czasowy czyli data z godziną wydarzenia. Format zapisu rrrr.mm.dd gg:mm:ss. Zrobiłem przycisk który wstawia datę i czas aktualny, ale czasem potrzebna mi korekta i potrzebne są przyciski odejmujące 1 minutę, 2 minuty, 3 minuty.
Aby poprawnie utworzyć nazwę arkuszową w VBA trzeba użyć metody Names.Add Można sobie nagrać stosowne makro i wtedy otrzymasz zapis kodu: RefersTo , który jest drugim parametrem w wywołaniu metody Names.Add [syntax=text]ActiveWorkbook.Names.Add "kod", "=L2!$B$13:INDEX(L2!$B$13:$B$44,COUNTA(L... [/syntax]Tekst formuły musi być podany w wersji...
no to by było coś, ale nigdy nie słyszałem o tym żeby używać SQL-a w Excelu
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...
excel makro zapis makro zapis pliku makro excel zapis
pioneer mikrofon ustawić trzeszczenie zasilacza arduino przycisk funkcji
zderzak naprawa zderzak naprawa
Sound Pad - Piszczenie dźwięku przy uruchamianiu Whirlpool ADG875 - Błąd F6 E4 - Przyczyny i Naprawa