Nie dajesz przykładowych plików więc trudno to ustawić do Twoich potrzeb :cry: Proponuje spróbuj coś w tym stylu (po dostosowaniu do swoich potrzeb ścieżki, nazwy plików, arkuszy i zakresów :!: ): [syntax=vbscript]Sub Import() Dim xlapp As Object Set xlapp = CreateObject("excel.application") Dim wb As Object Set wb = xlapp.Workbooks.Open("C:\Test\Nazwa.xls"...
Innymi słowy nazwy plików jak i nazwy arkuszy w "" a poprawnie jest wokbooks a nie workbook
Od razu mówię, że nie mam większego pojęcia o makrach. Potrzebuję zrobić coś takiego, aby zapisywane pliki (o rozszerzeniu *.csv) miały nazwy z komórki (od F1 do L1). W zawartości pliku np. 1.csv (nazwa z kolumny F1) były: w kolumnie "A" wartości od B2 do B6 a kolumnie "B" wartości od F2 do F6. Do tego pentla aby tak samo zrobił dla pozostałych kolumn...
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...
.. Kod, który mi podałeś powoduje, że w "pliku synchronizującym" w arkuszu1 wrzuca mi w formie tekstowej wszystkie nazwy plików z katalogu C:\LQA, natomiast nie importuje arkuszy.. Nie robisz niczego źle - doklanie tak działa. W komentarzu wewnątrz kodu napisałem Ci gdzie go zmodyfikować do swoich celów. Nie sądziłem, że oczekujesz gotowca? Jeżeli...
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...
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...
No, w takiej formie to można już coś tam pokombinować... Zobacz pliki z załączników. Po kliknięciu przycisku "Import order" możesz wybrać plik z zamówieniem - ważne, żeby miał taki układ danych, jak w testowym zamówieniu. Plus wszystkie rzeczy, o których wcześniej mówiłem - wyjątkiem jest lista klientów w pliku produkcyjnym - jednak nie musi być taka...
Nazwy obiektów są typu String , więc wystarczy "poskładać" Np makrem: Range("C3")=Workbooks("Zeszyt_Nr" & zmienna & ".xls").Sheets("Arkusz1").Range("A1") Plik musi być otwarty. Lub formułą w arkuszu: =ADR.POŚR(ZŁĄCZ.TEKSTY("'[!Zeszyt_Nr";C1... Gdzie Nr wpisany jest w komórce C1 (tu również plik musi być otwarty). Możesz dodać łacza...
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,...
Wyszukiwanie konkretnego pliku Excel w folderze i następnie usunięcie tego pliku. Szukam podpowiedzi, jak stworzyć makro, które znajdzie np. trzeci plik w danym folderze i usunie go za pomocą funkcji Kill. Stworzyłem już makro, które usuwa mi wszystkie pliki w danym folderze. Głównie chodzi mi o to, żeby tworzyć kopie zapasowe pliku Excel w danym folderze,...
Załączam blik BAZA.xlsx do, którego miałyby się zaciągać dane do kolumny C i D. W kolumnie E jest nazwa protokołu, która jest jednocześnie nazwą pliku tyle że bez .xlsx. Nazwy plików będą wg wzoru XXX-YYYY.xlsx gdzie XXX - kolejny numer, YYYY - rok. W Arkusz2 w komórce B2 jest ścieżka w której będą pliki protokołów - ścieżka jest niezmienna. Funkcja...
Dziękuję za pomoc. Spróbuję rozwiązać ten problem. Narazie robie tak ze przy skanowaniu zmieniam ręcznie nazwę na określony nr Zlecenia. Potem mam napisane makro gdzie automatycznie pliki .pdf powiela się z komorkami w excel o tej samej nazwie w bazie danych jako hiperłącza. .
No już wiem, tylko otwarte pliki i wtedy link bez nazwy dysku i katalogów Moim zdaniem niekoniecznie ;) Można wykorzystać pewne rozwiązanie "formułowe" (a raczej "nazw formułowych") np. tak jak na zrzucie 1211827 Rozwiązanie nie jest doskonałe tak jak może być kod VBA, Excel nie zapamiętuje lokalizacji linkowanych plików i konieczne jest przy przeliczaniu...
I znowu nieprecyzyjnie Kolega napisał. Założenie powinno być takie, że wpisujesz swój 'numer' w komórkę A1. W komórce B1 jest formuła WYSZUKAJ.PIONOWO(A1...', która zwróci ścieżkę do pliku. I dopiero wtedy, jeżeli istnieje taki plik, to go wydrukować, prawda? Pytam, bo jedynie mogę się tylko domyślać. Dziękuje bardzo. W zasadzie udało się wszystko...
Jak formuła służy temu Jeśli data jest postaci tekstowej to możesz wykorzystać funkcję ADR.POŚR() :idea: , ale ciekaw jestem w jakim systemie możesz zatwierdzić nazwy plików wg Twojego przykładu :D
Cześć, Chciałabym stworzyć dynamiczne hiperłącze. Mam tabelę w której powiedzmy w kolumnie A mam zapisane nazwy ofert - KK-0001-2022 , KK-0002-2022 , KK-0003-2022 itd w katalogu podrzędnym o nazwie OFERTY mam pliki pdf, które mają dokładnie takie same nazwy jak te oferty z kolumny A - KK-0001-2022.pdf Chciałabym utworzyć dynamiczne hiperłącze do tych...
[syntax=vbscript]Sub Pliki() Sciezka = "C:\" ow = Cells(Rows.Count, "A").End(xlUp).Row For x = 1 To ow Plik = Sciezka & Range("A" & x) & ".xlsx" If Dir(Plik) = "" Then f = True Exit For End If Next If f Then MsgBox "Plik " & Plik & " nie istnieje.", vbCritical, "UWAGA" End Sub [/syntax] W kolumnie A umieść nazwy plików.
Jak zrobić kopiowanie danych z pliku X do pliku Y Excela za pośrednictwem przycisku w pliku pomocniczym Z Excela Czyli np. X(B5) do Y(C6) ; X(D7) do Y(H5) itd w sumie kilka komórek do skopiowania. Dane kopiowanych komórek zawsze będą takie same. Pliki X i Y mogą być otwarte ale idealnie byłoby jakby z poziomu arkusza w pliku Y można było wybrać (wskazać)...
Ale ta nazwa starego folderu ma być odczytana z nazwy pliku pdf?
Dzień dobry Mam kilkanaście plików excela. W każdym jest jeden arkusz. Potrzebuję połączyć te arkusze w ten sposób by powstał jeden plik z wieloma arkuszami. Dane miałyby być niezmienione tj. formuły przekopiowane jak w źródłowych plikach. Formatowanie by było zachowane Nazwy arkuszy w pliku wynikowy np. jak źródłowych, ale to obojętne mogę sobie pozmieniać....
Witam mam taki problem mianowicie w programie Word i Excel z Microsoft Office nazwy plików zapisują się z rozszerzeniem np. dla pliku zapisanego w word 2003 jest nazwa.doc a w przypadku pliku zapisanego w excel jest nazwa.xls. Jak można zrobić aby rozszerzenia plików nie były widoczne w nazwach pliku?
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.
ale nie wiem jak to poprawić, żeby osiągnąć zamierzony rezultat, czyli zapisanie 3 plików za jednym razem. Ja "widzę" to tak łącznie z "przerobioną" instrukcją 'if' [syntax=vbscript]Sub forum_ory() Dim plik, plikpdf, strThisFolderPath, pulpit As String plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls),...
Witam, próbuje stworzyć universality plik Excel PQ do odczytu danych z grupy plików csv w folderze. W danej grupie pliki csv będą miały taka samą strukturę (ilość kolumn i nazwy kolumn). Plik Excel ma obsługiwać rożne grupy plików csv które będą się różnic ilością kolumn i nazwami. Potrzebuje zrobić dynamiczne pobieranie nagłówków, może ktoś z was ma...
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...
Możesz sobie dostosować makro z załącznika. Dziękuję bardzo piękna sprawa, kopiuje założone dane i wkleja je tam gdzie potrzeba. Pozostaje tylko dodanie nazwy pliku do wklejanych danych, a to ze względu iż plik dawcy nie ma informacji identyfikujących. Programik generujący pliki daje identyfikacje tylko po nazwie pliku... Czy ktoś może pomóc w tym...
Cześć, Istnieje sposób otorzenia folderu za pomocą vba excel podając jego niepełną nazwę? Mam w jednym katalogu szereg folderów, które określa np 10 pierwszych zsnaków, reszta to opis użytkownika. Czy jest możliwosć otwarcia folderu podając tylko 10 pierewszych znaków, reszta dowolna. W przypadku plików można określić zmienną używając " * ", dla folderów...
https://obrazki.elektroda.pl/1034843600_... Czyli mamy tak: 1) Okienko ze zmiennymi danymi. Są tutaj ograniczniki prędkości: RQ-250, LK-250, LK-200 itp. Po prostu wcześniej będzie się wybierało w projekcie dany element i w tym okienku będzie właściwa nazwa. 2) Mamy guzik kopiuj który po kliknięciu robi całą operację. 3) Kopiujemy po...
http://obrazki.elektroda.pl/4774308800_1... Jeśli korzystasz z programów z pakietu LibreOffice to z pewnością ucieszysz się, z powstania Open365. Podobnie jak LibreOffice jest to darmowy i otwarty pakiet, który ma być alternatywą dla 'następcy' Microsoft Office, działającego w chmurze Office 365. Open365 jest aktualnie w fazie beta-testów....
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ę
*Aldrin jezeli dobrze Cie rozumiem to dla kazdej kopiowanej komorki z pliku zleceniexxx mam zastosowac petle, ktora bedzie przenosic/kopiowac wartosci ze zleceniexxx do zestawienie_szef ?? Dodano po 14 wstepnie widze, ze ten skrypt bedzie mi pomocny :) Sub OperacjeHurtowe() Dim wbkSkoroszyt As Workbook Dim i As Long, szukWiersz As Long, wiersz...
Dzień dobry wszystkim zaawansowanym programistom :) Zdecydowałem się poprosić o pomoc, bo sam nie mogę sobie poradzić, mimo upartego czytania różnych stron i forów na temat vba w excelu. Po wielu kombinacjach, które doprowadziły mnie "nigdzie" pomyślałem, że są ludzie, którzy chętnie pomagają przy tego typu sprawach. Chodzi mi o to, aby zapisać plik...
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...
Cześć, Chce skopiować dane z 2 plików Excel do 3. Znam ścieżkę plików ale nazwy będą miały tylko znaną podstawę - reszta będzie zmienna. Poniższy kod otwiera 2 pliki ale za nic nie potrafię dopisać kopiowania danych do 3 pliku. Wystarczy mi jakiś przykład rozwiązania, potem sobie poradzę. Proszę o pomoc. [syntax=vbscript]Sub Kopiuj3do1() Dim Nazwa1...
Witam. Bardzo dziękuję makro działa naprawdę super i BARDZO mi Pan pracę ułatwił !! :) Jeżeli mogę jeszcze prosić o pomoc. 1. Nie kasuje komórek z zakresu br.Sheets(s).Range("39&... Ale w w sumie nie problem :) 2. Czy...
witam, natrafiłem na problem związany z nazwą pliku. Mianowicie makro będzie zapisane w jednym pliku, a dane będą zaciągane z dwóch różnych plików .xlsx o zmiennej nazwie. Nie wiem za bardzo ja zadeklarować nazwę tych dwóch pliku tak aby makro działało niezależnie od nazwy.
...Prawdopodobnie zadziałał CHKDSK patrząc na stan dysku... CHKDSK nie tworzy jakiegoś logu? Tak żeby można było sprawdzić kiedy był uruchamiany? Czy coś niepokojącego dzieje się z dyskiem? ...Spróbuj zmienić rozszerzenia tych plików na .xlsx i je otworzyć...Oczywiście posłuchałeś Łukasza i pracujesz na kopii... .tmp zmienione na .xlsx oraz dodanie...
nie rozpoznaje nazwy pliku: Workbooks.Open Filename:=("C:\Users\Uzytkownik\Desktop\... & nazwa & ".xls") tzn? masz w katalogu [syntax=dos]C:\Users\Uzytkownik\Desktop\... pliki o nazwie 62-200.xls , 00-001.xls itp. ?
Witam, problem polega na tym, że posiadam dwa spore pliki w programie excell 64 Mb i 66 Mb. W każdym z plików, w każdym z wierszy znajdują się w osobnych komórkach NAZWA i szereg odpowiadających im wartości liczbowych. W jednym pliku mam 27 tys. wierszy na 102 kolumny, w drugim podobnie, przy czym niektóre nazwy w obrębie danego pliku się powtarzają,...
Tam jest ceesfałka. Może [syntax=vb]Workbooks.Open "http://stooq.pl/q/d/l/?s=bal&d1=2013012... nazwy jakieś tam (nie wnikałem) pasują z nazwami plików .csv...
Witam, mam pewien problem, aby poprawnie zapisywać nazwę pliku w moim makrze. Działa ono w ten sposób, że ze wskazanej lokalizacji pobiera plik tekstowy, zamienia go na xls i robi różne cuda. Do tej pory wszystko jest w porządku, problem pojawia się kiedy chcę, aby każdy z tych plików był zapisany pod odpowiednią nazwą- inną niż nazwa pobranej tekstówki....
Witam. Mam trywialne zagadnienie: W jaki sposób zmusić excella do wpisania nazwy pliku w dowolnie wskazanej komórce ? pozdrawiam. R.Wieczorek
Witam! Jestem nowiutkim użytkownikiem tego forum, dlatego jeśli coś zrobię nie tak to proszę o wyrozumiałość. Moja znajomość obsługi Excela nie jest wielce zaawansowana, dlatego bardzo potrzebuje pomocy, bo nie mam pomysłu jak się za to zabrać dalej. W skoroszycie "Lista plików", w arkuszu "podsumowanie" za pomocą Power Query mam w kolumnie A listę...
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"
Porownaj sciezka & "*a1*_19*.xlsx*", z plików 1_19, 2_19, 3_19, ..., n_19 Jakie rzeczywiste nazwy plikow?
Witam serdecznie, poszukuje pomocy w przekształceniu poniższego kodu. Chciałabym wczytywać kilka plików Excel na raz a nie pojedynczo oraz aby nazwy zakłady odpowiadały nazwy wgranym plikom. Dziękuje za pomoc [syntax=vbscript]Sub Wczytywaniedancyh() Dim otwieranie As String Dim plik As String Dim kopiowanie As String Workbooks("Panel").Activate otwieranie...
Jest to Excel (przynajmniej w pracy) w domu mam LibreOffice Calc i z niego otwieram plik Excelowski więc stąd zamieszanie. Mam kilkaset plików z rozliczeniami o nazwach wg formatu "rozl-XXXX-2020.xls" (gdzie XXXX to kolejny numer rozliczennia. Każdy z tych plików ma identyczny układ - w kolejnych kolumnach są nazwy działów firmy a pod nimi kwoty. Potrzebuję...
Przetestuj załączony plik. Plik do którego dane będą zbierane nie musi być w tym samym katalogu co pliki z danymi. Zakładam, że w każdym pliku z danymi arkusz z którego pobierane będą dane nazywa się "Arkusz1". Jeśli nazwy są zmienne to trzeba będzie bardziej pokombinować.
Chcę dołączyć dane z plików do arkusza. Pliki są binarne o stałej długości. W arkuszu są w kolumnie nazwy tych plików. Jest ich kilkaset. Trzeba z każdego z nich wyciągnąć dwa bajty z określonej pozycji i dołączyć do arkusza w odpowiedniej pozycji. Nie są to pliki tekstowe a zapis bezpośrednio z maszyny. Urządzenie pisze wartości szesnastkowe do pliku...
Witam, Potrzebuje pomocy w kodzie vba mianowicie chciał bym aby plik excel importował dane z plików xml. z danej lokalizacji. pliki xml wszystkie w nazwie posiadają początek nazwy FV_ - chodziło by mi o to iż każdy nowy plik znajdujący się w lokalizacji: C:\fv\ został zaimportowany do pliku excel do nowego wiersza. dodatkowo w nowym arkuszu żeby zapisywała...
Do autora: Proszę się nie dziwić, że mamy wątpliwości. Zmiennych może być więcej niż się z pozoru wydaje. Na oko sprawa jest zupełnie prosta, ale... Gdybym w ten sposób miał sobie upraszczać pracę, zrobiłbym to tak: Pętla (Np przedstawiona PRL ) "wydłubuje" mi wszystkie nazwy plików wg wzoru, "przy okazji" sprawdzając [url=https://www.elektroda.pl/rtvforum/t...
[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ć.
Witam, Excel 2003. Mam taki oto wzór: =JEŻELI(CZY.BŁĄD(JEŻELI([1.xls]Arkusz1!$... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór """)));"błąd";JEŻELI([1.xls]Arkusz1!$L$1... 3231";"3231";JEŻELI([1.xls]Arkusz1!$L$12... 231";"231";"Błąd, sprawdź wybór"""))) Jak widać są odwołania do plików zewnętrznych. Problem...
A dlaczego wklejasz przez kopiuj, wklej? Przecież w takich przypadkach poprawki się nie będą nanosić w Wordzie. Spróbuj w Excelu zrobić kopiuj a w Wordzie wklej specjalnie - potem wybierasz obiekt MS Excel. Każda zmiana w pliku excelowskim bedzie widoczna od razu w Wordzie. Inny sposób to w Wordzie robisz kopiuj specjalnie - zaznaczasz link do Excela....
brakujące nazwy plików długie nazwy plików zmienione nazwy plików
trafo rzutnika schemat płyty indukcyjna regulator wentylatora chłodnicy peugeot
Vermona Regent 1020 – dane techniczne, schemat, moc, tranzystory, NRD VW Tiguan 2.0 TDI 2011 – grzejące się tylne tarcze hamulcowe, EPB, przewody, diagnostyka
