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]
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
Oświeciło mnie. Można to zrobić w prostszy sposób. Jeszcze raz to opiszę, mam dwa otwarte pliki, w jednym pliku jest to makro i nazwa tego pliku się zmienia natomiast ten drugi plik ma stałą nazwę więc może ona być na sztywno. Pomyślałem że można po prostu zastosować coś w stylu ThisWorkbook.Activate dla pierwszego pliku. Obecnie kawałek kodu wygląda...
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)?
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ść. 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ę...
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",...
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,...
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...
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]
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)
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ć.
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]
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...
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...
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ć...
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.
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?
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ć.
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....
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
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ę...
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ą...
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.
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 ?
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...
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.
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...
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...
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...
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ą?
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", _
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...
Wszystko to chyba jest dość proste, tylko przedstawione w jakiś dziwnie zagmatwany sposób. Po pierwsze nadal nie jest jasne czy masz jeden plik czy dwa pliki. W pierwszym pliku jest Makro1. Wywołujesz to makro w kodzie, który nie ma nazwy, bo nie pokazałeś całego makra, tylko kawałki. I teraz czy ten kod bez nazwy jest w osobnym pliku, ale z takimi...
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ć...
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
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")....
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...
[syntax=vbscript]Option Explicit Dim xlApp, xlBook Set xlApp = CreateObject("Excel.Application") Set xlBook = xlApp.Workbooks.Open("N:\a.xlsm") 'Lokalizacja pliku EXcel xlApp.visible = true xlBook.refreshall WScript.Sleep 15000 xlApp.Run "Makro1" 'Nazwa makra do uruchomienia xlBook.Close xlApp.Quit Set xlBook = Nothing Set xlApp = Nothing WScript.Quit...
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"
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
Nie chodzi mi o nazwę pliku. Nazwa pliku jest zaczytywana z komórki H3. Chodzi mi o lokalizację na dysku.
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?
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...
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...
Ad.1 Jeśli makro jest w 'Thisdocument;, to nie. Jeśli gdziekolwiek indziej (moduł, normal, inny plik), to musi być nazwa lub indeks: 'Documents("nazwa").Tables(1)' Ad.2 To zależy. Jeśli tabelka ma zmienną ilość wierszy, a odwołujesz się do Np ostatniej, to: [syntax=vb]rw = Documents(1).Tables(1).Rows.Count kol = Documents(1).Tables(1).Rows(rw).Cells.Co...
makro zapisywanie pliku nazwa makro pliku nazwa pliku nazwa katalogu
vectra cieknie buderus logamax elektroda przesunięcie bitowe atmega8
harmonogram dahua harmonogram dahua
Bosch BBH214LB/01 - Odkurzacz działa bez przerwy po wymianie ogniw Ładowanie baterii na krótko - ryzyka i zasady bezpieczeństwa
