knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Zakłada, że z tego Mam dwa pliki filmowe o nazwach: film1_720p.mkv film2_1080p.mkv nie z "720p LEKTOR.mkv" bierzemy 8 znaków nazwy (od końca) i wycinamy 3 znaki z tych ośmiu - dobrze rozumiem? tak
zy jest możliwość aby makro zmieniło nazwę w wszystkich wierszach, a nie tylko w jednym. Tak czułem że na tym się nie skończy. :) [syntax=vbscript]Sub elka() i = 1 Do While Cells(i, 1) <> "" Name Cells(i, 1) As Cells(i, 4) i = i + 1 Loop End Sub[/syntax]
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
(at)prl (at)kinggustav Działam na otwartych workbookach, żeby makro zadziało trzeba otworzyć odpowiednie dwa workbooki a później tylko je aktywuję nazwą wpisaną na sztywno, a z racji tego że nazwa zmienia się częściowo co miesiąc to musiałbym co miesiąc edytować makro i chciałbym tego uniknąć. Czy w takim przypadku jest jakieś prostsze rozwiązanie czy...
Witam. Czy jest możliwość aby zmienić nazwy plików PDF z tym, że tekst, który miałby być nazwą pliku znajduje się w danym pliku? Tych plików są setki, więc potrzebuję jakieś makro/automat.
Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]
Zainteresuj się instrukcjami obsługi plików. Np Instrukcja używana do zmiany nazwy pliku dyskowego lub folderu (katalogu). Składnia rozkazu Name: Name StaraNazwa As NowaNazwa Sprawdzaj w pętli cztery (trzy w drugim przypadku) znaki od lewej każdego jpg, wyszukaj w kol.B, podstaw z kol.A i zmień nazwę
Replace, psze Pani, Replace...
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...
Jeśli go przy założeniu, że jest folder i w nim znajduje się plik raport.xlsm i folder w którym znajdują się pliki xlsx z których będą pobierane dane, następnie prosty wariant makro nazwy plików nie ma znaczenia, ważne jest, aby mieć w jednym folderze, (jeden)
[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 _ :=xlBetween .IgnoreBlank = True .InCellDropdown...
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...
Zobacz tak usuń te dwa przyciski zapisz zamknij i utwórz je na nowo z różnymi nazwami.
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje Jestem za tym, żeby sprawdzić obecność takiego pliku przez: If Dir(Thisworkbook.path & "\" & nazwa)<>"" then ... i podjąć dalsze działania (zapisać plik, podać komunikat, itp.)
szablon.SaveAs Filename:=sciezka Proponuję użyć SaveCopyAs. Ale nie wiadomo, czy makro (jego nazwa sugeruje tworzenie arkuszy), czy też ma tworzyć nowe pliki.
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Jeśli Sciezka = "D:\" to ActiveWorkbook.SaveAs Filename:=Sciezka & Nazwa Zdublowałeś slash'a.
Cześć, bardzo proszę was o pomoc w makrze. Potrzebuję napisać makro które będzie uruchamiane z otwrtego pliku i tu nazwać go jako plik1, następnie otworzyć inny plik który nazwie np plik2 tak by w dalszej części makra nie przywoływać ścieżki pliku (gdyż będzie ona się zmieniała) a przywoływać je jako plik1 i plik2. Z góry bardzo dziękuję za pomoc.
Z arkusza1 robię raporty w osobnych arkuszach Efekt taki jak na zrzucie 1041538 automatycznego kopiowania wyfiltrowanych danych z arkusza1 do kilku arkuszy :idea: (z nazwami arkuszy wg filtrowanych danych :D ) można zrealizować przykładowo tak jak w załączonym pliku. 1041541 Makro można uruchomić skrótem klawiaturowym ctrl+r :!: , dla dowolnej (jeśli...
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Przykro mi, ale nawet nie sprawdzałeś, jak działa makro... W komórkę C1 wpisujesz ścieżkę do tysiąca plików, na przykład: C:\Users\TwojaNazwaUzytkownika\Pictures\... i naciskasz przycisk 'Zmień nazwę tysiącowi plików'. Makro zamieni nazwę tysiącom plików.:)
Proszę o pomoc w makrach Stworzyłem arkusz do obliczeń. Makro które zarejestrowałem importuje mi do "Arkusz1" dane z pliku o określonej nazwie. Nie wiem jak stworzyć makro by nazwa tego pliku była pobierana z komórki o adresie np: D1 arkusza "Obliczenia" znajdującego się w tym samym skoroszycie Moje makro: Sub pobieranie_danych() ' ' pobieranie_danych...
To sprawdź sobie takie rozwiązanie.
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".
Nie wiem za bardzo ja zadeklarować nazwę tych dwóch pliku tak aby makro działało niezależnie od nazwy. Nie może działać niezależnie od nazwy. Można za to w makro użyć OpenDialog.
ark = ActiveWorkbook.Sheets(1).Name trzeba bylo po Nazwapliku = ActiveWorkbook.Name Dodano po 1 myslalem ze to logicznie dojdziesz Dodano po 2 bo po ThisWorkbook.Worksheets(1).Activate bedzie nazwa pierwszej wkladki w pliku, w ktorzem makro
próbowałem wielokrotnie na różne sposoby np: nazwa = Dir(len(plik)=12 & w & "*.htm") i nie może odnaleźć pliku:( a nawet jak jest czyste: nazwa=dir(plik) to makro samo narzuca ten dłuższy plik
Witam. mam z drobna odrębny problem a mianowicie. Pracuję na cenniku w excelu gdzie są numery produktów OE i nasza oraz cena. Chciałbym to zautomatyzować makrem tak aby wyszukiwało po numerze OE i zwracało numer nasz i cenę. Prosze o pomoc. Super gyby to działało w nowym oknie Pozdrawiam
A to żeś rozjaśniła :) Makro będzie zapisane w pliku do którego będą kopiowane dane czy w jakimś innym miejscu? Jeżeli w tym pliku to zmienność jego nazwy nie ma znaczenia. Na jakiej zasadzie będzie zmieniać się nazwa pliku z danymi i czy będzie on ciągle w tej samej lokalizacji (folderze)?
Cześć. Bardzo proszę o pomoc. Mam plik excel w którym jest 150 arkuszy o nazwach liczbowych odpowiednio 1, 2, 3... 150. W każdym jednym arkuszu chciałbym aby było makro które kopiuje konkretne dane do nowego pliku (zawsze te same od S6:V6). Plik excel z makrami jest "matrycą" która co miesiąc powstaje nowa (służy do rozliczania zleceń) i zmienia się...
Coś niewłaściwie skopiowany ten kod. Mają podwójne "With", a raz "End With" Dodano po 7 [syntax=vb]Sub Kr() Dim bs As Range, r&, i&, j& Dim ik As Boolean, wb As Workbook, br As Range Dim b Set bs = ThisWorkbook.Sheets(1).Columns(4).Cells Set br = ThisWorkbook.Sheets(1).Rows Set a = New Collection r = 1 While bs(r + 1) <> Empty r =...
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...
A jak by wyglądały makra, w których dane trzeba wstawić miedzy isntniejące już dane. Makro które umożliwia wstawienie danych nie we wszystkie pliki, tylko w część plików, powiedzmy nazwa jest podobna
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
Witam, Panowie mam problem. Przy użyciu rejestrowania makra, zarejestrowałem swoją operację, dla konkretnego pliku. Chciałbym ją codziennie używać, jednakże z każdym nowym dniem zmienia się nazwa samego pliku. Czy jest możliwość by poniższy kod działał bez względu na zmieniający się nazwę pliku ? Wyczytałem, że można by było zastosować "ActiveWorkbook.Name",...
Napisz to jaśniej i załącz przykładowy plik. Jeśli plik źródłowy jest otwarty (w tej samej instancji Excela), to nie jest potrzebna ścieżka, wystarczy nazwa pliku. Co to znaczy: "Wprowadzenie odwołania do innego (otwartego pliku)"? Gdzie ma być wprowadzone to odwołanie? Do komórki arkusza? Do jakiegoś okna dialogowego wyświetlonego przez makro? Czy...
Zdecydowanie łatwiej się porozumieć na bazie załączonego pliku . Widać wtedy różne niuanse, które mogą wydawać się z pozoru nieistotne, a poza tym można przetestować proponowany kod. Powinien działać kod: [syntax=vbnet]ActiveCell.Value = Application.WorksheetFunction.VLookup("s... Worksheets(Range("B6").Value).Range("A:E... 5, False)[/syntax]Zakładam,...
Mam na myśli to że w pliku z którego są kopiowane dane w komórkach pierwszego wiersza są nazwy kolumn.
[syntax=vbscript]Sub ZapiszPliki() ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow k = Cells(x, 2) If Dir(k, vbDirectory) = "" Then MkDir (k) ActiveWorkbook.SaveCopyAs k & "\" & Cells(x, 1) & ".xlsx" Next End Sub [/syntax]
Otwórz plika za pomocą wpisanego na sztywno adresu w makro. Plus to nikt za pomocą makra nic innego nie otworzy a minus to nazwa i położenie pliku nie może się zmieniać.
1. Każdy plik ma unikalną nazwę. 2. W każdym pliku są 2 arkusze o nazwach (ORYGINAL i KOPIA). Chciałbym, żeby nazwa arkusza była taka sama jak pliku. Czyli dla pierwszego skoroszytu: Arkusz1 = nazwa pliku Arkusz 2 = nazwa pliku(2) lub nazwa pliku(K)
Tak, próbowałem i wszystko byłoby ok, tylko że w nim jest wskazana nazwa otwartego przez makro pliku, a teoretycznie jej nie znam.
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Czyli kod jaki zamieściłem ciut wyżej ([url=http://www.elektroda.pl/rtvforum/v... 9) powinien być dobry - przyjąłem końcówkę nazwy (po ostatniej spacji).
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]
Tak jak adamas_nt pisał pewnie podajesz w b2 bez "\" (więc dir nie sprawdzi katalog i plik pusty) [syntax=vbscript] Sub Krok1_Tworzenie_bazy() 'Import danych tekstowych i stworzenie bazy Dim Katalog As String 'wskazany przez użytkownika katalog, w którym znajdują się pliki tekstowe Dim Plik As String 'nazwa wczytywanego pliku tekstowego Dim Sciezka...
Proszę o konkrety: - nazwy folderów, - nazwy plików, - nazwy arkuszy. Jeżeli Kolega ma na przykład foldery z nazwami miesięcy, a w nich pliki z nazwami magazynów, a w takim pliku arkusze z nazwami magazynierów, to trzeba napisać nowe makro.:) Obecne makro działa dla wielu plików z różnych lokalizacji, ale zakłada, że w każdym z plików źródłowych istnieje...
W B2 sama nazwa bez rozszerzenia, pilik będzie na C: [syntax=vbscript]Sub elka() Open "c:\" & Range("B2") & ".dxf" For Output As #1 For Each c In Range("A7:A30") Print #1, c Next Close #1 End Sub[/syntax]
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...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
No teraz tak mam, że dane są skopiowane w arkusz, ale robięto ręcznie. To bardzo dobry pomysł z importem, ale jak zrobić jeśli ja mam np. 50 plików, każdy inna nazwa, i chciałbym żeby zaimportowany został ten konkretny plik którego nazwe mam w jakiejś komórce. Może jakieś makro. Wtedy makro importuje dane z pliku (nazwa pliku jest w komórce) a pozniej...
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).
Post pod postem, ale jakoś chcę zwrócić uwagę autora :) Tak z niedzielnych nudów zacząłem kombinować z tymi pętlami. A jak już jest (prawie) gotowe, to wrzucam. Może się przyda... Warunkiem jest umieszczenie pracowników w odpowiednich wierszach zgodnych z Nr ewidencyjnym i Lp. tzn jeśli Pani Monika ma NrEw. 2 i jest w 4 wierszu (Lp 3), to tak musi być...
Cześć, potrzebuje makra które będzie sprawdzało po kolei komorka pod komórką w excelu czy takie nazwy pliku sa w folderze i jego podfolderach i wyrzucalo informacje obok pliku "tak, nie". W kolumnie A mam nazwy plików jeden pod drugim. Ktos coś pomoże?
Chciałbym żeby automatycznie kolorowały się komórki jak w załączonym pliku. Mianowicie jeżeli w wierszu występuje wyraz 'sob' lub 'ndz' automatycznie pokolorował całą kolumnę. Dorobiłem Ci makro. Znajdziesz go przez Alt + F11. Makro możesz edytować, jednak jego nazwa musi pozostać niezmienna.
Szanowna, wcześniej już miałem pytanie: konik95 napisał: W mojej Bazie danych są jednak pewne elementy, które powinny być do wszystkich skopiowanych wierszy dodawane ręcznie? Tylko teraz widzimy jak wypełnić pola( NumerNazwaWersjaData utworzenia dokumentu) Z Numer a Wersja mniej więcej jasne. Dane skąd Nazwa i Data? Wątpliwości, że mamy wymyślić.
Jak by dało się zrobić coś co bez wyboru dopisać na stałe w pliku -test21 nazwy zawarte kolumn z pobieranego pliku W ilości trzech kolumn np.DATA ,ZAPAS,GRUPA
A jak można inaczej?
Widzę, że to grubszy kaliber sprawy. Aktualnie udało mi się osiągnąć cel przez usunięcie z nazwy pliku kropek. Teraz makro działa super. Chciałbym jednak "dopiąć swego" ;), żeby kropki były. Clubs zasugerował, że w nowszych excelach problem kropek w nazwie nie występuje. Ja używam Microsoft 365. Na liście wyboru dostępne są rozszerzenia jak na obrazku....
Czy mógłbyś załączyć to makro, które masz? Oczywiście bardzo trywialnie proste makro Sub makro1() Workbooks.Open Filename:="ścieżka szukanego pliku" Range("I28").Copy ThisWorkbook.Activate Sheets("Arkusz1").Activate Range("B2").Select ActiveSheet.Paste Workbooks("nazwa szukanego pliku").Close End Sub Tylko właśnie w tym makro mam sztywno nadaną ścieżkę...
Cześć, może ktoś z Was kojarzy taki temat albo ma gotowe makro. Powiedzmy, że mam folder "A" w którym mam 50 plików PDF/xls/xlsm o różnych nazwach. Chciałbym wskazać jaką ilość plików z wybranego folderu ma mi otworzyć makro, a następnie ma otworzyć losowo wybraną ilość plików. Cel: makro ma byc pomocne w wybieraniu próbki plików do kontroli, w sposób...
Można to zrobić, ale nie dałeś przykładowych plików, to sobie dostosuj nazwy i ścieżkę. Załączam 2 pliki z danymi (docelowo zamknięte) i plik roboczy.
Wiele jest napisane, szczególności niewiele(z wyjątkiem ~30 plików). Napisałem proste Makro w excelu które wybiera rekordy i kopiuje je do odpowiednich zakładek Gdzie to makro? Co najmniej łączenia plików(nazwy ścieżek plików). Gdzie jest ta tabela przestawna?
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ą...
Zamiast Range("C2").Value = "=SUMA(C4:C1441)" Range("C2").FormulaLoc... = "=SUMA(C4:C1441)" Dopisanie wartości do nazwy pliku: "D:\Analiza\" & Worksheets(1).Name & "-" & Range("C2").Value & ".xls"
Mogę zmienić, by wszystkie nazwy były takie same w obydwu plikach. Nie możesz, tylko musisz - jeżeli makro ma coś wyszukiwać i dopasowywać po nazwie, taka "radosna twórczość" jest niedopuszczalna. W Prod.xlsx - tabele w Sheet1, Sheet2 i Sheet3 najlepiej, żeby zaczynały się w tych samych komórkach (wiersz, kolumna). Liczba tabel (arkuszy) jest stała...
Teraz działa wszystko jak w zegarku, a to jeszcze jedno pytanko czy można kopiować dane z ukrytego arkusza?, a jeszcze jedno czy część nazwy pliku może być pobrana z nazwy arkusza ?
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.
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...
Cześć wszystkim, Jestem kompletnie zielony w tych sprawach, a chciałem zrobić makro przenoszące dane z jednego pliku (nazwa: napa) do drugiego pliku (nazwa: Raport), przykładowo dane z komórki Y przenieść do komórki N. Patrzyłem w internecie jak to robić i połowicznie mi się udało, ale rzecz w tym, że chciałbym, aby pliki dodawały się automatycznie...
Witam serdecznie. Jestem nowym użytkownikiem trochę początkującym w makrach i VBA w Excelu aczkolwiek mam problem: Chciałbym napisać makro kopiujące kolumnę komórek z pominięciem pustych do NOWEGO pliku (ścieżka stała, nazwa zależna od 1 komórki w arkuszu) .xls Nawet nie wiem czy potrzebna jest pętla czy wystarczy sprytne makro. Proszę o przykład na...
Nagraj makro jak to robisz, następnie je dostosuj do swoich potrzeb. ok, to wiele pomogło, nagrałem, ale nazwa pliku zawsze będzie taka sama. Może wiesz jak ustawić, abym mógł nazwę pliku zmodyfikować na własną?
Przedstawione makro nie do końca tylko "zapisuje jako" plik. Ono tworzy nowy plik kopiuje odpowiednie dane (arkusze) zapisuje go pod pewna nazwa i go zamyka. Przy czym, ponieważ jest wyłączony "podgląd", nie widzisz wszystkich kroków. Też tak chcesz stworzyć plik? Czy wystarczy ci "zwykłe" zapisz jako - czyli plik nazwijmy go źródłowym, na którym włączysz...
Jest plik z którego są generowane PDFy. Potrzebuje makro które zapisze mi do pliku (innego pliku) loga z informacją: Data | Godzina | Nazwa użytkownika, który wygenerował PDFa Można to jakoś makrami rozwiązać? Ewentualnie jakieś inne propozycje rozwiązania tego problemu?
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
Dzień dobry. [syntax=vbnet]Sub Wygeneruj() Dim sciezka As String Dim i As Integer Dim FolderPath As String, path As String, count As Integer FolderPath = "C:\BC" path = FolderPath & "\*.xlsm" Filename = Dir(path) Do While Filename <> "" count = count + 1 Filename = Dir() Loop count = count + 1 Sheets("Dane do list").Range("F12").Value = count...
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", _
jak wrócić do skoroszytu który codziennie ma inną nazwę? Chcę przejść z jednego skoroszytu np: 123434 (codziennie ma inną nazwę, z niego uruchamiam makro) do skoroszytu import ( nazwa zawsze taka sama) i coś tam zrobić Makrem i potem wrócić z powrotem do wcześniejszego pliku. wiem jak to zrobić jeśli mam zawsze taką samą nazwę skoroszytów ale jak zrobić...
Faktycznie masz racje. winny jest folder systemowy. pomyliłam nad "rozwojem" makra. Czy da się aby podobne makro szukało nie nazw plików czy folderów ale tekstu wewnątrz pliku. Powiedzmy, że chce znaleźć w wielu plikach konkretny NIP klienta ale wewnatrz np plików csv, txt, xls, i inne (te które są możliwe do przeszukania) i żeby te pliki kopiował do...
Bardzo dziękuję za zainteresowanie moim tematem. Dołączam pliki, które pomogą zrozumieć o co mi chodzi. Odpowiadając na postawione przez Ciebie pytania doprecyzuję o co chodzi: Pisząc o tym, że nie ma być pustych wierszy, chodziło mi o to, że każdy wiersz w zakresie zawiera formułę wczytującą dane z plików (górny zakres z "plik" i dolny zakres z "plik1")....
Nie widze Twoje makro http://obrazki.elektroda.pl/4135222300_1... Jeśli wszystko odbywa się w jednej procedurze, a następnie zmienna 'plik' może być lokalna [syntax=vb]Sub Twoje_makro() Dim plik as Workbook '.... [/syntax]
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
Skądś to makro pamiętam, ale nie kojarzę z Twoim nickiem.:)
Nie sądzę, żeby to się dało załatwić samym makro. Możliwe na pewno jest w kodzie vba. Niektórzy utożsamiają mechanizmy makro i vba. Jesli kolega jest zainteresowany takim rozwiązaniem, to umieszczę tutaj jutro jakieś przykład?
... Nie będę się bawił w VBA (może kiedyś) to co jest absolutnie wystarczy ... Czasami trzeba ... ... jeszcze mam pytanko, czy jest możliwe przeniesienie nazw np. 200 plików bezpośrednio do komórek Excela? tzn. mam ponazywane *.jpg lub *.tif i jednym kliknięciem lądują one w osobny komórkach arkusza. To było by kolejne ułatwienie bo nie musiałbym drugi...
Nie chodzi mi o nazwę pliku. Nazwa pliku jest zaczytywana z komórki H3. Chodzi mi o lokalizację na dysku.
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Proszę o pomoc!! Jak mam użyć tego makra? Próbuje na wszystkie sposoby i nie liczy. Pliki źródłowe ma m na dysku E w katalogu "j" nazwy skoroszytów to "a" i "b" nazwy arkuszy to "Arkusz1"
A Twoje makro mi nie poszło, mam info "subscript out of range". Masz otwarte obydwa pliki? Nie zmieniałeś ich nazw, ani nazw arkuszy?
Rejestrator nagrywa zapisanie w tle. ActiveWorkbook.SaveAs Nam chodzi o okno dialogowe. Np Sub makro() Nr = 1 nazwa = "plik" & Nr & ".xls" Application.Dialogs(xlDialogSaveAs... ("c:\" & nazwa) End Sub
Kod działa świetnie na tym podanym przykładzie:-) Niestety po przeniesieniu kodu do innego pliku, krtóry jest zbudowany analogicznie - niestety kod już nie działa. Czy mógłbyś mi jeszcze z tym pomóc na przykładzie poniższego zrzutu? Nie mogę zamieścić całego pliku. I chciałabym zapisywać pliki do jednej lokalizacji na dysku sieciowym, załóżmy w dowolnym...
Wystarczy jedna linijka: [syntax=vbscript]For Each f2 In f With wks Open f2 For Input As #1 Do While Not EOF(1) Line Input #1, linia .Cells(wiersz, 1) = f2.Name '<--- o, tutaj .Cells(wiersz, 2) = linia '<--- tą też można skrócić wiersz = wiersz + 1 Loop Close #1 End With Next[/syntax]
PS 2. no to może być faktycznie problem z ustawieniami, ja też musiałem zmienić na polskie jak chciałem w vba używać polskich znaków? A w kodzie są widoczne polskie znaki czy krzaczki:> PS 1. Jeżeli wyłączasz zamykanie i odtwarzarz ponownie makro (a sam ręcznie go nie zapiszesz i np. nie zmienisz nazwy) to wyskoczy błąd bo makro nie może stworzyć dwóch...
Cześć, (at)ElektrodaBot Chciałbym napisać makro które będzie zapisywać mi plik w określonej lokalizacji z podaną wcześniej nazwą. Nigdy wcześniej tego nie robiłem i nie wiem co powinienem przerobić w tym co wyskrobałem aby zadziałało. Okno nazwy wyskakuje jednak przy komendzie zapisuj jest błąd. Sub makro1() Dim sciezka As String Dim nazwaPliku As String...
gdy w zestawieniu brakuje danego miasta W którym miejscu jest nazwa miasta? Tutaj? Arkusz = Cells(Wiersz, KOLUMNA)
Witam, Szukam rozwiązania, które zmniejszy ilość ręcznego kopiowania danych pomiędzy raportami. W pierwszym pliku mam dane w kolumnach od A do HH które muszą zostać skopiowane do innego pliku jeśli nazwa kolumny w pliku X zgadza się z nazwą kolumny w pliku Y (kolumny z nazwami w wierszu nr 1 od A-IA. Nazwa Arkusza w pliku X to "Dane" a w pliku Y Details....
makro zapisywanie pliku nazwa makro pliku nazwa pliku nazwa katalogu
kaseta adapter transmiter pomiar wilgotnosc kamera zoneminder
radmor serwis gdynia sterownik rolet
Connect Box UPC – migające zielone strzałki, brak Internetu, synchronizacja DOCSIS Pioneer VSX-808RDS brak sygnału stereo, tylko mono – FM, dekoder MPX, antena, diagnostyka