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]
Replace, psze Pani, Replace...
- Pierwsza opcja - Activesheet.Paste - ustawiłem tak już na samym początku, ale z racji na ten błąd kombinowałem z wklejaniem specjalnym. Niestety żaden z wariantów nie pomógł - Druga opcja - formatowanie komórek - świetny pomysł - okazało się że plik źródłowy posiada zapis ogólny - trzeba go było zamienić tylko na liczbowy. jednak przy otwieraniu pliku...
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...
Dlaczego usunąłeś Environ? Tak jest uniwersalnie. [syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator...
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 <> ...
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ć...
Proszę o pomoc w stworzeniu pętli w makrze, które będzie przekopiowywało komórki z Arkusz2 do Arkusz1 i zapisywało plik o nazwie B4 (jak w pliku) Wiem jak przekopiować komórki oraz zapisać plik w przypadku kiedy mam jeden wiersz w tabelce natomiast napotykam błąd przy stworzeniu warunków, w których będą generowane kolejne pliki. Na razie korzystam z...
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łę...
Męczę raport i próbuje napisać makro , które by działało następująco: Jeśli komórka w plik1 ma określoną wartość (np wtorek) to przenieść wartość komórki która jest pod nią (w następnym wierszu) do pliku2 w miejsce (X,Y). Proszę pomóżcie.
Witajcie, mam ogromną prośbę o pomoc w stworzeniu makra dla pliku. Męczę się z tym już kilkanaście godzin i niestety brakuje mi zwyczajnie wiedzy programowania VBA. Czy ktoś z Was mógłby mi pomóc stworzyć marko? Wkrokach opiszę co chciałbym, aby makro robiło. 1.Po naciśnięciu przycisku ( wiem jak przypisac marko do przycisku) odblokuj aktualny skoroszyt....
Witam Mam plik 1.xls. Jak napisać kod do makra, które otwierałoby plik z pulpitu (wskazany przeze mnie), kopiowałoby wszystko z pierwszego arkusza z kolumn A:N i wklejało wszystko do arkusza Dane do kolumn A:N w pliku 1.xls?
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...
Witam wszystkich . Otóż mam problem następujący potrzebuje makro ,które sortowałoby wyszukane rekordy po nazwie i kopiowało do innego arkusza , najlepiej żeby było z oknem do wpisania tego co jest potrzebne. Nie zawracałbym tym głowy gdybym miał chociaż elementarną wiedzę. Niestety jestem totalnym laikiem w tej kwestii a znajomość excella mam podstawową....
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....
Najpierw opis, potem problem. Przykładowy Excel 2013 o nazwie "POMOC" w nim są komórki scalone i nie scalone, niestety tak musi być. Przykładowo z folderze o nazwie "AAA" mam 2000 plików Excela o różnie zapisanych nazwach (imie i nazwisko, data itp.)a wyglądzie w środku jak plik o nazwie "POMOC".. W folderze "AAB" jest plik Excela o "BAZA". W "Bazie"...
Witam, mam problem z napisaniem makra w VBA. Mam plik o nazwie "program" w którym znajduje się tabelka (zał.3.). Mam początek kodu (zał.4.), ale nie umiem ruszyć dalej. Makro ma pozwolić na otwarcie dowolnej ilości plików Excela. Te pliki mają różne nazwy i nie da się określić jednej ścieżki do nich. Następnie w otwartych plikach we wszystkich arkuszach...
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 serdecznie, zaczynam dopiero zabawę z makrami w Excelu i potrzebuję pomocy. Chcę napisać makro, które: - otworzy wskazany przez użytkownika plik (nie jest znana jego nazwa i ścieżka więc potrzebuję aby pojawiało się okno wyboru pliku) - to jest w help excela) (np.: PLIK1.xls) - następnie skopiuje wybrane arkusze (nazwa arkuszy się nie zmienia,...
Witam, chciałabym utworzyć raport z automatycznym filtrem który posortuje dane według kryterium wybranego z listy rozwijanej a następnie przeniesie dane do nowego pliku pod nazwa wybranego kryterium czyli np kryterium to „market” „EMEA” i zapisze w tej samym katalogu gdzie plik z którego filtruje „bazowy”. Problem...
Witam Mam makro, które otwiera nowy plik i robi w nim pewne rzeczy. Będzie to robione na różnych komputerach. W jaki sposób można zrobić, aby nowo otwarty plik został zapisany na pulpicie użytkownika (mają oni różne systemy XP i 7) pod nazwą np. "blablabla" i nastąpiło zamknięcie pliku. Jeżeli plik o takiej nazwie byłby na pulpicie to powinien być zastąpiony...
Cześć Potrzebuje waszej pomocy. Obecne proste makro które mam: [syntax=vb] Sub Info() Sciezka = "Y:\BAZA INFO" Nazwa = Format(Now(), "yy.mm.dd.hh.mm") & ".xls" ActiveWorkbook.SaveAs Filename:=Sciezka & "\" & Nazwa ActiveWindow.Close End Sub [/syntax] zapisuje wypełniony plik w folderze BAZA INFO a dalej już musze sam przerzucać pliki do podfolderów...
http://obrazki.elektroda.pl/7823846400_1... http://obrazki.elektroda.pl/6238284000_1... http://obrazki.elektroda.pl/1959204700_1... http://obrazki.elektroda.pl/5977726900_1... Witam Proszę o pomoc, niestety nie mogę sobie poradzić z napisaniem makra. Nie potrafię ściągnąć plików do Excela,...
Witam, pracuje na excelu (Office 2010) jednak o makrach niestety nie mam zielonego pojęcia. Potrzebuję aby arkusz (baza danych) który ma wiele kolumn (A-AF) i "masę" wierszy (ok 20 tys.) dało się podzielić szybko makrem na oddzielne pliki wg. jednej wskazanej kolumny. Oczywiście podzielone pliki mają mieć nagłówek z pliku bazowego i nazwę wg. wartości...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
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]
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...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
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...
Witam, Makro ma za zadanie otwierać kolejne pliki Excel , pobierać dane i je zamykać ( bez zmian). Jak należy napisać procedurę zamykania aby, nie było pytań : 1. o zapisanie zmiany w pliku (proces pobierania danych z różnych arkuszy pliku) 2. o rezygnacji z umieszczenia pliku w schowku - to jest trudne. cel - makro ma się nie zatrzymywać. pozdrawiam,...
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
Drodzy Forumowicze, pracuję nad makrem, które plik csv z danymi dotyczącymi miesiąca (np. stycznia 2006 - załączam do postu ), "przerobi" na pliki dobowe o nazwie pliku w formacie rrrr-mm-dd. W kolumnie A załączonego pliku zawiera się czas i data w formacie: rrrr-mm-dd gg:mm (dane zapisywane są co minutę, dlatego występuje również godzina). Kolumna...
Witam, Akurat miałem do zrealizowania identyczne zadanie - prostą stronkę dla naszego bufetu (sam HTML, bez PHP czy bazy danych), z możliwością cotygodniowego aktualizowania menu. Stworzyłem w tym celu mini-CMSa w Excelu - użytkownik wprowadza tam poszczególne pozycje, klika przycisk, a makro tworzy z nich stronę HTML. Mogę się nim podzielić. :) U mnie...
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...
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)...
Najprościej będzie jak "małpka" nagra sobie całą procedurę dla wszystkich lub kilku arkuszy - a tam sprawdzi jak następuje przechodzenie z jednego arkusza do następnego i jak ustawione są właściwości exportu do PDF np. parametr IgnorePrintAreas: Ok, małpka w miarę zna ten parametr i wie co to obszary wydruku itd, ale sprawdziła . Były 4 testy: Plik...
Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa pliku była aktualizowana zgodnie z zawartością...
Witam. Mam wielką prośbę. Dostałem w pracy zadanie utworzenia wizualizacji do procesu walcowania taśmy wraz z raportowaniem przebiegu.. Wizualizację (napisaną w In-Touch z wykorzystaniem SPC) połączyłem za pomocą DDE z arkuszem excel'a w którym ma być tworzony raport z walcowania taśmy. I tu zaczyna się mój problem. Samą wizualizację napisałem bez problemu...
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Mam następujący kod, który działał na wersji Excela 2007 a wersji 2013 działa, ale wyskakuje następujący błąd(patrz załącznik), nie wiem jak mogę zmodyfikować poniższy kod. Jak mogę zmienić zapis utworzonego pliku na "xxx" (wzór zapisu pliku: "xxx_imie_nazwisko") . Dane znajdują się w komórce C6 do zapisu imienia i nazwiska. KOD VBA: [syntax=vbscript]Sub...
Witam Potrzebuje stworzyć makro które ma działać w następujący sposób: po kliknięciu w przycisk ma zapisać wybrany arkusz w PDF na pulpicie (super by było gdyby była jeszcze nazywa pliku była wartością tekstową komórki A1,zwykły tekst) i tu zaczynają się schody, ponieważ takie makro zrobiłem (tylko bez nazwy, ale to nie jest konieczne) ale działa tylko...
Dzień dobry, Mam taki problem, że staram się stworzyć makro, które pozwoli mi kopiować pełne wiersze z odpowiedniego zakresu (B7:AR7) z 8 plików składowych do pliku zbiorczego i ustawiać skopiowane dane w kolejności (w kolejnych wierszach pliku zbiorczego). Na obecną chwilę mam takie makro: Sub fileCollection() Dim bs As Range Dim bd As Range...
Witam potrzebuję pomocy z makrem, które bardzo ułatwi mi pewną pracę :) Mam dwa pliki excela, w jednym (nazwijmy go 1) jest jeden arkusz w którym zapisuje się wszystkie nowo przyjęte rzeczy (wpisuje się nazwę firmy, nazwę przedmiotu i jego nr np firma X przedmiot x nr 001). Drugi(nazwijmy go 2) ma kilka arkuszy z nazwami firm, w arkuszach tych są naturalnie...
Zobacz nowy plik bo podmieniłem. Druga rzecz - dodałem wcześniej zapis danych, a ty piszesz że na tym wywala błąd, więc: Czy jesteś zalogowany jako administrator? Rozpakuj i zapisz gdzieś na dysku mój plik i jeszcze raz sprawdź. Bo makro zgłasza błąd "autozapisu" pliku. Dodane po chwili -------------------------- Nie sprawdzałem szybkości działąnia....
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
36 wartości musi się powtórzyć 30 razy, pod nim kolejny itd. Przy twojej ilości wpisów (23113) w pliku Excela szybko to przestanie działać... Zapisz sobie plik w nowym formacie jako xlsx (2007 i nowsze), ale nie na zasadzie "Zapisz jako" tylko tworząc nowy i przeklejając tam wpisy. Jeśli zapiszesz jako XLSx to niestety będzie to zapis w trybie zgodności...
Witam, Uprzejma prośba o pomoc / podpowiedź / wyjaśnienie (na wstępie nie jestem programistą …. niestety!). 1. Formatowanie kilku zakresów jednocześnie. Chce nadać (za pomocą makra w VBA Excel) kilku zakresom danych ten sam format. Zakresy tu np: (B15:B38) (B51:C62) (B98:D112) Format to: ###,00;[Czerwony] - ###,00;- Bez tła (przeźroczyste tło)...
a = Now() b = Year(a) c = Month(a) d = Day(a) Ten zapis również tworzy Datę (ta sama zasada) dzięki takiej deklaracji wykonanie działań będzie przejrzyste. Masz racje tylko jest różnica między funkcją a makrem. Np. VBA nie przyjmuje "Today()". A że autorowi chodziło o makro (błędnie uważając że mu się skończyły funkcje) więc zasugerowałem kod w makro...
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
I tu pewnie bedzie kolejny problem. Jezeli mamy plik tekstowy, to kazdy znak w nim umieszczony jest na okreslonej pozycji w okreslonym wierszu, dodatkowo mamy jeszcze znak konca linii lub jakis inny kwiatek. Problem pojawi sie w momencie kiedy np. znaki beda "rozrzucone" lub pojawia sie puste wiersze. W takim przypadku makro musialoby bardzo dokladnie...
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")...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
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
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ź...
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...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
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ć ?
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...
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...
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,...
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
[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...
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]
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...
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ć"...
zapis pliku makro makro zapis pliku zapis pliku excel
skaner lampa sygnał dekodera komputerze silnik trójfazowy uszkodzenie
Jak pobrać identyfikator TeamViewer komputera? Kod błędu 04637-09 w pojazdach MAN: przyczyny i diagnostyka
