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,...
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...
WYSZUKAJ.PIONOWO...
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]...
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]"...
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()),...
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 ?).
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ę...
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...
W czym problem? Proszę zrobić dokładnie tak jak napisałem. Tylko dane w tych arkuszach są identyczne, więc nie będzie widać czy to działa.
Witam. Proszę o pomoc w stworzeniu programu w języku VBA. Będzie to makro Excela. Program ten będzie częścią mojej pracy licencjackiej. Program będzie analizował zapisy partii szachowych w formacie pgn. Na początku musi zaimportować z pliku/plików tekstowych zapisy partii. Następnie będzie analizował dane pod różnymi aspektami, to znaczy: policzy liczbę...
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...
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...
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.
które działa bez zarzutów Czyli import już Ci 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
A import danych zewnętrznych się tutaj nie sprawdzi ? https://support.office.com/pl-pl/article... https://support.office.com/pl-pl/article...
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...
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....
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) <>...
Cześć, Czy ktoś pisał kiedyś makro importujące kilka plików PDF do arkusza excel i chciałby się tym kodem podzielić ?
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...
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"...
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
(...) 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ć...
Witam. Jestem nowy i mam problem. Czy mogę prosić o pomoc w napisaniu makra, które by importowało dane z plików txt. do jednego arkusza w programie excel. Z góry dziękuję za pomoc, pozdrawiam szanownych forumowiczów.
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...
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.
Zmień na True. Wcześniej zerknij do procesów (Ctrl+Shift+Esc) i zamknij wszystkie Excel wcześniej utworzone.
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",...
W arkuszu 'Import', w kolumnie 'A' wpisz numer zlecenia.
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...
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",...
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...
Do importu danych które do tej pory obrabialiśmy już dużo wcześniej nagrałem makro i wszystko działa. Dorobiłem do tego przycisk i jest OK. Teraz muszę nagrać kolejne makro, które zaimportuje plik wlasciciel.csv (plik zawsze będzie miał tą sama nazwę). Potem trzeba będzie do tego mara dopisać warunek żeby wykonało się pod warunkiem, że plik istnieje...
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ć...
[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...
To jest procedura zdarzeniowa z trzyargumentową podprocedurą (tak było mi wygodniej). Po umieszczeniu w kodzie arkusza, "sama" się uruchamia. Tzn uruchamia się przy zmianie wartości w dowolnej komórce ;) Ustawienia są w 4-ech miejscach: 1. nagłówkowa kolumna tabeli źródłowej - "Set zakres_wierszy_zrodlowych" 2. nagłówkowy wiersz tabeli źródłowej - "Set...
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...
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ę...
[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...
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...
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?
: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! Moim zdaniem idziesz złą drogą dla uzyskania informacji o zmianie stanu bazy danych. Na podstawie tych importowanych połączeń z bazą danych wnoszę, że masz całkiem poprawnie zbudowane tabele w tej bazie (choć masz drobne problemy z chronologią - np rekord 2,4 i 5 :D ) , lecz nie wykorzystujesz w pełni możliwości budowania odpowiednich kwerend...
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...
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?
Być może trzeba [syntax=vb] NextImportRow = Worksheets("Check-in").Cells(Rows.Count, "A").End(xlUp).Row + 1 [/syntax]
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...
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.
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ę...
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?
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.
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...
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...
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.:)
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ą...
Wyrzuć wszystko to, co związane jest z filedialog i podstaw ścieżkę do zmiennej 'xStrPath' Dla mnie nie jest jasne został zaimportowany do pliku excel do nowego wiersza. dodatkowo w nowym arkuszu żeby... Nowy arkusz, czy pierwszy wolny wiersz? Kolego przeczytaj dokładnie ! " dodatkowo w nowym arkuszu żeby zapisywała się nazwa zaimportowanego pliku...
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...
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...
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...
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...
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...
przy kolejnym imporcie pliku przedrostek "CN" dodaje się kolejny raz Nie przewidywałem, że ktoś będzie chciał dwukrotnie lub więcej razy importować ten sam plik :cry: Ponieważ nazwy arkuszy przyjmują nazwę importowanego pliku csv - to Excel natychmiast sygnalizował by błąd powtórzenia nazwy arkusza :cunning: Fakt, że dołożenie przedrostka CN (Card...
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...
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!
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...
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...
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...
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...
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=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,...
Ma byc tyle arkuszy ile jest plikow *.txt w folderze IMPORT + ktorze juz byly. Makro8 zmienić tylko początek, resztę kodu jak w Ciebie
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...
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...
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...
Możesz mieć oba programy jednocześnie, może przetestować obustronny import/eksport plików. Mam w arkuszach równie rozbudowane formułki, od lat i przez wiele aktualizacji stabilne :) Dlatego Libre/Openoffice, że chcę mieć ten sam program w robocie na Windows i w domu na Linuksie. Co więcej- te same pliki, zapisane jako pliki MSOffice dla kolegów z Wordem/Excelem,...
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...
Pozwolę sobie wtrącić swoje 3 grosze.;) [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, SN As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") With ThisWorkbook While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) SN = Mid(Plik, 1, InStrRev(Plik, ".") - 1) wb.Sheets(1).Copy...
Cześć. Jako typowy human mam niestety problem z elementarnymi rzeczami informatycznymi. Ostatnio sen z powiek spędza mi import danych z wybranych kolumn. Wstyd przyznać, ale na razie robię to na zasadzie kopiowania pojedynczych kolumn i wklejania do nowego arkusza. I tak dwa razy w tygodniu. Sposób jest bardzo skuteczny ;-) ale zapewne można go znacząco...
Witam, Mam problem z (nie wiem jak go dokładnie nazwać) przenoszeniem danych między arkuszami w grafiku pracowniczym, a mianowicie: - arkusz 1 "grafik podstawowy" zawiera dyżury na cały miesiąc - 2 osoby na dzień "D" i 1 osoba w nocy "N" (na dobę) - arkusz 2 "grafik nazwiska" powinien zawierać tylko nazwiska osób pełniących dyżur w danym dniu. Moje...
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...
Witam Serdecznie, zlecę: napisanie programu do obsługi zawodów sportowych (biegi i nordic walking) do tej pory używałem arkusza excel, jednak na dłuższą metę jest to bardzo uciążliwe. program powinien zawierać m.in. - import danych z excela (imię, nazwisko, rok ur., klub, miejsce zam, dodatkowe kategorie ) - wprowadzanie ręczne zawodnika, - przypisywanie...
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...
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ą...
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...
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ść...
Witam Stworzyłem programik, który importuje z folderów i podfolderów pliki *.dat do Excela. Pierwszy przycisk (makro) otwiera po kolei wszystkie pliki dat i zapisuje do jednego arkusza w pierwszy wolny wiersz. Drugi makro importuje konkretny plik z konkretnego folderu. W folderze dane znajdują się podfoldery np. 0112 , 0212, 0312 które oznaczają miesiąc...
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,...
Pliki pojawiają się na serwerze codziennie, za każdym razem plik ma inną nazwę, co nie zmienia faktu, że w tej nazwie zmienia się tylko data. Nie potrafię ogarnąć tego żeby aktualizacja danych odbyła się automatycznie. Część plików, z których pobieram dane nie zmienia swoich nazw i lokalizacji tak więc dane w moim arkuszu same się aktualizują jak otworzę...
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...
- nazwy folderów, SPRZEDAŻ 05.2015 (zmienia nr miesiąca - na tą nazwę mam wpływ) - nazwy plików, PLN_STA_6114 (na nazwy plików nie mam wpływu - różnią się dwiema ostatnimi cyframi. nazwy nie są kolejno po sobie następujące, więc dobrze by było móc zadeklarować nazwy plików ręcznie, np. gdyby kiedyś pojawił się jakiś dodatkowy lub z innym typem nazwy)...
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,...
Zaraz, zaraz... Chyba źle zrozumiałem. Z arkusza "FV" niewiele wynika, ale (czy dobrze kombinuję) -faktura będzie zawsze dotyczyła wybranego klienta, a to znaczy, że przeszukiwany będzie tylko jeden arkusz (zgodny z id klienta)? Tak/Nie -jedna grupa może zawierać wiele elementów. Np w "meble": szafka, stolik, krzesło, itd/itp. Tak/Nie -arkusze nie są...
Przed [syntax=vb]n2 = n2 + 1[/syntax] wstaw [syntax=vb]ThisWorkbook.Sheets("Arkusz2"... & n2 + licznik) = sc & nazwa[/syntax] Ponadto [syntax=vb].Sheets(5).Range("b261:b261")... ThisWorkbook.Sheets("Arkusz2").Range("f" & n2 + licznik & ":f" & n2 + licznik)[/syntax] jest to samo jak [syntax=vb].Sheets(5).Range("b261").Copy ThisWorkbook.Sheets("Arkusz2").Range("f"...
import excel excel import makro import arkusz
napompować pompką zapłon romet chart oporniki radia
zawór proporcjonalny lodówka kondensator zwarcie
Zamienniki tranzystora 40H120DF2: STGW40H120DF2 i inne Fonics EW 100 - Czy warto kupić ten głośnik?