knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
Funkcja ADR.POŚR wymaga, aby plik, którego adres jest obliczany był otwarty. W samym Excelu nie ma możliwości odczytu z zamkniętego pliku, którego nazwa byłaby zmienna. Można zrobić coś w tym kierunku z pomocą VBA, ale nie wiem, czy możesz go używać. Jeśli jesteś zainteresowany takim rozwiązaniem, to napisz jeszcze, czy te nazwy plików są zupełnie dowolne,...
[syntax=vbscript]Pthnm = ActiveWorkbook.Path Workbooks.Open Pthnm & "\" & Sheets("nazwa_arkusza").Range("Y1")[/syn... Założenie jak wcześniej. Oba pliki umieszczone w tym samym folderze. W komórce Y1 znajduje się dokładna nazwa pliku łącznie z rozszerzeniem. Powinno działać.
W pełni zgadzam się z kolegą adamas_nt co do znaków, które może zawierać nazwa pliku. Chcę tylko zwrócić uwagę na drobny błąd, który zakradł się do jego kodu: ActiveWorkbook.SaveAs Filename:=ActiveCell.Value & ".xlsx", FileFormat:=xlOpenXMLWorkbookMacroEn... Aby to działało prawidłowo wystarczy zamienić "Value" na "Text". Różnica...
[syntax=vb]Sub sciezki() Dim sciezka As Variant 'opcja1 - na tablicy sciezka = "c:\moje dokumenty\wiesiek\plik 123.xlsx" sciezka = Split(sciezka, "\") nazwa = sciezka(UBound(sciezka)) ReDim Preserve sciezka(UBound(sciezka) - 1) 'obcinamy ostatnią część tablicy sciezka = Join(sciezka, "\") 'kleimy na nowo MsgBox nazwa MsgBox sciezka 'opcja2 - na pozycji...
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
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]
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]
xlOpenXMLWorkbook - ma byc .xlsx, byc moze juz jest ta nazwa pliku Dodano po 4 Sprobuj ActiveWorkbook.Saveas "nazwa", xlOpenXMLWorkbook
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
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 "?"
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
1. Najprościej wyłączyć obsługę błędów For Each element in kolekcja . Np [syntax=vb]zakres = Array([a2], [c3], [d5]) For Each kom In zakres If kom = "" Then kom.Value = "-" Next[/syntax]
że DEST_COORD może się kilka razy powtórzyć [syntax=vbscript]SelectSingleNode[/synta... jak sama nazwa wskazuje daje ci tylko jedno wystąpienie musisz użyć [syntax=vbscript]selectnodes[/syntax]
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
Zdaje się, że przypisujesz źle do newName . Nazwa różni się od newPath , pod którą zapisujesz plik. Sprawdź krokowo. Nie będzie prościej zapisać plik (me.SaveAs) z inną nazwą? Zawartość ma być przecież identyczna. P.S. Kod umieszczaj w znacznikach syntax. Post poprawiłem [mod].
Wyszła mi taka formuła: [syntax=text]=ADR.POŚR("'[01 Par. -Styczeń 2017.xlsx]"&TEKST(WYSZUKAJ(100;B$7:B7);"... wykorzystuje liczby wpisane w kolumnie B. Wyniki muszą być wpisywane od siódmego wiersza. W kolumnie W jest formuła wyliczająca numer wiersza...
Spróbuj takie makro: [syntax=vbscript]Public Sub TworzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Dim JPlik As String Dim NPlik As String 'Sciezka = ThisWorkbook.Path & "\" OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder = Range("A" & i) NPodFolder...
A może trzeba zamienić: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\Jan Kowalski.xls", FileFormat:= _ na: ActiveWorkbook.SaveAs Filename:= _ "C:\Documents and Settings\rw\Pulpit\"&AQ3, FileFormat:= _ ? Przy odrobinie chęci można znaleźć rozwiązanie tego problemu na Elektrodzie. :D
Po mojemu powinno działać coś takiego (nie testowane)[syntax=vb]Sub Przycisk1_Kliknięcie() Dim path1 As String, path2 As String, plik As String Dim folder As Object, pfolder As Object Dim dta1 As Date, dta2 As Date, nazwaMin As String, nazwaMax As String Application.ScreenUpdating = False path2 = "\\Serwer\test" Set folder = CreateObject("Scripting.FileSystemObject...
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...
chce żeby wyświetlił się msgbox lecz nie zatrzyma on czytania kodu Taka już rola MsgBox'a , żeby zatrzymywał i czekał na decyzję użytkownika. jak powstrzymać otwieranie nowego arkusza jak jego nazwa się powtórzy?? Excel z pewnością nie pozwoli na dublowanie nazw arkuszy. Jeśli chodzi o nadawanie nazw musiałbyś najpierw wykonać porównanie i dopiero...
Niby proste, a bez szczegołów to nadźgać tu można tyle różności, jak do tobołka ... Założenia: 1. Weryfikacja (jakakolwiek) kopiowanych danych 2. Plik zestawienia w tym samym katalogu co Wz-wzór, jeśli nie to ścieżkę trzeba wpisać "ręcznie" do zmiennej 3. Sprawdzanie, czy plik zestawienia nie jest przypadkiem już otwarty 4. Nazwa pliku zestawienia wpisana...
1. Arkusz ma atrybut 'veryhidden' i przed usunięciem trzeba go zmienić. 2. W pliku jest nazwa do usunięcia. Najprościej [syntax=vb]Dim plik As Workbook Set plik = ThisWorkbook Application.DisplayAlerts = False On Error Resume Next With plik.Sheets("TemplateInformation") .Visible = True .Delete End With For Each nm In plik.Names nm.Delete Next Set plik...
Mam tylko problem u mnie nazwa arkusza jest zawsze inna ( różne piliki są otwierane) Zamiast I jest jeszcze problem z zakresami, w pliku docelowym ma on być kopiowany w pierwszy wolny zakres. Więc tam, gdzie teraz jest przykładowo[syntax=vb]wswyn.Range("A2:D2... = wsSrc.Range("A2:D2").Value[/syntax] wstaw [syntax=vb]ost_w = wswyn.Cells(Rows.Count,...
Podmieniłem pętle i opisałem co najistotniejsze. Nie sprawdziłem działania.[syntax=vb]Sub testit() dato = Range("B3") ' nazwa folderu z plikami do pobrania danych myvar = ThisWorkbook.Path & "\" & dato 'wywołanie funkcji If TypeName(myvar) <> "Boolean" Then For i = LBound(myvar) To UBound(myvar) ' otwieram 1 odnaleziony skoroszyt (a w...
Dla twojego przypadku z załącznika. *dane aktualizowane są w arkusz 1 Tworzysz arkusz roboczy z całą aktualną bazą *niech będzie to w arkusz 2. Kolumny J K L uzupełniasz tak jak chcesz.*Najlepiej by było jakby wartości z kolumny M były przed J K L *czyli z przodu W arkusz 1 w kolumnach J K L używasz formuły wyszukaj.pionowo: Jeżeli będziesz miał problemy...
Dobry wieczór, Nie wiem, ile jest tych wzorów i czy będą w nich w danej chwili identyczne ścieżki czy różne. Ale można spróbować tak. W edytorze Visual Basica wpisać sobie proste makro wstawiające do aktywnej komórki albo do komórki o określonym adresie formułę z funkcją WYSZUKAJ.PIONOWO. [syntax=vb]Sub WstawWzor() ActiveCell.FormulaLocal = _ "=WYSZUKAJ.PIONOWO(J6;'C:\Users\user\Des...
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...
Potrzebne będą dwie zagnieżdżone pętle. W przykładzie poniżej, makro porównuje nazwę arkusza z fragmentem ciągu w komórkach kolumny 'A'. Urozmaiciłeś nieco różną wielkością liter, dlatego LCase . Do modułu wklej [syntax=vb]Sub Kopiuj() Dim wk As Workbook, ark As Worksheet, myFile As String, wrs As Long myFile = "c:\Statystyka.xlsx" 'ścieżka i nazwa...
Można też odpowiednio napisać formuły z wykorzystaniem np. funkcji adres pośredni ADR.POSR() Przykład: =ADR.POŚR("'[Nazwa pliku.xls]Arkusz5'!F6";1) Oczywiście ten adres można tworzyć z innych komórek Np. w komórce A1 jest nazwa pliku np "dane z 01.01.2025.xls" więc funkcja adresu pośredniego może mieć taki wygląd: =ADR.POŚR("'[" & A1 & "]Arkusz22'!F6";1)...
Hej, Dzięki PRL za zainteresowanie i pomoc. Dalej mam problem z tym plikiem przy zastosowaniu Twojego kodu z uwagi na inną nazwę pliku : https://obrazki.elektroda.pl/5185835600_... Myślałem, czy nie można by było kodu napisać pod nazwę danego arkusza, a nie skoroszytu ? Miałby sczytać nazwę i jeśli pasuje to by zadziałał ? Nazwa arkusza...
https://obrazki.elektroda.pl/5949275600_... (Miniaturka przedstawia zrzut ekranu z mojego prywatnego pliku Excela z projektami; zrealizowany jest on metodą którą opiszę poniżej) Witajcie moi drodzy Zapraszam do lektury mojego nietypowego tematu przeznaczonego dla elektroników amatorów i hobbystów wykonujących własne projekty. Przedstawię...
Cześć, Piszę z kolejnym problemem. Potrzebuje przerobić plik csv na excela (xlsm) i ten kod poniższy teoretycznie to robi, ale dla jednego pliku, lecz potrzebuje to zrobić "masowo". W folderze będzie X plików csv i chcę aby w pętli każdy plik zapisywało na xlsm, niestety nie mam pomysłu aby to zapisać, ponieważ nazwa pliku musi pozostać taka sama dla...
Musisz pokombinować, bo sama linia z błędem w moim pliku działa. Może nazwa tabeli, a może adresacja komórek.
Po prostu otwórz "dany plik" i w arkuszu Dane_1 w wybranej komórce dajesz = i klikasz myszką na odpowiednią komórkę w "danym pliku" to utworzy hiperłącze do niego. Nie o to mi chodzi. Potrzebuję aby po wpisaniu nazwy pliku w kolumnie PROTOKÓŁ arkusz automatycznie pobrał dane do wybranych komórek z pliku, którego nazwa została podana. Taka operacja...
Zamiast nazwa = ThisWorkbook.Sheets("zam_od_han... 4).Value // tutaj chciałem przypisac do zmiennej nazwę pliku, jest inna od Application.ScreenUpdating = False // nazwa_pliku ze wzgledu na potrzebny format Set plik = Workbooks.Open(Filename:= _ nazwa_pliku) Sheets("dyl").Select Windows("wzorzec_zamowienia.xls...
Ja korzystam z metody: ActiveWorkbook.FollowHyperlink Address:=sciezka & nazwa_pliku Ścieżka i nazwa pliku jest pobierana z komórek excela, metoda jest wywoływana dwuklikiem (Worksheet_BeforeDoubleClick()) na komórce w konkretnym wierszu.
Już Ci pisałem w poprzednim wątku, że jeśli oczekujesz pomocy, powinieneś załączyć plik z danymi i kodem, żeby można było przetestować, co się dzieje. Mało kto ma taką wyobraźnię, żeby przewidzieć wszystkie Twoje ustawienia i układ danych. Bez pliku to jest tylko zgadywanie. Niektóre zwyczaje użyte w tym programie są niezbyt dobre, np. używanie nazwy...
Pracuję na programie MS-DOS, nie chcący usunąłem plik .dbf (wydruk na excel którego zrobiłem), a teraz w dos pokazuje mi komunikat "Błąd instalacji systemu " Wstępna ocena dostępnych informacji - Usunięty plik : Użytkownik pracując w środowisku MS-DOS nieumyślnie usunął plik z rozszerzeniem .dbf , który był związany z wydrukiem do Excela. - Komunikat...
aby nazwa pliku załącznika była pobierana do tematu wiadomości nazwa załącznika ma być przenoszona do tematu wiadomości mailowej API .... ?! ... na co tu API ? [syntax=vbscript] '.... Szablon = getFile("\\...") If Trim(Szablon) = "" Then Exit Sub Dim nazwa_pliku_zalacznika As String nazwa_pliku_zalacznika = Right(Szablon, Len(Szablon) - InStrRev(Szablon,...
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ą?
Witam, sprawa zapewne jest prosta,ale nie wiem jak ją ominąć lub zdefiniować. Mam schemat otwierania pliku i on działa , lecz potrzebuję zrobić zabezpieczenie takie, aby nazwa pliku otwieranego była sprawdzana. Plik ma na na przykład nazwę KWS 13-01-2012.xlsx ( gdzie data może być zmienna np. KWS 14-01-2013, KWS 31-01-2013 itp itd natomiast początek...
Coś mi mówi, że tu chodzi o wyszukiwanie plików w katalogu mając tylko szablon nazwy. Jeżeli tak to do tego służy np. Dir. Pierwsze wywołanie, z parametrem (pełna nazwa ze ścieżką - może zawierać * i ?) wyszukuje pierwszy plik, kolejne wywołania, bez parametrów, wyszukują kolejne pliki. Powtarzasz w pętli do uzyskania pustej nazwy i to już wszystko.
Witam! Mam pewnien problem z markem. Przez parę dni szukałam na różnych forach informacji jak go poprawić, ale niestety nic nie znalazłam. Problem wygląda następująco. Mam makro, które generuje mi plik Worda od podstaw tj. tekst plus wstawianie danych z komórek na podstawie aktualnie zaznaczonego wiersza. Wszystko działa kiedy zapisuje tylko dokument...
Witam Mój problem polega na tym, że dane (z pliku), których potrzebuję umieszczane są w jednym i tym samym miejscu, niestety nazwa pliku zmienia się za każdą aktualizacją danych (plik ma część niezmienną ale w nazwie pliku pojawia się data np: nazwapliku 2017-06-08.xslm ). Czy istnieje taka formuła, która umożliwiałaby automatyczną aktualizacje danych,...
Przepraszam ,że zawracam głowę ale nie mogę sobie poradzić z prawidłowym wyznaczeniem ściezki pliku ,który ma zostać skopiowany. Powinna ona być następująca - I:\Wycena Efos\NabyciaUmorzenia + dane z Wyciagu powinny wklejać się do arkusza o nazwie PODST - Wkleić Patrzyłeś w ogóle na kod? Nawet nie trzeba znać angielskiego, bo w kodzie jest napisane...
Właściwie z tych obiektów potrzebujesz tylko Folder i Plik (do pętli) - to warto zadeklarować. Czyli można od razu zrobić: Set F = CreateObject("Scripting.FileSystemObject... i dalej jak powyżej. I jeszcze jedno: nie chcesz wykorzystać pliku z makrem? Musisz go mieć (no chyba że użyjesz personal) bo uruchamiasz makro VBA,...
Mam plik excel przygotowany przez pracowników. W pliku znajduje się kolumna w której każdy wiersz posiada dane kontrahenta (nazwa, adres, nr tel, e-mail). Chciałbym wyciągnąć z całego ciągu znaków adres e-mail. Jedyna stała to fakt, że przed nazwą maila znajduje się zapis zawsze w tej samej formie "e-mail: " po czym jest nazwa adresu mailowego do kontrahenta....
nazwa pliku excel excel zwraca nazwa pliku nazwa pliku nazwa katalogu
wtryskowy matrix zmiana dekoder polsat licznik rowerowy hallotron
Ford Focus 2019 P2000 – błąd NOx, AdBlue, SCR, czujnik NOx, EcoBlue Diesel Błąd E33 w klimatyzacji MAN NEOPLAN - diagnostyka i rozwiązania
