Zamiast [syntax=vb] .Sheets(4).Range("a3:a3").Copy ThisWorkbook.Sheets("Arkusz2").Range("c" & n2 + licznik & ":c" & n2 + licznik)[/syntax] zapisz [syntax=vb] .Sheets(4).Range("a3:a3").Copy ThisWorkbook.Sheets("Arkusz2").Range("c" & n2 + licznik & ":c" & n2 + licznik).PasteSpecial xlValues Application.CutCopyMode = False [/syntax] itd.
np. dla 2revD jest plik ze 16 arkuszy, ma takie makro(nie testowano) [syntax=vb]Sub importuj() Dim sbr As Workbook Set sbr = ThisWorkbook pth = "D:\DaneKlijenta\L" 'sciezka do katalogow For s = 1 To 16 Workbooks.Open pth & s & "\2 rev D.xls" Range("a10:a448").Copy sbr.Sheets(s).Range("A1") Range("d10:d448").Copy sbr.Sheets(s).Range("B1") Range("e10:e448").Copy...
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...
[syntax=vb]Sub Importuj() Dim Plik As String Plik = Dir("C:\DoImportu\*.txt") Do While Plik <> "" 'Tutaj to, co już umiesz, czyli import pliku (zmienna Plik) Plik = Dir Loop End Sub [/syntax]
Czy w takim razie mogę prosić o pomoc na przykładzie tego pliku z zalacznika? Jeśli wszystkie pliki CSV mają taką strukturę jak w Twoim załączniku ? - to proponuję wykorzystanie tutaj pętli realizującej odpowiednio skonfigurowany import danych tekstowych ! Po uruchomieniu makra z pliku KonwertCSV-XLSX.XLSM - konieczne będzie wskazanie folderu roboczego...
chce żeby z danego folderu pobrało dane ze wszystkich plików Import wielu plików jest w miarę uniwersalny, a 2020 jest przerobiony dla Ciebie.
Witam. Proszę o poradę w jaki sposób można zrealizować następujący problem. Mam pewien skoroszyt tworzony na każdy dzień. Dane zawierają informację o dostawach towaru w danym dniu -> Ilość kolumn od A do Z -> oczywiście mają one swoją nazwę . Liczba wierszy wykorzystanych w danym dniu jest oczywiście zmienna. Unikatowym polem jest Numer_dostawy. Co...
Dziękuję za odzew. Do pliku zapisywanych jest dwa razy po 500 pomiarów, wartość pomiaru zmienia się co 500 wierszy, więc gdy zmieni się np.: w 11 wierszu, to następna zmiana będzie w wierszu 511 a następna w nowym pliku około 11 wiersza, wiec gdy wezmę wiersz 1 i 501 na pewno będę miał 2 odrębne pomiary. Do tej pory w wczytany plik wstawiam w kolumnie...
Witam. Chciałbym stworzyć wyszukiwarkę produktów. Na razie korzystam z mało ciekawego rozwiązania. Wyszukuje produktu po ID za pomocą funkcji podaj.pozycje w innym pliku. Następnie za pomocą makra wyszukuje dany wiersz i kopiuje cały do arkusza. Niestety za każdym razem muszę modyfikować funkcję podaj.pozycję zmieniając nazwę pliku i skoroszytu. Plik,...
(at)ElektrodaBot - inotify wypróbowałem prawie rok temu, chyba działa dobrze, ale zdążyłem zapomnieć - trochę pamiętałem, że chyba coś takiego jest, ale już nie byłem pewien, a przede wszystkim nie pamiętałem nazwy, więc nie wiedziałem, czego szukać. Mam nadzieję (nie wypróbowałem), że do zdarzeń inotify można już zastosować select()? Przydałoby mi...
Nie rozumiem pusta formuła Przecież formuła, którą Ci napisałem nie będzie pusta pod warunkiem, że w komórce o przykładowym adresie "komórka" będzie jakiś tekst. A nawet jak nie będzie to formuła zwróci osiem spacji.
Za pomocą Access importuje z 4 xls dane z arkusza 2 Jeśli wprowadzane dane mają te same nagłówki i scalane mają być w jednej tabeli :?: To bez żadnych kombinacji z kwerendami dołączającymi proponuję wykorzystać możliwości importu danych z plików xls (np. tak jak na zrzucie) 1158304 W takiej procedurze importu (dla mnie :D ) bardzo pomocne jest oznaczenie...
https://obrazki.elektroda.pl/2123084800_... Przedstawię tu cztery praktyczne sytuacje w których ChatGPT rzeczywiście pomogło mi w programowaniu. Sytuacje będą obejmować różne języki i tematyki, będzie C i wyświetlacz 7-segmentowy, będzie Javascript, trochę HTML, a również Winsock i wysyłanie żądania HTTP. Nie zapomnę też o prostej...
Ma byc tyle arkuszy ile jest plikow *.txt w folderze IMPORT + ktorze juz byly. Makro8 zmienić tylko początek, resztę kodu jak w Ciebie
Dzień dobry, natrafiłem na problem którego nie potrafię rozwiązać :) VBA działa poprawnie i ładuje pliki: [syntax=vbscript]Sub Import_multiple_csv_files() Const strPath As String = "C:\Users\p.banaszak\Desktop\ARCH\" 'Directory Path Dim strFile As String Dim strFileList() As String Dim intFile As Integer strFile = Dir(strPath & "*.csv") While strFile...
http://obrazki.elektroda.pl/8000762600_1... W większość projektów, które realizował autor tego poradnika w oparciu o Raspberry Pi wykorzystywał on piny GPIO jako wejścia i wyjścia cyfrowe. Wyprowadzonych na płytce RPi jest 17 takich pinów. Co zrobić jak potrzebujemy więcej? Najprostszym sposobem zwiększenia liczy wejść i wyjść cyfrowych,...
Jeju. Aleś się napisał. Pan Tadeusz przy tym to pestka. :D A wystarczą dwie linijki kodu nie licząc deklaracji. [syntax=vb]Sub OtwórzTekstowy() Dim strPlik As String strPlik = Application.GetOpenFilename Workbooks.OpenText strPlik, xlWindows, 1, xlDelimited, xlTextQualifierDoubleQuote, False, True, False, False, False, False End Sub [/syntax]
https://obrazki.elektroda.pl/1799550900_... Obostrzenia związane z pandemią ograniczyły lub zatrzymały działalność wielu firm, czy lockdowny wpłynęły na zapotrzebowanie mocy w KSE? Na stronach PSE od dawna dostępne są dane o https://obrazki.elektroda.pl/3082811200_... Niebieski wykres za 2019 osiąga wyraźnie większe...
Uzupełniłam dane w pliku do którego mam importować dane, mimo to w dalszym ciągu nie następuje import danych. Skorzystałam z gotowego szablonu od PRL. Czy ktoś mi powie dlaczego?
Do arkusza 1 zgadzało by się to co napisał kolega wyżej, to niby info od kogoś z rodziny. Bo z rozszyfrowanych plików baz, właśnie w pierwszym arkuszu występuje tabela "książki." Być może zestaw 2 będzie w gdzieś w innych porach też. Więc egzamin czwartowy zestawu 1 może wyglądać tak: [edit - delty itd. nie będzie w arkuszu 1!) - program w php ktory...
http://obrazki.elektroda.pl/4298564100_1... Zdalny dostęp do Raspberry Pi nie jest sprawą trywialną. Z jednej strony chcemy móc monitorować pracę naszego systemu poprzez sieć, ale z drugiej strony nie chcemy, aby każdy miał taką możliwość, nie mówiąc już o zdobyciu dostępu do maszyny. Co zatem zrobić, aby dostęp dla nas był łatwy, a...
Excel nie ma szans, zapomnij, prędzej sqllite lub MySQL, zależy jeszcze co jest w tych plikach, czy jeden wiersz rownalby się jeden rekord w tabeli, czy kilka kolumn, jaki typ danych zawiera, text? Liczby? Nikt nie jest wróżka 🔮, opisz dokładnie co jest w przykładowympliku, co chcesz uzyskać w efekcie końcowym. 3,5Gb w txt, to w Excelu jak pisał...
Nie jestem pewny, czy Koledze o to chodzi, ale poniższy przykład możesz sobie przerobić: [syntax=vb]Sub ImportujPlikizWieluLokalizacji() ' Plik do którego importujemy musi zawierać arkusz 'Import', gdzie importujemy dane ' oraz arkusz 'Paramety', gdzie: ' w kolumnie A umieszczamy pełne nazwy ścieżek, np. C:\PlikiExcela\, \\NazwaKomputera\UdostepnionyUdzial\,...
nie wiem jak zastosować sumę warunków W przedstawionym pliku czas(3) starałem się wykorzystać optymalne dla Twojego zadania (IMHO :D ) - formuły tablicowe. Oczywiście można próbować i innych rozwiązań - choć ze względu na "jakość" danych efekt będzie równie cząstkowy. W w/w arkuszu też masz możliwość filtrowania (po nazwiskach) całej tabeli i wówczas...
- Ja bym jeszcze dodał polecenie Close (1) Open Plik For Input As #1 Jeżeli wystąpi błąd w trakcie wczytywania, excel lubi zostawić zablokowany plik tekstowy, skutkiem czego kolejna próba wczytania się nie powiedzie. Próba zamknięcia przed otwarciem zapobiegnie temu. - W pętli For Each Wyraz In TabWyrazow If Wyraz = "Event" Then j...
Nie napisałeś w jakich plikach masz te dane. Jeżeli są to pliki tekstowe txt to na stronie www.e-kanban.pl masz rozwiązanie. W prawym górnym rogu znajduje się link do artykułu o masowym imporcie danych z plików tekstowych do poszczególnych arkuszy skoroszytu. Jeżeli są to pliki xls to konieczne będzie inne podejście.
Oczywiście. Co prawda w batchu też by się dało ale wygodniej zrobić to PowerShellem. Wtedy można to zupełnie zautomatyzować. Np.: foreach ($i in get-childitem *.csv) { if ($i.name -eq "1.csv") {(get-content $i)[0..((get-content $i).count-1)]|add-content wynik.csv} else {(get-content...
Tak jak w temacie, mam nadzieję, że coś pomoże. Komunikaty przekopiowane żywcem z forum sklepu PCProjekt. 0. 0x0000 Operacja zakończona pomyślnie. 1. 0x0001 Niewłaściwa funkcja. 2. 0x0002 System nie odnalazł określonego pliku. 3. 0x0003 System nie odnalazł określonej ścieżki. 4. 0x0004 Otwarcie pliku jest niemożliwe. 5. 0x0005 Brak dostępu. 6. 0x0006...
Czy istnieje taka formuła, która umożliwiałaby automatyczną aktualizacje danych ... dodam, że formuła ADR.POŚR działa tylko gdy plik jest otwarty na kompie Jedynym, chyba, sposobem odwołania się poprzez 'formułę' do komórki z zamkniętego pliku jest 'formuła ręcznego pisania'. Przykład pobrania zawartości komórki ' A4 ' z arkusza ' Arkusz1 ' z pliku...
Nie ma opcji importu danych z pliku *.pst? Menu PLIK -> Otwórz i eksportuj -> Importuj / Eksportuj -> Import z innego programu lub pliku (.pst)?
Ad1. Mniej więcej taki kod: [syntax=vb]Sub Konsoliduj() Dim tTbl() Dim i: i = 1 For Each MyWorksheet In ThisWorkbook.Worksheets If (MyWorksheet.Visible = True) And (MyWorksheet.Name <> "Razem") Then ReDim Preserve tTbl(1 To i) tTbl(i) = "'" & MyWorksheet.Name & "'!R1C1:R2C2" i = i + 1 End If Next Selection.Consolidate Sources:=Array(tTbl()),...
Do tego służy import danych z tekstu. Plik .csv jest plikiem tekstowym. Tak jak napisałem te pliki są w formacie amerykańskim, więc jeśli masz polskiego Excela nie należy ich otwierać wprost, jak pliki .xlsx, tylko trzeba je otworzyć przez import z tekstu. Jest wtedy możliwość ustawienia sobie tych wszystkich separatorów. Należy otworzyć pusty dokument...
Czy można zmodyfikować powyższy kod, tak aby wszystkie dane były importowane? Tak :ok: proponuję zamienić na taki kod :spoko: [syntax=vbscript]Public Sub ImpCsv() Dim Monthly As String Dim aConn As Object If ActiveWorkbook.Connections.Count > 0 Then For Each aConn In ActiveWorkbook.Connections aConn.Delete Next aConn ActiveWorkbook.Names(1).Delete...
Witam wszystkich, jestem tu nowa więc jeżeli umieściłam temat w złym miejscu to przepraszam. Przeglądałam już forum i wiem, że były podobne tematy ale nie znalazłam rozwiązania dla siebie. Otóż mam do napisania makro w excelu, które automatycznie będzie zczytywać dane z pliku txt. Plik txt ma taką formę: ux wartość liczbowa1 uy wartość liczbowa1 ux...
W jednej z kolumn mam dane zapisane jak niżej. Część z tych liczb przedstawiane są jako data i chce je przetworzyć na liczbowe. Pojedynczo można to zrobić klikając prawym format i tam zmieniam w formacie dd.mmm na dd.mm następnie wchodzę w komórkę klikam enter . Ale dla kilkuset linijek takie formatowanie nie wchodzi w grę. 12.5 13.4 26.lut 09.lip
Nie wiem, jaki jest znak końca linii w Delphi, robiłam coś podobnego w C. Moim zdaniem najprościej dodać if-a sprawdzającego, czy pierwszym elementem jest znak końca linii (ewentualnie jakikolwiek biały znak), jeśli tak, to przejście do następnej linii, jeśli nie, to normalne pobranie zawartości linii.
Móglby Pan mi wyjaśnić skąd makro wie ,że "Dzien" będzie liczbą w takim formacie jak trzeba? tzn. YYYYMMDD Wyciag_Podst_20200219 <-- zmienną jest tutaj data w takim formacie
No ok, a gdzie pytanie? I podaj swoj kod :)
hibou1 , nie piszesz, w której wersji Excela pracujesz. Generalnie, nie należy takich plików otwierać przez dwuklik na ikonce/nazwie pliku, bo wtedy zdajemy się wyłącznie na domyślność Excela - a Excel wszystko co przypomina liczbę traktuje jak liczbę, a dokładność pamiętania liczb to 15 cyfr. Wszystko co ponad to jest zastępowane zerami. Dlatego zanim...
Serdeczne dzięki, ale jak to zrobić? No jak jak? Przecież podałem Ci gotowy kod... Nie wiesz jak wstawić przycisk? Patrz [url=https://www.youtube.com/watch?v=j9D...
mam problem z importem danych z Płatnika , a dokładnie chodzi o kreatora tworzenia nowego płatnika krok 4/6. w przeglądarce nie mogę odnaleźć *rep, ale gdy szukam w moich dokumentach poza płatnikiem to utworzoną bazę danych /na innym komputerze /widzę. import danych z pliku *rep mi się nie udaje, bo przeglądarka ścieżki w ogóle nie widzi. Jeśli ktokolwiek...
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...
Wszystko opiera się o jakieś makra, nie można tego zrobić za pomocą zwykłej formuły w excelu? :) No nie wszystko jak napisać w excelu formułe w której będe mogł importować dane z innych plików excela z możliwością wyboru konkretnego arkusza Np. tak - przykład pobrania zawartości komórki ' A4 ' z arkusza ' Arkusz1 ' z pliku (niezahasłowanego) o nazwie...
Jak bez wyboru to tak [syntax=vbscript]Szablon = "c:\twoj_szablon.docx"[/syntax]
W Excelu nie ma chyba możliwości importu tekstów rozdzielanych albo przecinkami albo tabulatorami Dotychczas można było. nie chce mi się wierzyć, że e 365 to usunęli. (at)adip1 w excelu zakładka dane - dane zewnętrzne import z tekstu - wskazujesz plik csv - i w kreatorze zaznaczasz rozdzielany dalej - ograniczniki: zaznaczasz tabulator i przecinek...
Gdyby 'Import_z_wielu_lokalizacji' Ci nie pasował, to daj znać.
(at)ElektrodaBot Popraw poniższy kod, żeby działał szybciej. [syntax=vbscript]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 Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic...
A może spróbuj inaczej. Daj użytkownikowi swój plik excel-a z makrem do importu arkuszy z danymi z jego pliku wg tego rozwiązania: https://msdn.microsoft.com/en-us/library... Wg mnie (ale to tylko gdybanie) przy zapisywaniu kodu źródłowego makra jest on translatowany do kodu pośredniego i raczej ciężko to widzę, że część kodu działa...
Możesz wyczyścić tabelę np tak [syntax=sql]DoCmd.RunSQL ("DELETE * FROM nazwa_tabeli")[/syntax] pozostanie tylko struktura a wszystkie dane wylecą.
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
W jaki sposób otwierasz ten plik? Zwykłe plik/otwórz czy kreatorem importu danych z pliku tekstowego (dane/pobierz dane z pliku tekstowego)?
odpalam w Excelu i konwertuję do CSV Jak już "zaprzęgłeś" do tego excela, to w vba można to zrobić, import txt - wyciągnięcie danych - eksport do kml.
import wielu plików importowanie danych wielu plików import plików
sprzedaż lampa karta pamięci uszkodzona jonnesway klucz
piece nadmuchowe piece nadmuchowe
Schemat generatora akustycznego GA-1 FPN Poznań, UNITRA-ZOPAN – mostek Wiena, żarówka, NTC Ustawienie gaźnika w pilarce Faworyt RG 5300 18