Źle odczytałem zadanie. Myślałem, że chodzi o import arkusza z wielu plików. Dawno temu był taki temat, do którego napisałem makro.
Wystarczy zrobić import przez kreatora tekstu - rozdzielany - przecinek - zakończ nagraj makro i po sprawie.
Witaj And (MyWorksheet.Name <> "RAZEM") = dla wszystkich arkuszy niezależnie od ich ilości, z wyjątkiem arkusza RAZEM 2. plik = Application.GetOpenFilename("File excel ,*.xls*", , "Select file") drugie okienko utworzyć formularz z pola listy lub pola kombi i wypełnienie listy nazwamy arkuszy
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...
Kurcze, szukałem na prawde długo i nic nie mogę znaleźć. Jest dużo o imporcie .txt i .csv, ale o .xls i .xlsx nie mogę znaleźć :( Być moźe dlatego, że niepoprawnie zadaje pytanie do szukania. Będę wdzięczny za każdą wskazówkę Pozwól sobie pomóc i napisz jak ten import ma wyglądać? Gdzie znajdują się pliki do importu, jak się nazywają, jak mają się...
Niestety w dalszym ciągu nie wszystko jest jasne i logiczne :cry: (np jeśli w arkuszu Import masz 1048576 wierszy to powinno Ci starczyć na jakieś 582 lat wypełniania :D - chcesz zmienić nazwę pliku na drugie milenium :?: ). Samo kopiowanie wartości z tego zakresu możesz zrealizować np takim kodem: [syntax=vbscript]Sub Copy_Value_Below_Last_Cell() Dim...
Hmm, to makro przed edycją, działa w miarę poprawnie. Dodałem tylko "*" by działało dla każdego wersji arkusza xls. * " Then[/syntax] [syntax=vb]Sub otworz_pliki2() Dim MyFile As String, arkusz As Worksheet, wkb As Workbook Dim wrs As Long wrs = 1 MyPath = "D:\Dane" MyFile = Dir(MyPath) Application.DisplayAlerts = False 'wyłączymy pytania o schowek,...
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...
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...
Przetestuj makro z załącznika.
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...
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....
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) <>...
Jako doraźne rozwiązanie proponuję takie umieszczenie formuł, aby komórki nie zmieniały lokalizacji pod wpływem importu. Czyli albo przenieść formuły do innego arkusza, albo umieścić je nad obszarem gdzie dokonywany jest import.
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
1. 1. Nie kasuje komórek z zakresu Kod: br.Sheets(s).Range("39:56,97:100,141:144... To jest mój błĄd, miało być o 9 wierszy mniej, poniewaz kopie z a10 do a1 na sbiorczym t.j. range("30:47, 88:91, ... itd. teraz makro usuwa wiersze z dane, nie te z 'Note: 1. All tests (VT, PT, MT, UT, RT) were carried...
Cześć, Czy ktoś pisał kiedyś makro importujące kilka plików PDF do arkusza excel i chciałby się tym kodem podzielić ?
Jeżeli jest to związane z Twoim poprzednim tematem, to jest to do zrobienia. Można zrobić procedurę, która przetworzy dane przy okazji importu do Excela. Będzie trochę kombinacji... O wiele prościej będzie przeznaczyć dodatkowy arkusz lub osobny skoroszyt, do którego zaimportujesz dane z Outlooka, po czym w Excelu uruchomisz makro, które wstawi dane...
plików do importu jest setka i kazdy ma milion wierszy, chciał bym takie makro ktore importuje te wszystkie pliki do jednygo arkusza i kazdy plik był w kolejnej kolumnie
potrafię jedynie nieco dostosowywać kody, do swoich potrzeb Skoro tak, to użyj nagrywania makr. [url=https://www.elektroda.pl/rtvforum/f...
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...
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...
Hej Mam problem z napisaniem makra dla arkuszy google zaimportowałem stary arkusz Excela do arkuszy i przekonwertowałem makra ale nie działa mi makro drukujące wyznaczony zakres bo naciśnięciu przycisku. Czy miał ktoś podobny problem i wie jak to rozwiązać? Próbowałem szukać w google rozwiązań i nie znalazłem nic sensownego może ktoś pomoże
Jeśli liczysz na konkretną pomoc :?: - to winieneś załączyć swój przykładowy plik z odpowiednio opisanym arkuszem źródłowym i arkuszem docelowym :idea: Wcześniej możesz przeanalizować zasoby naszego forum w zakresie importu lub eksportu danych z jednego arkusza do drugiego :idea:
Załączam plik który wykorzystuje kwerendę (połączenie z bazą poprzez import) z przyciskiem aktualizującym (makro aktualizujące kwerendę). Podobnie jak to zrobił kolegę adamas_nt z tym że w moim przypadku makro tylko wymusza odświeżenie kwerendy. Przy tym rozwiązaniu dane zawsze będą pobierane i aktualizowane na podstawie bazy więc jeżeli zmienią się...
Włącz nagrywanie makra, zaznacz cały arkusz, naciśnij delete i zatrzymaj nagrywanie makra, a zauważysz: [syntax=vbscript]Sheets("Import").Select Cells.Select Selection.ClearContents[/syntax] ;) Proszę nacisnąć pomógł nie tylko mnie, a przede wszystkim Marcinowi. To jego był kod...:)
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...
Napisz makro które zrobi to co chcesz.
Wszystko opiera się o jakieś makra, nie można tego zrobić za pomocą zwykłej formuły w excelu?
Wartości ujemne: Najlepiej skorygować przy imporcie, wystarczy kilka poprawek w istniejącym makro[syntax=vb]Sub kopiuj_z_pliku() Dim kom As Range Windows("plik importu.xlsm").Activate 'wskazane wybranie właściwego arkusza Range("A2:K1000").Select Selection.Copy Windows("rozliczanie palet.xlsm").Activate Sheets("Import").Activate 'dodałem Range("A3").Select...
Witam Proszę o pomoc w stworzeniu makra importującego dane rozdzielane tabulatorami z pliku tekstowego. Makro podłączone pod przycisk powinno dawać możliwość wyboru pliku do importu. Znalezione w poniższym linku rozwiązanie niestety u mnie nie działa. Pojawia się MsgBox informujący o poprawnym imporcie, lecz arkusz jest pusty. [url=http://www.elektroda.pl/rtvforum/to...
Przepraszam ,że zawracam głowę ale nie mogę sobie poradzić z prawidłowym wyznaczeniem ściezki pliku ,który ma zostać skopiowany. Powinna ona być następująca - I:\Wycena Efos\NabyciaUmorzenia + dane z Wyciagu powinny wklejać się do arkusza o nazwie PODST - Wkleić
Tego typu filtrowanie danych możesz zrobić albo przy użyciu makra :idea: , albo przy użyciu kwerendy :spoko: W obu rozwiązaniach po dopisaniu nowych danych do arkusza Lista, konieczna będzie w zasadzie interakcja usera: uruchomienie makra lub ręczne odświeżanie danych. Makra przygotują Ci prawdopodobnie inni koledzy :D , ja zaś proponuję wykorzystanie...
Ten problem rozwiążesz, jeśli nagrasz makro dokonując importu tekstu i podejrzysz kod (dane->importuj dane zewnętrzne->importuj dane). Tworzysz kwerendę w której potem makro może podmieniać ścieżkę do pliku.
Mam dziwne wrażenie, że arkusz źródłowy powstaje poprzez import z pliku TXT. Jeżeli mam racje to może załącz ten plik?
makro działa chyba tak jak trzeba :) ale jest mały problem - gdy ładuje małe pliki txt to jest ok ale gdy ładuje duże pliki txt (około 5mb każdy) to makro ładuje około 30 000 wierszy i wyskakuje błąd "Overflow"
Nagraj makro i popraw według potrzeb. Wybacz, ale apetyt rośnie w miarę jedzenia... Daj coś z siebie.
Jest jakiś trik by po nowym wpisie posortowała się z automatu? Można wykorzystać makro zdarzeniowe typu [syntax=vbscript]Private Sub Worksheet_Change(ByVal Target As Range)[/syntax] dla arkusza z danymi, które będzie sortowało po każdej zmianie w określonym zakresie :D . Poprzez trick z importem danych z jednego arkusza do drugiego można ustawić kwerendę...
Istnieje klawisz odj = IIf(Cells(3, 3) = "", -1, 1) Cells(Cells(3, 3).End(xlDown).Row + odj, 3) = InputBox("Podaj cos") a na upartego w jednej Cells(Cells(3, 3).End(xlDown).Row + IIf(Cells(3, 3) = "", -1, 1), 3) = InputBox("Podaj...
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",...
Dzień dobry. Niestety moja wiedza nie pozwala na rozwiązanie problemu. Przy imporcie pliku XML do arkusza excel wyskakuje mi komunikat o błędzie. Po kliknięciu przycisku ok, import działa bez zarzutu. Czy jest jakiś sposób na wyeliminowanie komunikatu? Import odbywa się z poziomu zapisanego makra: Sheets("Arkusz3").Select ActiveWorkbook.XmlImport URL:="C:\Users\Downloads\0.xml",...
Tak, czy tak go otwierasz... Możliwość podglądu, to zadeklarowanie zmiennej obiektowej 'objExcel' jako globalnej, i w dowolnym makrze polecenie objExcel.Visible = True Gdzieś go trzeba też ostatecznie "zabić" (objExcel.Quit), jeśli go nie odkryjesz. To też sprawa do przemyślenia.
Z góry bardzo dziękuje za jakąkolwiek pomoc, ponieważ kombinuje już od paru miesięcy, i nie moge sobie poradzić. Z takim "arkuszem" nie poradzi sobie żadne makro. Każdy arkusz praktycznie jest inny tzn różne liczby kolumn, różne opisy, wiersze pojedyncze i dwu lub kilkuliniowe :D , formatowania komórek domyślne lub "od czapy" (np komórka D2 w arkuszu...
Dane do arkusza importuje makrem z innego pliku Dane się nadpisują Po makrze, któe importuje dane do arkusza, powinno być wywołane makro któe szuka najwyższa wartość w komórkach (B3, B4,B5) i zaznacza kolorem Makro chce uruchamiać przyciskiem W temacie podałem przykład lokalizacji danych Zostawiam przykład pliku ( tak on wygląda po kazdym imporcie)
Dzień dobry, Szukam sposobu na to żeby zmienić strukturę kolumn w arkuszu. Niestety problem jest dość złożony. Ogólnie pracuje nad plikiem txt i importem do excela do czytelnej formy z możliwością filtrowania. Po imporcie do excela wyczyściłem makrami z niepotrzebnych wierszy i usuwam niepotrzebne dane. W efekcie uzyskuje plik kilka tysięcy wierszy...
Mam makro, które kopiuje ze wskazanego pliku kolumny A:N i wkleja do odkrywanego arkusza w pliku z makrem. Takich plików, z których są kopiowane kolumny może być do 9 (może być mniej). Arkusze do których są kopiowane kolumny mają nazwy 'I L", "II L" itd do "IX L". Jak zrobić, żebym nie musiał każdorazowo uruchamiać makra do każdego pliku. Chodzi mi...
Witam serdecznie. Uprzejmie proszę o pomoc w stworzeniu Makra (funkcji ?) importującego wybrane dane z innego arkusza Excel. Mam Plik_A.xlsm z tabelą, którą chcę wypełnić wybranymi danymi z Plik_B.xls. Chodzi konkretnie o import danych z kolumny Imię i Nazwisko Pacjenta, Adres Pacjenta i PESEL Pacjenta. Plik_B jest generowany automatycznie z programu...
Plik jest przykładowy. Plik właściwy służy do importowania danych i doklejania ich do istniejącego już arkusza z danymi poprzednich importów. Importowane są różne ilości danych -wierszy. Od jednego do 60. Dlatego plik przygotowany jest na import maksymalnej ilości danych, a jak jest ich mniej, to puste komentarze są kasowane. Niestety moja znajomość...
:D Mam dane z eurostatu i chcę sprawdzić opłacalność handlu, chcę porównać przykładowo cenę importowanego dobra "x" z kraju "z" względem importu tego dobra z całej EU. Można tego dokonać obliczając różnicę w cenie między tymi dwoma kierunkami importu. Z tym, że w niektórych pozycjach (importowanych dobrach) nie występuje import stąd 0 w arkuszach. Można...
Witam, czy jest możliwe wykonanie makra, które z danego folderu gdzie jest X plików excelowych, scalił do 1 pliku excel wszystkie te pliki? I czy jest możliwe aby podczas importu nazywał zamiast Arkusz1, 2, etc nazwami plików zaimportowanych? 1plik>to 1 arkusz w excelu 2 plik>to drugi arkusz etc Całość w 1 pliku? Obecnie robiłem to poprzez Dane>Importuj>wskazywałem...
excel import arkuszy makro makro arkuszy makro import
klawiatura maxdata pęknięta chłodnica gniazdo laptopa lenovo
siłownik obrotu cyklop siłownik obrotu cyklop
Niebieska dioda w laptopie Toshiba - co oznacza? Klej do zawiasu drzwiczek pralki - wybór i zastosowanie
