Był błąd - chyba go poprawiłem. Zmieniłem trochę całość - eksportowałem jako moduł bas - dołącz do swojego projektu i użyj. Również zamieszczam arkusz testowy z importowanym modułem. Użycie jest proste - zaznaczasz zakres komórek, na którym chcesz przeprowadzić zmiany i w menu Narzędzia -> Makro -> Makra uruchamiasz jedyne makro, jakie jest - zrób_gwiazdki....
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...
jednak wiersze dzieli na strony To nie jest największy problem. Najważniejsze, że struktura jest zachowana. Podam wkrótce kod. Dodano po 1 [syntax=vbscript]Sub Import() Set a = ThisWorkbook.Sheets("Arkusz 1") nw = 3 Set b = Workbooks.Open(ThisWorkbook.Path & "\Plik_B.xls") owb = Cells(Rows.Count, "A").End(xlUp).Row For X = 1 To owb If InStr(1, Cells(X,...
witam Mam taki problem Posiadam arkusz w którym mam powiedzmy w kolumnie A id produktu I w kolumnie C jego miejsce. W nowym skoroszycie tego arkuszu chcialbym po wpisaniu iD produktu automatycznie znalesc jego miejsce I wkleic w komorke np C W skrocie Po wpisaniu ID produktu Excel szuka w drugim skoroszycie czy takie ID juz jest A jezeli tak to importuje...
Witam serdecznie, mam problem w EXCEL'u z którym nie umiem sobie poradzić (jestem mocno początkujący w tym programie). Posiadam plik z 9 arkuszami, każdy ma swoją nazwę. Tworzę dziesiąty arkusz - a w nim chciał bym dać pracownikom możliwość zestawienia ze sobą danych z dwóch wybranych arkuszy. Zatem tworzę listę rozwijaną z nazwami arkuszy i tu pytanie:...
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...
Przetestuj [syntax=vb]Option Explicit Sub Import_TXT_FSO_SPLIT() Dim oFSO As Object 'File System Object Dim oFld As Object 'Obiekt Folder Dim oFls As Object 'Obiekt Plik Dim oTemp As Object Dim iRw As Integer: iRw = 1 'wiersz do którego wpisywane są dane Dim sItem As String 'katalog z plikami Dim sExt As String 'rozszerzenie pliku Dim fl As Object Dim...
No, już lepiej :) Jeszcze fragment Range("A1").Select ActiveSheet.Columns("F:F&qu... = "####-##-##" można zbić w jedną linijkę. Unikaj robienia SELECT kiedy nie musisz, poczytaj o tym tutaj, #TIP5: WorksheetExists = False For each ws in Worksheets if ws.Name = WorksheetName then WorksheetExists...
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...
Witajcie Mam dwa pytania co do Excela 2003. czy ktoś wie, jak to ogarnąć - bo to trochę dziwne w VBA: 1) w makrze do automatycznej konsolidacji wszystkich arkuszy w pliku do nowego arkusza. Konkretnie: jak wrzucić do tablicy funkcji [syntax=vb]Selection.Consolidate Sources:=Array([/syntax] -> i tutaj wszystkie arkusze na zasadzie: [syntax=vb]For...
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
W pierwszej komórce poza obszarem danych (albo drugiej żeby był odstęp) wpisać formułę konwertującą lewą-górną komórkę danych. Zaznaczyć wiersz komórek począwszy od tej właśnie wypełnionej formułą w prawo 10 komórek, potem ctrl-R. Zaznaczyć obszar od pierwszego, właśnie wypełnionego wiersza do ostatniego wiersza danych i ctrl-D. Poczekać aż formuły...
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ł...
Zrobiłem to na około ale działa, może komuś się kiedyś przyda. Skrypt otwiera excela, robi na nim działania - czyli tworzy nowy arkusz, kopiuje z Arkusza 1 odpowiedni zakres i wkleja do nowego. Następnie całość nowego arkusza jest zapisywana do tabeli w accesie. Pamiętajcie żeby dopisywać w accesie w moim przypadku "objExcel" - gdyż później nie chce...
Witam wszystkich serdecznie i chciałbym podzielić się takim oto problemem. Generalnie chodzi o import kilku danych z wielu plików XML do Excela 2016 za pomocą VBA. Nadmieniam, że próbowałem wyszukać rozwiązanie tego zadania, ale jedyne co udało mi się uzyskać to import całej zawartości wszystkich plików, ale nie o to mi dokładnie chodzi. Plików XML...
Po zaimportowaniu plików, potrzebuje właściwie dane z NP: A10,A14,A18,A22,A26,A30,A36,A57,A61 I tak dalej, potem z D10,D14,D18 oraz dane z E10:E14, potem z E15:E17. Jak w życiu bywa im dalej w las ty ciemniej, a gdybym jeszcze miał możliwość skopiowania do każdego z arkuszy L1....L16 dwóch arkuszy ze źródeł np: w komórki A1,B1,C1 - arkusz WQTR Form....
Jeśli w tych plikach ".csv" jest dużo danych, dużo linijek, to nie będzie to najlepsza metoda (ten załączony kod z odczytem linijka po linijce) odczytu tych plików - zbyt długo będą one otwarte. Lepiej by było to odczytywać przy pomocy LOF, np.: [syntax=vba] Open sciezka & plik For Input As #1 zaw_pliku = Input$(LOF(1), #1) Close #1 [/syntax] lub [syntax=vba]...
Każdy plik ma 1 arkusz Ja widzę 2.;)
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\,...
Są dwa wyjścia: Lepsze - wydzielony arkusz z listą dla sprawdzania poprawności danych, dziedziczony dla następnej kopii, aktualizowany co jakiś czas (min. 2 sposoby do wyboru). Wpisując nieistniejącą nazwę usuwasz formatowanie (najszybciej Ctrl+c, Ctrl+v komórki bez formatu). Lepsze inaczej: eksport listy do pliku tekstowego, import w nowym pliku, przypisanie...
Witam, Dziękuję za odpowiedź. Ja te pliki do analizy danych mam zrobione przez wpisywanie nazw plików, kolumn i wiersz oraz funkcje (bez makr) wyszukaj.poziomo, wyszukaj.pionowo, podaj. opozycję i przesunięcie - działa to w miarę sprawnie (chociaż dość długo czasem "mieli" to Excel) - ale trzeba wcześniej popracować "ręcznie" nad danymi źródłowymi ......
Jak zrobić odwołanie do arkusza w innym skoroszycie_2 gdzie nazwa arkusza to pozycja "A2" ze skoroszytu_1? =[skoroszyt2.xlsx]nazwa_arkusza!... nazwa_arkusza = pozycja A2 z dowolnego arkusza skoroszytu_1 Użyj funkcji [syntax=vb]=ADR.POŚR(A2)[/syntax] A dokładniej [syntax=vb]=ADR.POŚR("[skoroszyt2.xlsx]"...
Wypadałoby go skrócić, Można tak :please: jak na zrzucie :spoko: 1083288 żeby pobrać dane z innego skoroszytu Excel z wieloma arkuszami Nie potrzebujesz żadnych funkcji wyszukujących wystarczy bezpośrednie odwołanie, możesz zastosować odwołania tablicowe, albo import całych tabeli (czy faktur ?).
Potrzebuję zaimportować plik w formacie XML do programu Excell... Plik XML to raport z systemu RCP ROGER i chcę na tych danych popracować ... Z treści tego pliku wynika, że jest on utworzony przez program Master v.4. Czemu zatem importujesz ten plik do Excela ? Nie można analizować tych danych w firmowym programie Master ? Obawiam się, że zapis danych...
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"...
Jak najbardziej popraw to makro, nie będzie cię "przerzucało" i będzie działać nawet jak ukryjesz arkusz 0dane0 (właściwość Visable arkusza ustaw na 0). To co zmieniłem zaznaczyłem. Rozumiem że musisz dodać pełny adres źródła (nie wiem po co wykasowałeś ale twoja wola). Nie potrzebny jest teraz wcześniejszy kod makra dane kod kurs_2 sam załatwia wszystko...
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...
W arkuszu 1 w wierszach od 2 do 30 brak formuł W arkuszu 2 w tabeli w kolumnie "J" muszą być wartości większe niż zero to w wierszu8 i 9 będą wartości. Pozdrawiam
Poprosze o przyklad jesli: - sciezki, w ktorych sa excele to: "\\ctsdmoia.ctti.local\Pet.res 201404" i "\\ctsdmoia.ctti.local\Pet.res 201403" - plik docelowy excel,do ktorego bede importowal ma nazwie "ekstrakt" i jest w "\\ctsdmoia.ctti.local\" - komorki, ktore potrzebuje importowac to "D4" i "B3" Sciezki wpisz, jak w załączonym pliku, w arkuszu 'Sciezki'....
Spróbuj [syntax=vb]Sub Makro_kopiowanie() ' This macro will import a file into this workbook PathName = Range("D3").Value Filename = Range("D4").Value ControlFile = ActiveWorkbook.Name wrs = 5 'nazwy arkuszy od "D5" Workbooks.Open Filename:=PathName & Filename Windows(ControlFile).Activate With Sheets("Podsumowanie") Do While .Cells(wrs, 4) <>...
[syntax=vb] Sub ImportFromWeb() Dim FullName As String, ImpName As String, DataRange As Variant, NumRows As Long, NumCols As Long FullName = Range("fullname").Value Workbooks.Open Filename:=FullName DataRange = ActiveCell.CurrentRegion.Value NumRows = UBound(DataRange) NumCols = UBound(DataRange, 2) ImpName = Application.ActiveWorkbook.Name ThisWorkbook.Activate...
Z pierwszym plikiem pomęczysz się 5 minut a pozostałe zrobisz w kilka sekund ;) Widzę w kolejnej odpowiedzi masz bardziej uniwersalną metodę. Choć ja tam zawsze tak robiłem jak opisałem. Też działa to na exelu i każdym innym podobnym arkuszu jak calc np. bez szukania funkcji importu z tekstu.
A import danych zewnętrznych się tutaj nie sprawdzi ? https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article...
(...) ication.CutCopyMode = False NowyWiersz = Sheets("Import").Cells(Rows.Count, KolumnaGdzieWkleic).End(xlUp).Row + 1 Windows(Plik).Activate ActiveWindow.Close False Plik = Dir Wend Next Application.ScreenUpdating = True Cells(NowyWiersz, 1).Select End Sub Twoje pytanie dotyczy optymalizacji kodu VBA w Excelu. W pierwszej kolejności należy zwrócić...
Dziękuję za jego pomocą dało radę
które działa bez zarzutów Czyli import już Ci działa.:)
W międzyczasie... ;) Marcin, nie mogę zainstalować makra, wyskakuje mi komunikat, że nie mam zainstalowanej funkcji False, nie kompiluje się 1. Makr się nie instaluje, 2. Nie ma funkcji False 3. Makra się nie kompilują w dosłownym tego słowa znaczeniu :) Chyba będzie prościej jak wrzucę gotowy plik - jak ten CI też nie będzei działał, to ustaw poziom...
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...
Moja propozycja: 1. Najprościej byłoby zastosować formuły w arkuszach źródłowych, następnie przez: kopiuj > wklej specjalnie > wartości -umieścić wyniki w arkuszu docelowym i usunąć pierwszą kolumnę (Arkusz3 załącznika). Lub inaczej: kopiowanie kolumny źródłowej, wstawienie formuł, kopiuj-wklej specjalnie. 2. Zastosowałem wbudowane formuły łańcuchowe...
Cześć, Czy ktoś pisał kiedyś makro importujące kilka plików PDF do arkusza excel i chciałby się tym kodem podzielić ?
W tym przykładzie ścieżkę do pliku określasz w zmiennej file_mrf. Tutaj wyświetlane jest okienko ze wskazaniem pliku, ale możesz też tej zmiennej przypisać konkretną wartość i nie pokazywać okna wyboru pliku. Odpowiada za to parametr "Connection" W linku poniżej masz opisane co i jak podać w parametrach. https://learn.microsoft.com/en-us/office...
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.
czy jest to realne, żeby Excel obrobił takie dane w ten sposób. W mojej ocenie nie powinno być żadnego problemu w przygotowaniu odpowiedniego makra importu np z wykorzystaniem wyrażeń regularnych :-) W załączeniu plik z przykładowym makrem RegEx do usuwania znaków "nieliczbowych" W zależności od wersji Twojego Excela można zapewne wykorzystać tu zapytania...
Zmień na True. Wcześniej zerknij do procesów (Ctrl+Shift+Esc) i zamknij wszystkie Excel wcześniej utworzone.
Przyjrzałem się bliżej danym w pierwszym arkuszu i... mamy tam parę "kwiatków". Dane nie są spójne, ale ogólnie nie jest źle. Znalazłem ze 4 wyjątki, które na szczęście "mają regułę". Np: http://obrazki.elektroda.pl/2132347100_1... http://obrazki.elektroda.pl/4068974900_1... Adres też zapisany jest różnie, od lewej: "ul",...
[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False With Application.FileDialog(msoFileDialogFold... If .Show = -1 Then Folder = .SelectedItems(1) & "\" Else Exit Sub End If End With Set Razem = Workbooks.Add Application.DisplayAlerts = False Razem.SaveAs Environ("UserProfile") & "\Desktop\Razem.xlsx" Application.DisplayAlerts...
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...
A ta Symfonia nie ma importu? [syntax=dos]B. Import informacji o towarach z MS Excel do systemu Symfonia Handel Uruchamiamy program Symfonia Handel Na liście towarów wciskamy prawy klawisz myszy i wybieramy Excel import/eksport W oknie które się pojawi wybieramy Wczytanie danych i wciskamy przycisk Wykonaj Program zapyta o plik z arkuszem programu MS...
Ma byc tyle arkuszy ile jest plikow *.txt w folderze IMPORT + ktorze juz byly. Makro8 zmienić tylko początek, resztę kodu jak w Ciebie
W excelu nie ma czegoś takiego jak typ pola sterownik Accessa próbuje to zgadnąć, ale nie zawsze się udaje np jeśli pierwszych 11 wierszy jest pustych to cała kolumna jest uznawana za pustą. Generalnie sterownik pozwalający na traktowanie excela jako bazy danych to tragedia (aczkolwiek w 2016 w górę pozwala nawet łączyć arkusze jak tabele). Raczej nić...
import excel excel import makro import arkusz
oscyloskop allegro ściągacz łożysko odkurzacz kluczyk centralnego zamka ibiza
rower silnikiem spalinowym rower silnikiem spalinowym
Migająca biała lampka w urządzeniu - co oznacza? Wentylator chłodnicy Peugeot 307 benzyna włącza się przy 100°C
