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....
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...
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]...
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\,...
Każdy plik ma 1 arkusz Ja widzę 2.;)
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 ......
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...
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...
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 ?).
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"...
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...
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...
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...
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
A import danych zewnętrznych się tutaj nie sprawdzi ? https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article...
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) <>...
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...
(...) 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ć...
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.
Dziękuję za jego pomocą dało radę
[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...
Witam, mam pytanie , 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. Chcialbym mieć jeden głowny program w którym miałbym liste wyboru i mogl do niego importować dane z innych arkuszy w innych plikach. Pomoże ktos?
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...
które działa bez zarzutów Czyli import już Ci działa.:)
[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...
Cześć, Czy ktoś pisał kiedyś makro importujące kilka plików PDF do arkusza excel i chciałby się tym kodem podzielić ?
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...
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...
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...
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.
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",...
Zmień na True. Wcześniej zerknij do procesów (Ctrl+Shift+Esc) i zamknij wszystkie Excel wcześniej utworzone.
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...
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 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ć...
Ma byc tyle arkuszy ile jest plikow *.txt w folderze IMPORT + ktorze juz byly. Makro8 zmienić tylko początek, resztę kodu jak w Ciebie
Za mało danych aby ci podpowiedzieć konkretnie. Sub import() Arkusz1.Range("A1").Qu... BackgroundQuery:=False End Sub
: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...
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",...
Pytanie: Czy rzeczywiście pracujesz na excelu 5.0 lub 95 ? Chodzi o to że formuła jest trochę długa i przy bezpośrednich odwołaniach do pliku jeżeli plik rapotr.xls ustawisz np na pulpicie to poprzez to że bedzie bardzo długa ścieżka dostępu do tego pliku formuła nie zmieści się w komórce (przekroczy dozwolona długość zapisu dla komórki). Właściwie...
Być może trzeba [syntax=vb] NextImportRow = Worksheets("Check-in").Cells(Rows.Count, "A").End(xlUp).Row + 1 [/syntax]
Nie chce zeby ktoś za mnie to zrobił Należy stworzyć arkusz raportu i do niego makrem kopiować wartości z arkusza danych, a następnie zapisać arkusz raportu w formacie pdf.
W arkuszu 'Import', w kolumnie 'A' wpisz numer zlecenia.
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?
Witam! Zrób przykładowy plik z tymi arkuszami 1 i 2, oraz 3 z tym importem danych, a potem wrzuć go na forum :!: . Twój opis jest niejasny nie rozumiem :cry: co chcesz aktualizować ? dane z jednej kolumny ? a co chcesz archiwizować w tym 2 - stare wartości, czy te zmienione ?
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ć
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ę...
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...
[syntax=vbscript]Sub ImportujPliki() Application.ScreenUpdating = False Set b = ThisWorkbook Sciezka = "C:\PlikiExcela\" Plik = Dir(Sciezka & "*.xls*") x = 1 While Plik <> "" Set a = Workbooks.Open(Sciezka & Plik) Sheets(1).Copy After:=Workbooks("ImportujPliki.xlsm").S... a.Close False Plik = Dir x = x + 1 Wend Application.ScreenUpdating...
Witam, Mam następujący problem. Muszę eksportować dane z pliku zamieszczonego poniżej do arkusza Excel. Wymóg jest taki żeby w pierwszej kolumnie znajdowało się 8 znaków łącznie ze spacjami, kolejne kolumny to już dowolny ciąg liczb. I tak dla komórki A1 powinno być [_ _ _ _ _ _ 25] - 8 znaków łącznie ze spacjami (znak _ oznacza spacje a nawias kwadratowy...
Napisanie makra pewnie będzie najprostszym podejściem... Żadnego jeszcze nie napisałem, więc nie podpowiem jak to zrobić :P Na pewno makro to nie jedyne rozwiązanie. Jeżeli platforma .NET nie jest Ci obca to możesz wczytać dane z własnego programu. Akurat miałem trochę wolnego czasu i napisałem dwie metody: - w jednej skorzystałem z Microsoft.Office.Interop.Excel.dll,...
W podobnej sytuacji (choć odwrotnie :D import z csv do Excela) importu numerów kont bankowych (26 cyfr !) rozwiązałem w swoim kodzie vba poprzez dodatkową pętle wstępną, która modyfikowała w importowanym pliku wszystkie wystąpienia 26 cyfr poprzez dodanie przedrostka PL :idea: - w ten sposób zamieniałem wartości numeryczne na tekstowe, które precyzyjnie...
Próbowałem, ale nie udaje mi się tego zrealizować. Jeżeli dam zakres danych w range: [syntax=vbscript]Set a = ThisWorkbook.Sheets("Import") Set Ex = CreateObject("Excel.Application") Set b = Ex.Workbooks.Open(path & file, ReadOnly:=True) a.Range("A2:E2") = b.Sheets(sheet).Range("A1:E1") b.Close[/syntax] Nie jest nic pobierane, następuje zawieszenie...
Kolego. Zamieść proszę dokładnie, co chcesz zrobić. Nie używaj zwrotu 'na przykład'. Operuj językiem Excela. Nie mam na myśli VBA. Po prostu operuj na plikach, arkuszach, no i komórkach. Jak dobrze opiszesz problem, to zapewne uzyskasz jego rozwiązanie.:)
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...
Dzień dobry, Jeśli oba pliki są otwarte w jednej instancji Excela nie powinno być problemów z aktualizacją. Jeśli oba pliki są otwarte ścieżka dostępu nie jest potrzebna, np. odwołuje się Pan do komórki A1 w Arkuszu1 pliku Zeszyt3: =[Zeszyt3]Arkusz1!$A$1 Jeśli skoroszyt Zeszyt3 zostałby zamknięty odwołanie zmieni się automatycznie na takie ze ścieżką...
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...
W załączniku pliki spakowane. Plik CSV (przykład.csv) potrzebuje zaimportować do pliku XLSM (VAT7_szablon) do Arkusza 1 (Dynamic Data) poczynając od wiersza 2. Separatorem powinien byc przecinek. Chciałbym dokładnie osiągnąc to co umożliwia Kreator importu tekstu wbudowany w excel. Wykorzystując oczywiście skrypt VBS. Znalazłem skrypt jak poniżej, który...
Siema. Rozkminiałem to i coś dalej mi nie działa. Za każdym razem jak odpalam plik, muszę odpalić dewelopera, macro i wszystkie zaimportować. Następnie macra które były przypisane do zeszytu (nie do guzika), muszę skopiować do danych zeszytów. Sejwnąć i dopiero zaczyna działać. Może coś w ustawieniach arkusza trzeba ustawić?? Jak to zrobić :?: Chodzi...
Dzięki Panowie za pomoc nie wiedziałem jak zrobić dynamiczny zakres Jeśli chodzi o hiperlacze to oczywiście wiedziałem że coś takiego jest lecz niestety nie działa, wyrzuca błąd: Nieprawidłowe odwołanie. Wcześniej jak sam robiłem nieodłącznie to też taki komunikat miałem i Nie wiem dlaczego, plik nazywa się: Baza2.xls Arkusz: Import danych Jakieś pomysly?
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ść...
Przy imporcie dużych ilości danych, Excel powinien je automatycznie rozdzielić na kolumny lub arkusze. Ilość komórek w arkuszu (E2007) to (ilość wierszy * ilość kolumn) 17179869184...
Punkt 2: [syntax=vbscript]Sub Import() Application.ScreenUpdating = False Set a = ThisWorkbook.Sheets("Product list") Set i = Workbooks.Open(ThisWorkbook.Path & "\Price export.xlsx") Set p = i.Sheets("Product list") owp = p.Cells(Rows.Count, "B").End(xlUp).Row ow = a.Cells(Rows.Count, "B").End(xlUp).Row For x = 2 To ow s = Application.Match(a.Cells(x,...
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?
Witam wszystkich! Bardzo proszę o jakąs poradę jak importować dane z pliku XML do arkusza kalkulacyjnego EXCEL - aby każde zdefiniowane pole w XML-u znalazło się w osobnej komórce arkusza? Inne pytanie moje dotyczy sposobu importu danych z XML-a do tabeli na stronie w HTML - jak to zrobić? Wiem że trzeba się odwołać do pliku XML ale w jaki sposób, jakim...
Witam, chce utworzyć listę plików w folderze. Napisałem kod który działa ale nie wiem jak zrobić żeby kod wstawiał do listy tylko pliki z rozszerzenie TXT, prosze o pomoc w modyfikacji [syntax=vbscript]Sub a() Dim X, XNC As Object Dim Y As Integer Set X = CreateObject("scripting.filesystemobject... Set XNC = X.Getfolder(Range("A1").Value) For Each Z...
Po pierwsze: zamieść przykładowy plik z tymi danymi. Istotna jest tylko "kolumna2", bo "kolumna1" zawiera tylko powtórzone nagłówki, które nic nie wnoszą. Istotne jest czy imiona i nazwiska są zawsze prawidłowo rozdzielone i czy są w osobnych komórkach, np. Anna Maria Bogusz-Kowalska. Mam na myśli to, czy jest zawsze tylko jedno imię lub jedna komórka...
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...
bardzo dziękuję. poniżej jeszcze kilka pytań. ' w komórce B1 - nazwę arkusza wejściowego, np. Arkusz1, -arkusze nazwane są raport sprzedaży 1234 (może jakoś zawęzić że jeśli nazwa arkusza zaczyna się od: raport sprzedaży to żeby z tego brał ' w komórce C1 - zakres do skopiowania, np. A1:B10, - ten zakres jest różny (może coś z : Range("A2:N").Select...
Robiłem kiedyś podobne makro, ale zapisuje ono zakres złożony z iluśtam kolumn i 40 wierszy do kolejnych plików ich nazwa jest nazwą oryginału plus numer i jest logowana. [syntax=vbs]Sub import_export() ' ' import_export Macro ' This macro reads the selected excel file and splits it to multiply parts of given (def = 40) rows excl one- sheet files '...
Wystarczy mi charakterystyka off-line. Więc mając odpowiednio zagregowane dane w pliku to spokojnie może wytworzyć wykres w dowolnym arkuszu kalkulacyjnym. Najprościej zbierać do pliku txt dane dla dwóch (czy więcej) osi wykresu i potem import do arkusza i wytworzenie wykresu dla serii danych. Pzdr!
Niestety wywala się, albo ja nie mogę sobie z tym poradzić. Potrzebuję z komórki D2 w arkuszu o nazwie DANE pobrać informację z jakiego miejsca wgrać plik ( cała ścieżka ). Całą zawartość tego pliku chcę zaimportować do arkusza o nazwie ImportB i zacząć wgrywanie od miejsca A1. Jeśli mógłbym prosić o przedstawienie całego kodu w załączeniu plik do zaimportowania...
Dobry wieczór, Proszę załączyć przykład pliku, który Pan importuje i arkusza po imporcie oraz to, co chce Pan mieć. Podany przez Pana opis jest zbyt enigmatyczny, aby coś doradzić. Pozdrowienia.
Niestety w Accesie pracowałam ostatnio w czasach liceum i niewiele na ten temat pamiętam... To się robi z głównego menu, dosłownie kilka intuicyjnych kroków. Jest Internet, kursy na Youtube - wpisz tylko: access import excel file i swójnumer wersji accesa. a jeśli chodzi o funkcję WYSZUKAJ.PIONOWO, to nie usunie mi ona wierszy, które nie występują...
Tu nie ma plików do importu, tu są już pliki z zawartością po imporcie i to źle wykonanym, ponieważ wszystko jest w formacie tekstowym. Z maszyny jest możliwość wyrzucenia tylko takich plików, które importuję do stworzonego arkusza. Popytam czy jest inne źródło pochodzenia tych xlsx'ów. Masz rację wartości są w formie tekstowej. Dodatkowo kolumna A...
Pracowałem w małej firmie A (2-3p pracowników). Handlowała akcesoriami na Allegro ale miała dobrze wszystko skomputeryzowane; import danych o aukcji do menadzera sprzedazy, drukowanie etykiet, zbiorczych paragonów itp. Przeszedłem do firmy B bo sie poklocilem z szefem o $$. Okazalo, ze musiałem tam robic w s z y s t k o ręcznie! (bylo to jakies 15 lat...
Szanowni Państwo, bardzo proszę o pomoc w stworzeniu prostego makra. Mam wiele folderów, w których znajdują się pliki z rozszerzeniem ".html". W każdym takim pliku znajduje się tabela o tej samej dla wszystkich plików ilości kolumn z tymi samymi nazwami nagłówków (pierwszy wiersz to nagłówki). Różnica pomiędzy tymi plikami to jedynie ilość wierszy....
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 danych z wielu plików CSV do excela Proszę o pomoc w stworzeniu programu VBA działający w Excelu. Jestem zupełnie zielony w tworzeniu jakichkolwiek programów. Przyrząd do pomiaru napięcia na dwóch wejściach tworzy pliki o nazwie Pomiar_N.csv, ( N – kolejne pliki z pomiarami, około 87 na dobę), z 1000 pomiarów, w 1000 sekund. Zapisane...
aby dane zaznaczone plików (kazdy plik ma tylko jeden arkusz) były kopiowane do jednego arkusza jeden pod drugim Kiepsko szukasz :cunning: na elektrodzie było kilka podobnych tematów odnośnie importu danych - między innymi :spoko: https://www.elektroda.pl/rtvforum/viewto...
[syntax=vb]Sub PobierzDzisiejszeDane() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String Sciezka = ThisWorkbook.Path p = Date & ".xlsx" Plik = Sciezka & "\Dane\" & p If Dir(Plik) = "" Then MsgBox "Brak pliku z dzisiejszą datą." Exit Sub End If Workbooks.Open Filename:=Plik Sheets("Dzisiejsze dane").Select ow = Cells(Rows.Count,...
W zasadzie to można to zrobić dość prosto. Dodać do tego co potrzebujesz jeszcze pole np. dostawca. Ustawić w arkuszu bazę (dane). Wstawić łącza do importu z arkuszy z danymi ściągać sobie przeterminowane faktury wg warunku. Tylko skąd wiesz, że faktura jest przeterminowana. Musisz, gdzieś to zaznaczyć. Np. w programie , w którym wystawiasz faktury...
Witam, mam pewien problem z importowaniem danych z jednego pliku do drugiego. Do tej pory import danych odbywał się poprzez formułę odwołującą się do pliku i do komórki, czyli nic skomplikowanego. Problem pojawia się jednak przy przeniesieniu folderu z tymi plikami. Generalnie plików jest cała masa, ale dane pobierane są z jednego pliku tylko z innych...
Ok a jakiś inny sposób na wydłubanie z pliku textowego .txt wszystkich słów w których znajduje się "(at)" i możliwość ich skopiowania ? 1. Import w Excelu (z wykorzystaniem kreatora). 2. Kolumna pomocnicza z odp formułą Np =JEŻELI(CZY.BŁĄD(ZNAJDŹ(&quo... 3. Filtr w kolumnie pomocniczej. 4. Zaznacz, Kopiuj,...
prosze o pomoc mam nadzieje ze uda sie to jakos rozwiazac Dziwi mnie że firma, która prowadzi tak głębokie analizy nie zleciła takiego projektu zewnętrznym programistom :cry: Nie mogę bezpośrednio pomóc - bo nie dysponuje najnowszą wersją Office :| Jednak z doświadczenia przy obróbce tak dużej liczby danych (Twój przykładowy plik ma już 38 arkuszy...
import excel excel import makro import arkusz
ciśnienie kompresorze pilot pobiera bezprzewodowy odkurzacz
scania akumulatory scania akumulatory
Buczenie głośników po wyłączeniu komputera - przyczyny i rozwiązania Vaillant dwufunkcyjny grzeje mimo osiągnięcia temperatury
