Niestety nie mam wpływu na budowę tego pliku z programu, który go generuje. :cry: A mniej komfortowy wygląd tabeli w Excelu (zawierający wszystkie wartości :idea: ) poprzez mapowany import z pliku XML (jak na zrzucie) 943905 też nie byłby zadowalającym rozwiązaniem :?:
Bo excel od MS sie do tego nie nadaje, źle odczytuje pliki csv Użyj LibreOffice
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ę...
[syntax=vbscript]Sub Import() Set a = ActiveWorkbook nw = a.Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = Environ("USERPROFILE") & "\Desktop" .AllowMultiSelect = False .Title = "Wybierz plik" .Filters.Add "Excel", "*.xls*" If .Show = True Then Plik =...
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...
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...
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...
Jak bez wyboru to tak [syntax=vbscript]Szablon = "c:\twoj_szablon.docx"[/syntax]
Powinien być dobry
[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]
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 [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...
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()),...
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.
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...
Tam jest napisane Część danych... ...jako tekst? Zapewne chodzi o komórki z datą. Zamień komórki z datą na tekstowe lub użyj skrypt: Application.DisplayAlerts = False
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...
Najlepiej jest rejestrowanie makra w celu otwarcia pliku tekstowego programom Excel
Po prostu czy da się zrobić to tak że zapisze plik a po ponownym odpaleniu wszystko działa dalej tak jak przez zamknięciem? Plik zapisujesz z obsługą makr (*.xlsm)? Makra można kopiować pomiędzy plikami. Zobacz [url=http://www.cpearson.com/excel/vbe.a... Rozdział "Copy A Module From One Project To Another". Chyba, że chodzi o coś innego...
Podczas importu tylko z jednego pliku 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. Po co kombinować, jak przetworzyć to, co zostało "niewłaściwie" przetworzone, skoro można by to zrobić (przetworzenie) u źródła, czyli w pliku źródłowym ? Ale takiego tu nie ma,...
(...) 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ć...
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...
Na taki opis, jaki podałeś, bez pliku wejściowego i wyjściowego, zaproponuję swoje makro. Jak będziesz chciał, to sobie dostosujesz do 'zmiany dat i innych danych'.
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'....
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...
Wpisz sobie kilka numerów do książki wykonaj export w zakładce programu do zarządzania (import export). Pojawi się plik z rozszerzeniem crp otwórz go za pomocą exela. Jak już dojdziesz co w której kolumnie wpisywać to do dzieła. Musisz jednak pamiętać o pewnych ograniczeniach np. ilości znaków w opisie numeru (wszystkich razem max16), nadawać kolejne...
Problem dotyczy urządzenia, które skanuje dokumenty. Jeśli ponownie "przeskanujesz" (jakimś programem OCR) te pliki pdf - to uzyskasz nowy plik pdf (z nową datą :D ) i z dowolnie zapisanym nazwiskiem autora :idea: :D Zbliżony problem "archiwizacji" wyciągów bankowych z plików pdf rozwiązywałem onegdaj poprzez zapis ich jako tekst (AAReader DC), a potem...
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...
Najprościej byłoby to zrobić przy użyciu Accessa, nie Excela. Projektujesz sobie tabelę z kolumnami, projektujesz sobie raport z wydrukiem i do tabeli importujesz dane z pliku tekstowego, ustalasz szerokosci lub separator kolumn przypisując poszczególne dane z pliku do tabeli oraz określając format tych danych, a na końcu zapisujesz raport do PDFa....
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]...
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.
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.
I chyba ogólnie jest to wolniejsze (sporo czasu zajmuje excelowi stworzenie tych Objectów/instancji Excela, a przy 150 plikach skąd pobieram dane to będzie robić różnicę) Nie twórz nowych tylko otwieraj w obecnej. Set a = ThisWorkbook.Sheets("Import") Set Ex = CreateObject("Excel.Application") Set b = Ex.Workbooks.Open(path & file, ReadOnly:=True)...
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...
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...
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...
Spróbuj tak: [syntax=vbnet] Uzytkownik=Environ("UserName") ChDir "C:\Users\" & Uzytkownik & "\Desktop" ActiveWorkbook.SaveAs Filename:= _ ""C:\Users\" & Uzytkownik & "\Desktop\!Metalmex plik importu danych.csv", FileFormat:= _ xlCSVUTF8, CreateBackup:=False [/syntax]
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ę...
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.
Ja korzystam wtedy z ADO, tutaj taki uniwersalny fragment odwołania do samego siebie, można dostosować connection string do połączenia z jednym tylko plikiem. Wymagana referencja do biblioteki Microsoft ActiveX DataObjects 2.8 Library lub nowszej. [syntax=vb]Dim conn As ADODB.Connection, rst As ADODB.Recordset Set conn = New ADODB.Connection Select...
1. Po ustawieniu FilePlatform na 28592 polskie litery są poprawne ... 2. chcę wczytać wiersze po 1048576 ... "TextFileStartRow" już nie wczytuje po 1048576 ... Ad 1. Zamiast 28592 użyj 65001 Ad 2. A zapoznałeś się ze "specyfikacją" tej właściwości obiektu "QueryTable", choćby w pomocy kontekstowj ? "QueryTable.TextFileStartRow Property Returns or sets...
Wystarczy jedna linijka: [syntax=vbscript]For Each f2 In f With wks Open f2 For Input As #1 Do While Not EOF(1) Line Input #1, linia .Cells(wiersz, 1) = f2.Name '<--- o, tutaj .Cells(wiersz, 2) = linia '<--- tą też można skrócić wiersz = wiersz + 1 Loop Close #1 End With Next[/syntax]
Pliki CSV będą kilka razy w miesiącu edytowane na różnych wersjach Excela, 2007, 2010, 2016, przez różne osoby o różnym stopniu znajomości excela (od średniego do słabego). Otwarcie pliku, uzupełnienie jednej kolumny wartościami liczbowymi i zapisanie go, to nie problem. Myślałem że do tego to się bedzie sprowadzać, nic więcej. Natomiast widzę że to...
Znacie jakiś darmowy konwerter plików pdf do formatu excel? Znam darmowy sposób importu pliku PDF (wektorowego, a nie obrazka ;-)) do Excela - to jest dodatek Excela - Power Query. Dla ilustracji działania przesyłam w załączeniu testowy wielostronicowy plik PDF 1232818 oraz plik Excela z kilkoma zapytaniami i przekształceniami PQ 1232819 BTW. W edytorze...
W przykładowym pliku podanym przez Ciebie zamieniłem kolejno: - przecinki na średniki (przecinek jest w języku PL znakiem oddzielającym miejsca dziesiętne, nie separatorem) - kropki na przecinki (bo przecinki oddzielają miejsca dziesiętne). Spróbuj taki plik otworzyć w Excelu.
Coś takiego. Plik txt, to 'C:\a.txt'.
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 mogę prosić o wklejenie pełnego makra? kompletnie się na tym nie znam
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
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...
Dziwne pytanie. Nawet bardzo baz danych - a jakich Szanowny Kolego ? VBA jest lokalne, jestem zdziwiony pytaniem o porty HTML jest standardem pliku, a jako taki nie ma nic do portów - może myślisz o http ?
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...
Oczywiście, że masz rację. [syntax=vbscript]Sub ImportCSV() Sciezka = "C:\PlikiCSV\" Plik = Dir(Sciezka & "*.csv") While Plik <> "" nk = Cells(1, Columns.Count).End(xlToLeft).Column + 1 If nk = 2 Then nk = 1 With ActiveSheet.QueryTables.Add(Connection:=... & Sciezka & Plik, Destination:=Cells(1, nk)) .TextFileSemicolonDelimiter...
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...
To, co pokazałeś niewiele pomaga. Po pierwsze to są obrazki, a nie dane na których można pracować. Po drugie te dwa obrazki odnoszą się do różnych danych. Jak dane zostaną już wprowadzone do Excela i Excel je przekształci, to odtworzyć je do pierwotnej postaci jest trudno. A to co pokazałeś, to są dane w Excelu. Potrzebne są dane zanim trafią do Excela....
Jaki Excel? Dane -> Import lub Dane zewnętrzne -> np. plik tekstowy i importujesz CSV ;) Co do obracania kolumn na wiersze i odwrotnie, funkcja =TRANSPONUJ :)
Co prawda podam bardzo ogólne rozwiązanie problemu, ale może chociaż naprowadzi na właściwe tory. Będę omawiał na podstawie C#, nie wiem dokładnie jak będzie to wyglądało w C++. Na początek przykładowy tutorial: http://www.c-sharpcorner.com/uploadfile/... Jak widać do obrazowania wczytanych danych...
Hej, mam problem z moim makrem. Chciałbym zaimportować pewne komórki z innego pliku poprzez makro. Działa już prawie wszystko ok tylko w tych komórkach są daty. Zasięg importu jest większy niż dane które chce ściagnąć z tego względu że co chwila ktoś dodaje nowe wiersze itd. Tak więc gdy zaciągam dane to w moim pliku z makrem w miejsce pustych komórek...
Programem Word / Excel 2016, a to źle ?
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...
[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...
Wielkie dzięki już wszystko działa. Także w moim pliku
Dim MyDay MyDay = Day(Date) i pozostałe części, następnie wrzucasz w stringa. Wada - zależne od dnia aktualnego - brak możliwości importu starszych. alternatywa: dlgAnswer = Application.Dialogs(xlDialogOpen)... W ten sposób będziesz mógł wybierać plik.
Witam mam w załączeniu makro które importuje plik txt do Excela, muszę jednak ograniczyć import tylko do wybranych kolumn, tzn jeżeli wybiorę datę( zawsze to bedzie ostatni dzień miesiąca) 30.09.2012 to powinny kopiować się wszystkie kolumny do września, wiem że można wyciągnąć nr miesiąca z tej daty ale jak to zapisać w pętli aby makro wiedziało jakie...
Witaj. Plik importujesz makro? Adres strony w pliku jest tylko jednym z rzędu?
Dzięki za pomoc. Mam teraz drugi problem. Importuję kilka plików i część z nich jest zabezpieczona hasłem. Jak sprawdzić czy dany plik excel jest zabezpieczony zanim jeszcze rozpocznę import. Wówczas mogę zastosować inną procedurę importu niż dla pliku niezabezpieczonego. Pzdr.
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...
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...
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...
marek003 dziękuję Ci bardzo za uwagi, bardzo mi pomogłeś. Zamiana Select na Activate usunęła problem. Drugi sposób rzeczywiście prostszy. Kombinuję tylko jeszcze nad jedną rzeczą bo gdy jestem w innym pliku excell w czasie odświerzania jestem automatycznie co 30 sek przeniesiony do pliku w którym działa makro. Czy można to jakoś zrobić tak żeby samo...
Mam plik w Excelu, który waży ok 50 mb... Teraz pytanie jak to zrobić? Taka ilość danych wskazuje na potrzebę zaangażowania do obliczeń innych aplikacji :cry: np. z pakietu Office możesz wykorzystać bazy danych Access. :idea: Całą tabelę importujesz do Accessa i tam szybciutko przeprowadzisz dowolne sortowanie, :D a za pomocą odpowiednio zaprojektowanych...
Ja bym się nie bawił tu w formuły, tylko od razu vba. Wygląda to na jakiś import pliku txt, jeżeli tak to można zrobić pełny automat.
Uporałem się z importowaniem plików. Wstępnie wygląda to tak: Option Explicit Private Sub CommandButtonImportujPlik_Click()... On Error GoTo myErr Application.ScreenUpdating = False Application.Calculation = xlCalculationManual Dim i, j As Integer Dim fDialog As Office.FileDialog Dim varFile As Variant Dim Plik As String Dim Sciezka() As...
Korzystałem z kodu zamieszczonego na forum z drobniutkimi modyfikacjami. Jeśli dobrze pamiętam to autorstwa PRL (dzięki). 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,...
Panowie w załączeniu przykładowy plik z okrojonymi danymi. Jest w podobnym formacie jak przykładowe pliki które zaciągam za pomocą PQ z lokalizacji typu folder. Oczywiście przekształcam je przed załadowaniem. Ale nawet próbując pociągnąć dane z jednego pojedynczego pliku w komórkach z typem danych :Czas PQ ich nie widzi i pokazuje null-e. . Zresztą...
Przecież Outlook ma możliwość importu bezpośrednio z excela. Menu Plik - "Importuj lub eksportuj ..." - "Importuj z innego programu lub pliku ..." wciskasz dalej Wybierasz MS Excel itd.
Dlaczego nie zrobić w Excel import z bazy Access'a?
Poprawiłem błąd... [syntax=vb]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, i As Integer Dim ArkuszWejsciowy As String, ObszarWejsciowy As String, KolumnaGdzieWkleic As String ArkuszWejsciowy = Sheets("Parametry").Range("B1")...
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)?
o ile to możliwe Na pewno, np. poprzez: zwykłe Open (I/O), Workbooks.Open, Workbooks.OpenText, QueryTables, Ado, mechanizmy wewnętrzne excela (połączenia z txt), itd. - wypróbuj.
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...
IMHO najprostsze rozwiązanie tego "węzełka ogonkowego" to zmiana kodu tak aby odczyt plików zrzucany był do pliku tymczasowego np out.txt (z natywnym oczywiście kodowaniem dla konsoli - 852 :!: ), a potem dopiero import do Excela z tego pliku tekstowego :idea: z właściwym wskazaniem kodowania źródłowego np [syntax=vbscript]Workbooks.OpenText Filename:="out.txt",...
W skrócie: będę robił import do Accesa z Excela ale tylko wybranych arkuszy. Stąd konieczność ich pokazania (zapisu) w celu późniejszego wybrania przez użytkownika. Znalazłem taką procedurę która robi dokładnie to czego potrzebuję: [syntax=vbscript]Private Sub arkusze() Set objExcel = CreateObject("Excel.Application") objExcel.Visible = False Set objWorkbook...
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?
Dziękuję za odpowiedź - do przykładowego pliku wkradł się jakiś błąd (502). Załączam plik na którym "próbuję" pracować.
W załączniku próbka z adresami. Dochodzę do wniosku ze te dane to straszny bałagan, adresy pisane jak komu pasowało. generalnie jest to import z MySQLa (program FakTUR2) a chcę to zaimportować do Optima XT W XT jest wzór pliku importu - każde pole jest osobne czyli logicznie. w MySQLu jest komórka adres varchar(200) i jak zawiało tak wpisywany był adres...
jeśli ten bat wyciąga serial dysku, to można to zrobić w VBA. Dlatego zapytałem w poście #4 czy ten. wzorzec nie jest czasami jakiś importem pliku txt. Jak dla mnie najszybciej "wzorzec" to plik txt, "porównał bym" z tym co generuje bat (w locie musiał bym znać strukturę tego bata) a wynik "wysyłam" do xls-a Lub pomijamy txt i robimy wszystko w vba.
Zgadza się pierwsza kolumna to po prostu nagłówki jak słusznie zauważyłeś nic właściwie nie wnoszą. - Imiona i nazwiska są zawsze w oddzielnych komórkach ( ale już po imporcie do Excela) - W całym arkuszu zawsze puste wiersze pojawiają się tylko jako zakończenie/rozpoczęcie nowego zestawu danych (dot kolejnej osoby) dokładnie tak jak na przykładzie....
(...) usi odpowiadać położeniu daty z danego wiersza - w przypadku, gdy wartość jest różna od poprzedniej (w danej kolumnie) - generowany jest nowy prostokąt - w przypadku, gdy wartość jest powtórzeniem poprzedniej wartości (w danej kolumnie) nie jest tworzony nowy prostokąt a poprzedni jest rozciągany w dół Zakładamy, że masz plik Excel z danymi,...
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...
A w jakim Excelu?? W 2007 i prawdopodobnie w późniejszych wszystko robisz z zakładki Dane - import, w "Inne źródła" jest też import z XML. masz jakiś konkretny przykład, który chcesz zaimportować??
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ą...
A czemu nie zrobisz tego z poziomu mysql? Zapisz plik jako csv i i zaimportuj do bazy: http://stackoverflow.com/questions/11077...
Potrzebny jest prosty edytor tekstowy, nie wpisujący dodatkowych znaków formatujących, w tym wypadku może wystarczyć notepad. Ja to zrobiłem w ten sposób, że z nowego telefonu wyeksportowałem krótką liste, porównałem z tą starą, dokonałem modyfikacje polecenie replace, zamień, reszte podretuszowałem recznie, wysłałem do nowej nokii i poszło. W innym...
Plik wsadowy jest poprawny. Znalazłem obejście na to poprzez opcję kreator importu tekstu. Przerabiam zwyczajnie plik wsadowy poprzez odpowiednie kodowanie. Czy jest to możliwe z poziomu VBA aby tekst otwierany przed wgraniem był konwertowany na 65001: Unicode UTF-8??
Jeśli problem będzie nadal występował, może trzeba przed importem zmienić rozszerzenie pliku na txt - i dopiero zaimportować go jako normalny tekst, a na etapie importu określić właściwy format danych (można także przy zastosowaniu odpowiedniego kodu) andie
Przy eksporcie dbf do Excela zwrócić uwagę na system kodowania znaków. Wybrać taki aby znaki w Excelu miały ąęśćńżź, a nie jakieś krzaczki, jak są daty to przed eksportem daną kolumnę w Excelu do której maja trafić daty sformatować jak dla dat, choć te daty to raczej jak importuje się z txt do Excela.
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...
Wszystko się zgadza, ale podczas testów odkryłem inny problem. Sam import trwa bardzo długo ( importuje ponad 2000 wierszy). Można tą procedurę jakoś usprawnić ?
[syntax=vbscript]Sub ImportujPlikizWieluLokalizacji() Dim ZakresWejsciowy As String Application.ScreenUpdating = False Set p = Sheets("Parametry") Set i = Sheets("Import") For x = 2 To p.Cells(Rows.Count, "A").End(xlUp).Row If p.Cells(x, 5) = "x" Then Katalog = p.Cells(x, "A") If Right(Katalog, 1) <> "\" Then Katalog = Katalog & "\" On Error...
import pliku excel excel zamykanie pliku excel otwieranie pliku
różnicowy regulator temperatury krótkie przewody spawalnicze adblue podgrzewanie
zderzak naprawa zderzak naprawa
Błąd w module przy linii 164 - analiza i rozwiązania Luz zaworowy 4T 80cc GY6 139QMB – jakie wartości ssący/wydechowy?