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...
hmm dalej nic, A nie masz czasami w tym "e5" jakiegoś znaku typu (<>?/")?
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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
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")...
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]
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
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...
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.
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Przydałby się przykładowy plik, żeby chcący Tobie pomóc, nie musieli robić tego za Ciebie.
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...
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...
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.
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")...
... W mojej ocenie makro zapisujące powinno na końcu czyścić wpisy poprzedniej zmiany ... Słuszna uwaga ... ale nie za każdym razem, czyli kod w innym miejscu. Czyścić powinno się komórki tak, by wykonała to ostatnia zmiana, która będzie tam coś wpisywać, tak aby przed swoim wpisem miała informację o tym, że poprzednicy w ogóle coś wpisywali (bo może...
Po zapisie do Flash centrala z reguły się restartuje.
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...
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...
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 :)
Po dodaniu w 2 linijce jak wyżej mam " invalid use of prioerty" U mnie działa
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ź...
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...
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.
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...
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ą...
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
No to na załączonym obrazku powinieneś mieć Arkusz3.Name Nie wiem, skąd wykombinowałeś to Arkusz3.cennik - tzn. domyślam się skąd, ale tak jest źle.
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.
Zapis do wielu rejestrów to 16, nie 10. Możesz napisać sobie makro.
Makroinstrukcja jest 'wklejana' a podprocedura wykonywana poprzez skok. Makro jest szybsze (mnie instrukcji, nie trzeba nic zapisywać na stosie) ale kod wynikowy jest dłuższy (bo za każdym razem jest umieszczany).
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]
Dodać nowy moduł w VB, wkleić do niego kod i uruchomić. W celu ułatwienia użytkowania, można dodać przycisk uruchamiający makro do wstążki - nie posiadam wersji 2016 ale dla 2010 to należy zrobić tak: Opcje programu Outlook -> Dostosowywanie wstążki. W oknie po lewej - Wybierz polecenia z: Makra (zaznaczasz właściwą procedurę). W oknie po prawej...
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)
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...
(at)zbysiomysio Zobacz jak się pisze pulpit.
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ć...
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...
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 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.
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"...
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ć...
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????
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
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ąć.
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...
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...
[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...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
Nie widzę sensu w działaniu tego kodu, gdyż za każdym przebiegiem pętli zmienia się zawartość 4 tych samych komórek. Zakres C3:C6. Poza tym nie wiem po co w pętli wyświetlanie informacji MsgBox. Zapytam więc: co chciałeś osiągnąć pisząc to makro?
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
Napisalem wszystko od nowa. Makro testuje czy folder istnieje jesli tak - zapisuje w nim nowy plik pod warunkiem ze plik juz sie tam nie znajduje, jesli nie - tworzy nowy folder i zapisuje w nim nowy plik - nowy miesiac. =INFO("Directory") nie dzialalo dobrze w moim przypadku gdyz nie zawsze pokazywalo prawidlowa lokalizacje. Co o tym myslicie? Czy...
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...
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...
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...
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...
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...
wtedy nie zastap tylko w makro FormulaLocal
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.
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...
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...
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\"...
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";...
no to by było coś, ale nigdy nie słyszałem o tym żeby używać SQL-a w Excelu
Słabo szukałeś. Tu masz przykład z "wordowskiej" pomocy visual basica jak się wstawia TextFrame (troszeczkę przerobiłem). Znalazłem poprzez nagrywanie makr. Owszem nie można nagrać wstawiania ramki ale jeżeli jest już wstawiona można do niej wejść i coś napisać (to się nagra). I po nitce do kłębka... With ActiveDocument.Shapes.AddShape(msoSh...
makro zapis excel makro zapis zapis pliku makro
philips match naprawa agregat podaruj punkty
naprawa pendriva tauron wniosek
Brak komunikacji ze sterownikiem silnika Opel Vivaro 2.5 - diagnostyka i rozwiązania Uszczelki do silnika Lombardini V490/LA490 – gdzie kupić, numery katalogowe, zamienniki
