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...
Może się zdarzyć, że wyjdzie "\\" Pewniej będzie uzupełnić o tę linię. Jeśli slash jest, to OK, dołoży - jeśli brakuje Katalog = Cells(2, 2) ' tu mi nie działa:( If right(Katalog, 1)<>"\" then Katalog = Katalog & "\"
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
Czas nie gra roli ... Może się robić kilka dni nawet, jak trzeba ... Ważne, aby na końcu w Power Poincie było wszystko Gra, gra ... Wyniki: 1. Zrobione w bardzo prosty i schematyczny sposób 2. Zrobione w PPT ... ale w starym PPT 2k ... i w związku z tym mogą tu pojawić się błędy przy uruchamianiu w nowych Office'ach 3. Nie mam możliwości by sprawdzić...
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Przeszukaj katalog w pętli, z wykorzystaniem wbudowanej funkcji FileDateTime(ścieżka & nazwa_pliku) Poniżej napisane "na kolanie", ale powinno być coś w tym stylu [syntax=vbscript]katalog = "C:\Pliki Excela\" plik = Dir(katalog & "*.xls*") test2=filedatetime(katalog & plik) Do While plik <> "" test=filrdatetime(katalog & plik)...
[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() Dim ZakresWejsciowy As String Application.ScreenUpdating = False Set p = Sheets("Parametry") Set i = Sheets("Import") For x = 2 To p.Cells(Rows.Count, "A").End(xlUp).Row If p.Cells(x, 5) = "x" Then Katalog = p.Cells(x, "A") If Right(Katalog, 1) <> "\" Then Katalog = Katalog & "\" On Error...
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
Nie testowaliście tow... znaczy kolego PRL Nie.:) Powyższa funkcja nie jest moja. A to moja: [syntax=vbscript]Function PlikIstnieje(Sciezka As String, NazwaPliku As String) As Boolean If Dir(Sciezka & NazwaPliku) <> "" Then PlikIstnieje = True Exit Function End If Dim FS As Object, Katalog As Object, PodKatalog As Object Set FS = CreateObject("Scripting.FileSystemObject...
Jeżeli wszysztkie pliki źródłowe istnieją w podanej lokalizacji, tak samo jak katalog docelowy, to faktycznie proste makro załatwia sprawę (a jeśli nie, trzeba dodać kilka linijek kodu do sprawdzenia i i ew. utworzenia katalogu przed skopiowaniem). [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr plik_z = "" ost_w = Cells(Rows.Count,...
Pozwolę sobie wtrącić swoje 3 grosze.;) [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, SN As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") With ThisWorkbook While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) SN = Mid(Plik, 1, InStrRev(Plik, ".") - 1) wb.Sheets(1).Copy...
Coś w tym stylu: [syntax=vbscript]Sub ImportujWybraneKomorki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Wej As Workbook, Wyj As Workbook, KomWej As Integer Set Wyj = ActiveWorkbook Katalog = Sheets("Parametry").Range("A2") Plik = Dir(Katalog & "*.xlsx") x = Sheets(1).Cells(Rows.Count, "A").End(xlUp).Row + 1 KomWej...
Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
Poprawiłem błąd... [syntax=vb]Sub ImportujPlikizWieluLokalizacji() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, x As Integer, y As Integer, NowyWiersz As Long Dim NazwaPliku As String, Zeszyt As String, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...
Lista niedozwolonych znaków dla nazwy pliku w Windowsie jest krótsza, w dodatku domyślnie nie można niektórych z nich wstawić jako nazwy arkusza, więc finalnie można ją skrócić jeszcze bardziej. Możesz sobie sprawdzić listę i wstawić własne znaki. Pełen przykład poniżej: [syntax=vbscript]Private Sub CommandButton1_Click() ' sendAll Makro ' Makro zarejestrowane...
Polecam korzystanie z ChatGPT, Claude itp. - one sobie dobrze radzą z Excelem. Działa, to, co mi zaproponował ChatGPT, też działa Sub ZamienNaHiperlacze() Dim rng As Range Dim cell As Range Dim liczba As String Dim sciezka As String ' Ustaw ścieżkę bazową Dim katalog As String katalog = "C:" ' Jeśli zaznaczono zakres komórek Set rng = Selection For...
Witam Chciałbym po wypełnieniu kolejnych wierszy w excelu, aby makro utworzyło mi katalogi we wskazanym miejscu z tym ze utworzone raz pozostają nietknięte. LP Sklep rodzaj utwórz katalog 1 Sklep odzieżowy 2 Sklep spożywczy 3 Sklep chemiczny 4 5 6 7 tzn. wypełniam pewnego razu wiesze z LP 1 wpisuje, sklep i rodzaj i w kolumnie utwórz katalog wciskam...
Dzięki ! udało się ominąć problem :) Ale jak to często bywa człowiek chcę więcej heh Mianowice chciałbym, że pliki które otwierają się za pomocą polecenia: GetObject ("H:\Moje Makro\Pomiary\pok.csv") były otwierane w każdej lokalizacji. Tzn. Jeżeli skopiuje mój katalog Moje makro na dysk E:/ to nie będę musiał w kodzie zmieniać mu wszystkich lokalizacji....
Od której strony się do tego zabierasz? Przeglądasz katalog i porównujesz nazwy podkatalogów z wartościami w komórkach, czy odwrotnie? Na czym konkretnie utknąłeś?
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
Cześć, Próbuję sformułować makro, które pozwoli mi otworzyć konkretny plik dwg, np. jeden.dwg z konkretnego folderu. Poniższe makro: Sub test() Dim sciezka As String Dim plik As String Dim sWkb As Workbook Dim katalog As String katalog = "C:\Pulpit\" sciezka = InputBox("Wklej nazwę pliku dwg") & "\" plik = Dir(sciezka & ".dwg") Do While plik...
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
Jeśli chodzi o seryjne modyfikowanie zdjęć (przez seryjne rozumiem identyczną operację na dużej ilości plików) to można też użyć Paint Shop Pro (dawniej Jasc Software a teraz pod banderą Corel'a). Na pewno od wersji 8 jest możliwość rejestrowania makr. Włączasz opcję rejestrowania, wykonujesz modyfikacje pliku według uznania. Zapisujesz zarejestrowanie...
Tak dwa lub więcej plików w tym samym katalogu co pik z makrem, tylko katalog może zmieniać położenie. PRL - nie o to mi chodziło, ja nie chcę wyświetlać okna dialog w celu wybrania, który plik ma być otwarty, tylko w kodzie zawrę dokładną nazwę pliku do otwarcie, a makro automatycznie otworzy ten plik, pobierze odpowiednie dane a następnie zamknie...
Niedawno kupiłem kontrolę na znanym Polskim portalu aukcyjnym. Standardowa kontrolka fi 22mm, 24 V AC/DC, nominalnie 20 mA. Cena: oszałamiające 5.49zł z VAT. Świeci ładnie, biały dyfuzor zapewnia równe świecenie całej powierzchni łącznie z boczną. Plastik soczewki mógłby być twardszy - widać ryski, plastik obudowy dobrej jakości, zapewne z dodatkiem...
Witam, Wszystko się da jak się chce ;) Robisz to tak: 1. Tak jak pisali powyżej w procedurze która wysyła maila musisz mieć treść wpisywaną jako HTMLBody (zamiast Body) 2. Trzeba dopchać się do katalogu w którym masz swoje podpisy Outlooka a następnie "zassać" konkretnego podpisu kod HTML 3. Zassany kod trzeba dorzucić do treści maila w procedurze wysyłającej...
Spróbuj [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long Dim dArk As String, katalog As String, plik As String Const haslo As String = "has?o" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name katalog = "C:\Makro\" plik = Dir(katalog & "*.xlsx") Application.ScreenUpdating = False Do While plik <> "" With Sheets(dArk)...
co jest powodem, jak szukam np w na dysku D:\ (na całej partycji) to wyskakuje komunikat permition denied Najprawdopodobniej makro próbuje odczytać jakiś niedozwolony katalog systemowy. Makro zostało zaprojektowane do konkretnego działania - przeszukiwania plików we wskazanym folderze źródłowym i kopiowaniu ich do docelowego. Jak widać próby jego modyfikacji...
Witam mam taki problem z wczytywanie plików txt do Excela. Chce zrobić makro, które wczytuje wszystkie pliki txt do jednego arkusza. Mam katalog z pomiarami. Każda seria pomiarów zapisuje się w innym katalogu. Teraz chce, żeby makro tworzyło arkusz z nazwą katalogu, a potem do tego arkusza wrzucało wszystkie wyniki pomiarów jeden pod drugim. Poniżej...
A katalog jak ma być wskazywany? A skrypt jak się ma uruchamiać?
Nie o takie kopiowanie mi chodziło. Miałem na myśli jakieś makro które by pobierało z skoroszytu który załączyłem na górze dane np z kolumny opisanej podzespół 1. Kolejne numery w tej kolumnie to numery seryjne podzespołów i one są testowane, chciałbym aby makro tworzyło katalog o nazwie jak podzespół i kopiowało pliki z testów znajdujące się w innym...
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
Dzięki za podjęcie tematu. Obawiam się że to nie pomoże ponieważ makro sprawdza czy jest tam katalog, jeżeli nie to najpierw go zakłada a następnie zapisuje do niego plik. Domyślnie chce to robić zawsze w moich dokumentach. Po zaznaczeniu w excelu nazwy dysku np. D:\ wszystko jest ok. W podanym przez Ciebie przypadku katalog jest zawsze ten sam a u...
Witam, wiem, że taki temat już był, ale został już zamknięty a napotkałem problem z którym nie mogę sobie poradzić, więc nie pozostaje mi nic innego, jak otworzyć nowy i prosić o pomoc . :roll: Potrzebowałem makra, które z danego folderu będzie otwierało zawsze ostatnio zapisany plik. Na początku chciałem aby pliki były przeszukiwane po nazwie (nie...
Witam, Mam do napisania makro, które będzie kopiować dane z pewnego arkusza (nazwa arkusza nie zmienia się, ilość danych również) z dużej ilości plików o zmiennej nazwie (liczba skoroszytów może się zmieniać). Pierwszy problem polega na określeniu ostatniego niepustego wiersza w każdym z tym plików (określenie kolumn nie jest konieczne gdyż ich liczba...
Win+R: cmd cd "\Moje dokumenty" )...
Musisz "chodzić" po wszystkich podkatalogach. Proponuję rekurencyjnie, jeżeli nie masz zbyt wielkiej struktury katalogów powinno się udać. Obsługa plików w jednym katalogu działa jak rozumiem, więc ją sobie wklej. Spróbuj podziałać z takim gotowcem (wycinałem z większej całości więc mogą być błędy): [syntax=vbscript] Private Sub Katalog(ByVal Pth As...
Och, akurat w tych wersjach powinno być w miarę prosto. U mnie na 2007 działa takie coś, zakładając że 2010 ma taką samą składnię, też powinno: [syntax=vbscript]For Each ws In Worksheets If ws.Name <> Arkusz1.Name Then katalog = "D:\PDFy\" & ws.Name 'tworzenie katalogu jeśli nie istnieje If Dir(katalog, vbDirectory) = "" Then MkDir Path:=katalog...
Czy jest możliwe, aby makro otwierało plik źródłowy bez wpisywania w makrze jego ścieżki Nie nie jest możliwe jeśli cokolwiek (program czy człowiek) ma uzyskać dostęp do pliku to musi znać jego lokalizację ale sam folder zmienia czasami miejsce na dysku tzn co sam zmienia? Jeśli nie sam to podejrzewam że za jego lokalizacją kryje się jakaś tajemnicza...
Pewnie to proste ale nie mogę sobie poradzić. Mam makro umozliwiajce wstawiane zdjęć do komórki po wpisaniu nazwy zdjecia w komórce obok. Obecnie arkusz tego excela znajduje się w tym samym folderze co baza zdjęć ( np KATALOG 2019) sciezka = ThisWorkbook.Path & "/". Jak zapisac ściężkę aby arkusz znajdował sie w innym folderze ( np. OFERTY).
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
Witam, jako, że raczkuję w VBA proszę o pomoc. Mianowicie, potrzebuje w pliku w zał. : Arkusz "Cena katalog 2019" - kolumna A - podwójne kliknięcie na daną komórkę w kolumnie A np. A5 powoduje skopiowanie danych z tej komórki do Arkusza " Oferta PDF " komórka B17. Każde kolejne podwójne kliknięcie powoduje dodanie wiersza w Arkuszu "Oferta PDF" pod...
Obawiam się, że bez VBA ani rusz... Umieściłem sobie katalog na pulpicie, w D1 wpisałem adres mojego pulpitu, napisałem makro uzupełniające kolumnę C, nacisnąłem przycisk i... u mnie zadziałało.
Pozwolę sobie wtrącić 3 grosze. Do pobierania danych z plików i arkuszy takie proste makro: [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Arkusz As String Dim Zeszyt As String, Z As Worksheet Zeszyt = ActiveWorkbook.Name Set Z = Workbooks(Zeszyt).Sheets("Z") Katalog = "C:\Produkcja\" Plik =...
Używając określenia FTP sieciowy miałem na myśli podmapowany dysk sieciowy z prawem odczytu i zapisu na różnych stacjach roboczych. Na nim znajduje się katalog arkuszami excel w którym użytkownicy uzupełniają dane a po uruchomieniu makra zapisują jednocześnie w pliku którym działali jak i wpadają do arkusza który zbiera dane zbiorczo. Problem występuje...
CZeść czy ktoś mógłby mi pomóc w treści kodu makra, który wyszukuje na podstawie danej wartości w komórce np.AO1O_00123456_0 wyszukuje wartość która jest nazwą pliku i automatycznie dodaje hiperłącze? Tzn w moim przypadku wyszukuje po całej wartości która jest w komórce np. AO1O_00123456_0, a chciałabym żeby móc również modyfikować kod żeby wyszukiwał...
:arrow: Smutny_k 1. Na przyszłość: załóż nowy temat z odnośnikiem do starego (jak dasz "pomógł" pomagierom?) 2. Popatrz na taką pętlę (ścieżka domyślna dokumentów użytkownika) i zamiast msgbox podstaw swoją procedurę. Sub pliki_xls() katalog = Application.DefaultFilePath & "\" 'katalog = "c:\xxx\" 'usuń pierwszą linię...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
makro tworzyć katalog makro stworzy katalog makro stwórz katalog
brother reset licznika bębna matrix kabel rower przekładnia
patrol podciśnienie archer mr600
Schemat płyty 640-0565A-Z_REV06 - dostępność i naprawa Lokalizacja przerywacza kierunkowskazów w Mazdzie 6 2008
