[syntax=vbscript]Sub Sumuj() Application.ScreenUpdating = False Katalog = "C:PlikiExcela" Plik = Dir(Katalog & "*.xls*") While Plik <> "" Set a = Workbooks.Open(Katalog & Plik) For x = 1 To Sheets.Count Sheets(x).Range("OO1").Formula = "=SUM(A1:A100)" s = s + Sheets(x).Range("OO1") Sheets(x).Range("OO1") = "" Next a.Close False Plik =...
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)...
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...
Jest taka możliwość. Nie napisałeś czy chodzi tylko o spis plików czy też ze ścieżkami. Potrzebny będzie Total Commander i Excel ;-) . 1. Włączasz TC. 2. Wkładasz płytę i otwierasz ją w TC. 3. Polecenia -> Szukaj (Alt+F7) 4. W polu szukaj wpisz: *.* A następnie klikasz Zacznij szukać . Jak skończy szukać będziesz miał listę wszystkich plików i katalogów...
Możesz do tego celu użyć np. Total Commandera i użyć opcji wyszukaj. Program pozwala umieścić wszystkie wyniki wyszukiwania w jednym oknie co umożliwi łatwe ich skopiowanie do nowego katalogu i nagranie np. na płytę. Najlepiej wyszukiwać według rozszerzeń *.doc - dla plików Worda, *.xls - dla plików Excela (nie *.txt jak podał Szarańcza bo to zwykłe...
[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...
Każdy plik ma 1 arkusz Ja widzę 2.;)
Myślę, że zwykłe czytanie (xml potraktowane jako pliki sekwencyjne) powinno poradzić. Wklej do modułu standardowego i wypróbuj [syntax=vbscript]Option Compare Text Option Explicit Sub Proba() Dim katalog As String, plik As String, linia As String Dim licznik As Long, ko As Integer, startuj As Boolean katalog = "c:\" 'podstaw katalog z xml'ami. Slash...
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...
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...
Jeżeli ten kod też nie zadziała, to szukaj problemu w zabezpieczeniach. [syntax=vb]Sub PobierzCSV() Sheets("Arkusz1").Select Dim Katalog As String, Plik As String, Zeszyt As String, s As String, nw As Long Katalog = ActiveWorkbook.Path & "\" Application.Calculation = xlCalculationManual Application.EnableEvents = False Application.ScreenUpdating...
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.
poniżej plik prawie gotowy tylko hmm nie wie jak sie zabrać za petle Zanim pętla, małe porządki: 1. W tym układzie arkusza ' max_row ' zawsze będzie ' 9 ', a nigdy ' 1 ', gdyż ' Row ' (nr wiersza) zawsze poda, że ' L.p. ' leży w 9-tym wierszu 2. Zanim zastosuje się ' MkDir sciezka ', trzeba wpierw sprawdzić, czy katalog określony przez ' sciezka '...
Przy odwołaniach, po kropce, powinna wyświetlić się lista właściwości i metod. Nie bardzo... Jeśli masz dodane referencje to obiektu to dla niektórych obiektów wyświetlane są właściwości i metody, ale nie dla "createobject(COS.Appliaction)" (pod warunkiem, że przekazujemy obiekt do zmiennej typu "Object" o czym później) gdzie COS to nazwa programu....
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...
Przeglądałem dzisiaj katalog XL w katalogu Excel i sam katalog XL jest pusty natomiast są pewne pliki w katalogu Excela. Później prześlę skan tych plików. Diagnostyka nic nie wykazała :/ Dodano po 54 Załączam skan plików jakie znalazłem w katalogu EXCEL.
https://obrazki.elektroda.pl/3762580400_... Osoby działające przemyśle elektronicznym w końcu miały okazję, po 4 latach przerwy, spotkać się osobiście w dniach od 15 do 18 listopada na targach electronica 2022 w Monachium. 2.144 wystawców, z których 64% pochodziło z krajów spoza Niemiec, około 70.000 odwiedzających. W porównaniu do roku...
Potrzebuję taki skrypt: 1. Mam listę ok 1300 kodów w pliku excel 2. Mam obrobione zdjęcia w CPT nazwane kodem towaru w folderze. 3. Potrzebuję wstawić zdjęcia do corela 4. i podpisać je ceną i nazwą (z pliku excel) i sformatować tekst pod zdjęciem. Na www.ninbo.com.pl można zobaczyć jak wygląda katalog 5. Zdarzają się takie produkty (np zeszyty które...
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ś?
Witam, Mam dwa pliki Excel. Jeden to katalog produktów z numerem seryjnym i ceną a w drugim mam przygotowany kosztorys. Chcę aby Excel wyciągnął po numerze seryjnym z katalogu cenę produktu i wkleił ją w odpowiednie miejsce do kosztorysu (w wierszu gdzie jest taki sam numer seryjny)
Najprościej gdy masz ten katalog z plikami tam gdzie jest Excel z makrem. Wtedy: Pth = Application.ActiveWorkbook.Path -katalog skąd uruchomiono plik Excela. Jeżeli jest gdzieś "w pobliżu" to złóż: Pth & "\Katalog", albo Pth & "\..\Katalog" w zależności od potrzeb. Jeżeli w innej lokalizacji to wpisz ją do makra, jeżeli jest to trudne albo scieżka się...
Najprościej byłoby [syntax=vbscript]Sub BlaBla() Dim katalog As String, plik As String Dim sWkb As Workbook katalog = "c:\gr3krk\" 'katalog = "c:\xxx\" 'usuń pierwszą linię i wstaw po swojemu. musi być "\" na końcu. plik = Dir(katalog & "*.xls*") Do While plik <> "" Set sWkb = Workbooks.Open(katalog & plik) MsgBox sWkb.Sheets(1).Name 'spr...
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
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...
Witam, proszę o pomoc w temacie publikowania z MS Excel do html w VBA. With ActiveWorkbook.PublishObjects.Add(xl... katalog & "Raport_R5.htm", "Raport5", zakres5, xlHtmlStatic, "wilis", "") .Publish (True) .AutoRepublish = True End With Pomimo, że używam On Error Resume Next, Application.DisplayAlerts...
Witam, miałem to samo. Problem pojawiał się na Office 2010/2013. Rozwiązanie okazało się banalne, należy wyczyścić katalog TEMP w AppData\Local, oraz sprawdź czy przypadkiem nie utworzył ci się katalog w \AppData\Roaming\Microsoft\Excel pliku który chcesz otworzyć. Po prostu go usuń. Mi pomogło Pzd
No właśnie niezupełnie tak działa. Gdy dałem odnośnik do katalogu z 30 plikami ciągnie z jednego i otwiera/ uruchamia drugi, oraz podaje komunikat: Run-time'9' Subscript out of range. Podejrzewam, że może to być związane z tym, że dane w plikach z których są pobierane, są w arkuszach o rożnych nazwach. Ja wcześniej pisałem w każdym miesiącu powstaje...
ścieżkę aktualnie otwartego skoroszytu zczytujesz tak: [syntax=vb]ActiveWorkbook.path[/syntax] Myślę, że dalej już dasz radę;) Jakby nie to pisz.
Dzięki wielkie! Problem rozwiązany dzięki pomocy (at)lanzul :) Temat zamykam ;) Jednak nie zamykam... :cry: Mamy kolejny miesiąc wiec miałem okazję przetestować kod i... niestety problem dalej występuję. Mając w folderze tylko dwa pliki, jeden z datą modyfikacji z 21.06.18 i jeden nowy (modyfikacja 02.07.18) - excel dalej wyświetla ten starszy czyli...
problem z odczytem danych metodą ADODB z innego arkusza Excel będącego na udziale sieciowym i który może być otwarty przez inną osobę na swoim komputerze 1. Nie "arkusza" tylko zeszytu (pliku, skoroszytu) - "arkusz" to zakładka znajdująca się w zeszycie 2. Skopiuj - kodem vba - plik z udziału sieciowego na swój komputer, pobierz odpowiednie dane, a...
aktualny katalog powinien być folder gdzie rozpakowałeś - 2. Excel - Plik - Otwórz - Przejdź do tego folderu - Wynik.xls Dodano po 2 Nie wiem który sposób folderów na Twojem komputerze, więc ścieżkę do plików jest '.\'
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...
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...
Na zakładce Pliki w komórce C4 masz podaną ścieżkę. Jaką wartość tam zwraca funkcja? Jak długa jest jej nazwa, nie przekracza ok. 220-230 znaków? Wygląda to na poprawną ścieżkę, która istnieje? Upewnij się, że nie kończy się znakiem \. Skopiuj testowo cały katalog (a najlepiej użyj świeżej, pustej kopii ze strony) do jakiejś krótkiej lokalizacji, np....
bzdury typu. Jakieś dziwne katalogi których nigdy tam nie było o takiej nazwie. Katalog w którym powinno być ze 20 plików to jest tylko 1
Jak otworzyć plik za pomocą makra z aktualną datą np. Zm_14_09_16? Sub Raport_Zmianowy() Dim Katalog As String Katalog = "\\Poluser1\dyspozytorzy\Asystent\Doba\D... 'miesiąc Shell "explorer.exe " & Katalog, vbNormalFocus End Sub Mam możliwość wyboru z katalogu, nie wiem jak się zabrać za kod, który porówna mi np. 14 z datą systemową....
Ten fragment kodu jest poprawny i u mnie działa. Upewnij się że katalog pliki jest na tym samym poziomie co plik który odpalasz i są w nim pliki .xls
No więc wpisałem coś takiego ale pojawia mi sie komunikat Run time error 424 - Object required :( [syntax=vbscript]Sub Zapis For Each ws In Worksheets If ws.Name <> Arkusz2.Name Then katalog = "C:\Users\KrzyszW1\Desktop\Dystrybucja V5\" & ws.Name ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:=katalog & "\cennik.pdf", Quality:=xlQualityStandard,...
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.
pendrive 1gb partycja fat32 1981408 lba 8 sektorow w klastrze liczba sektorow jednej tablicy fat 1932 razem z kopja 3864 fat1 95lba ilosc 1932sektora fat2 2027 ilosc 1932sektora 3959 lba (32sektora) w tym sektorze powinien byc katalog root . Z tego jak kolega szybko podal pierwszy obrazek mysle zrozumi ze nalezy sprawdzic zgodnosc kopji fat musza byc...
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, Szukałem ale nie znalazłem więc nowy temat. Poszukuje rozwiązania problemu jaki napotkałem w pracy. Mianowicie mamy bazę w pliku excel który jest plikiem udostępnionym w sieci lokalnej, i udostępniony z poziomu excela, tzn. że może na nim pracować jednocześnie kilka osób (włączona funkcja "Udostępnij skoroszyt") Po sieci lokalnej wszystko chodzi...
: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ę...
Witam, Mam problem, gdyż wrzuciłem do kosza i usunalem przypadkowo katalog z plikami excela (katalog znajdowal sie na pulpicie, czyli na partycji systemowej). Probowalem wielu programow do odzysku danych i za kazdym razem programy odzyskuja tylko skroty do tych plikow. Nie wiem jak sobie z tym poradzic a sa to bardzo wazne dla mnie pliki. Prosze o pomoc
Miejsce pliku i zapis są na tym samym serwerze, mapowanie raczej się nie zmienia ponieważ korzystam z makra, które otwiera mi konkretny katalog na serwerze i wysyła z niego pliki, w stronę zapisu nie mogę złożyć konkretnego kodu, żeby działało wszystko poprawnie.. Poniżej przykład wysyłania plików z konkretnego katalogu: [syntax=vb] Dim OutApp As Object...
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ł...
Witam, bardzo proszę o pomoc w edycji mojego makra, którego początek wygląda tak: [syntax=vb]Dim dWkb As Workbook, wrs As Long, ostW As Long Dim dArk As String, katalog As String, nazwa As String, plik As String Const haslo As String = "1" Set dWkb = ThisWorkbook dArk = ActiveSheet.Name wrs = 1 katalog = "\\WARW8HP1\data$\Desktop\PROJEKT\tekstó...
olcha0098 - katalox w xls który tam zamiesciłeś jest niezły :) czegoś takiego wlasnei szukalem :) czym mozna ten plik otowrzyc bo nie mam pojecia...sciaglem pare programow niby z tym rozszerzeniem a nic nie dziala a exela niestety nie mam :cry: Witam. Możesz zainstalować np. - Excel Viewer 2003 PL - http://dobreprogramy.pl/index.php?dz=2&a...
Puki co sprawdziłem pod Excel 2003 i z drobnymi poprawkami działa. Później sprawdzę pod Excel 2007 Tu musiałem poprawić [syntax=vb] Dim i, wiersz As Long ' dodałem zmienną wiersz = 2 ' wartośc początkowa zmiennej fold = Range("B4") ' komórka w której znajduje się ścieżka dostępu do głównego folderu myvar = FileList(fold & "\" & dato) 'TU zmiana 'wywołanie...
[syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, Arkusz As String, x As Integer, k() As String Dim lw As Long, nw As Long Sheets("Sciezki").Select lw = Cells(Rows.Count, "A").End(xlUp).Row ReDim k(lw - 1) For x = 0 To lw - 1 k(x) = Cells(x + 1, 1) Next Sheets("Import").Select nw = Cells(Rows.Count,...
katalog excel katalog części excel katalog zamiennik katalog zamiennik
voyager zmiana silnika spieniać mleko magnifica diora ws704 schemat
politechnika wrocławska szlifierka stołowa
New Holland TS135A – która cewka odpowiada za włączenie wałka WOM, numery części, lokalizacja Xerox WC6605 Windows 10 – profile koloru, sterownik, ustawienia ICC, problem z zapamiętywaniem
