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]
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()),...
Przetestuj makro z załącznika.
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...
żeby to magiczne makro działało z moimi danymi, byłoby super Na podstawie Twojego pliku utworzyłem jeszcze drugi podobny plik csv i przetestowałem z nimi import za pomocą załączonego pliku z makrami :D Po uruchomieniu makra zmiana_numerów (skrót ctrl+i ) - wszystkie numery kart uzyskują przedrostek CN - uzyskując w ten sposób cechy wartości tekstowej....
Tak jak adamas_nt pisał pewnie podajesz w b2 bez "\" (więc dir nie sprawdzi katalog i plik pusty) [syntax=vbscript] Sub Krok1_Tworzenie_bazy() 'Import danych tekstowych i stworzenie bazy Dim Katalog As String 'wskazany przez użytkownika katalog, w którym znajdują się pliki tekstowe Dim Plik As String 'nazwa wczytywanego pliku tekstowego Dim Sciezka...
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.
1. Wiec w tym ostatni pliku potrzebowal bym w zakladce pionowo jakis przycis (makro) ktory by automatycznie usunol czesc tekstu "6pao" i "6pac" poniewaz wszystkie kody kreskowe to posadaja to z przodu ale w systemie sa tylko liczby aktualnie jest tam "6pao" ale czsami jest "6pac" czsmiami sa pomieszane jet to i to wiem ze mozna to usunac formula albo...
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....
podczas wyboru pliku kliknę na przycisk "Anuluj" :cunning: Temu kto kliknie "Anuluj" trzeba ustanowić karę : wklejania ręcznego poszczególnych wartości do tabeli :please: A na poważnie to można wprowadzić kod obsługi błędu i przerywający makro np: [syntax=vbscript]Public Sub ImpCsv() Dim Monthly As String Dim aConn As Object On Error GoTo ErrMsg If...
W takim razie dla potomnych: INTEGRA Firmware 1.16 wprowadzono opcję niezgłaszania do centrali awarii serwera SATEL rozszerzono działanie funkcji przesyłania komunikatów o załączeniu czuwania o strefy z zerowym czasem na wyjście przy załączaniu hasłem usprawniono dopisywanie zdarzeń o awariach monitorowania z modułem ETHM-1 Plus wprowadzono korektę...
Proponuję zmodyfikować trochę końcówkę kodu VBA: [syntax=vbscript]Debug.Print rngOut & strName & strSOURCE_COORD1 & strSOURCE_COORD1 & _ strDEST1_COORD1 & strDEST1_COORD2 Set rngOut = rngOut.Offset(1, 0) Next End If End With Set XML = Nothing End Sub [/syntax] to wtedy zobaczysz w okienku Immediate dlaczego brakuje Ci tych elementów :ok: Albo zmienisz...
Jeśli czyta i zapisuje, to już połowa sukcesu ;) Tajemnicą jest, dlaczego przypisanie jest poza pętlą. Nie rozumiem też dlaczego łączysz linie 'text=text & textline' Kolejność w pętli powinna być następująca: 1. czytam linię 2. zapisuję do komórek i.. tak w kółko, aż do EOF (end of file) Po mojemu powinno zadziałać coś takiego:[syntax=vb]licznik = 1...
OK, dam znać jak coś znajdę, jednak nie dzisiaj :)
Na jednym z telefonów z android taka ciekawostka mam makra bez ich nazw - same ikony. Gdzie na innym telefonie z IOS jest ok. zrób tak jak pisałem w #21473931 po każdej modyfikacji makr w dloadX należy na nowo zaktualizować makra w intrgra control , można to zrobić usuwając system z integra control i dodając go na nowo lub edytując ustawienie ->...
Według mnie korzystanie z Googla jest wygodniejsze od forum. No chyba, że Google nic nie znajduje... https://www.google.com/search?q=vba+impo... Masz 100% racji tylko albo ja jestem laikiem (w sumie jestem z brakiem angielskiego czasy gdy...
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...
Plik z rozszerzeniem *.edz należy rozpakować np. za pomocą 7-zip'a. Za pomocą Eplana należy zaimportować interesujący plik. Eplan -> Prawy klawisz -> Wstaw makro symbolu... -> Zaznaczyć plik typu *.ema, *.ems i otworzyć z podanej ścieżki plik z odpowiednim rozszerzeniem (np. dla makra 6ES7211-1AD30-0XB0 będzie to ścieżka 6ES7211-1AD30-0XB0itemsmacroSIEMENSAUTOM...
Zobacz, czy o coś takiego chodziło... Kod nieco rozbudowany w dodatkowe "opcje", ale zawsze można poskracać. :)
Witam. Potrzebuję stworzyć makro które będzie importowało określone dane z plików TXT znajdujących się w określonym folderze. Z plików muszę pobrać dane: 1.MODULE type serial 2.HEADS type serial 3.Nozzle Station type 4. Conveyor type I zapisać je do osobnych kolumn lub wierszy. / dane z pliku 1 - wiersz A dane z pliku 2 - wiersz B lub zapis w kolumnach...
Jeju. Aleś się napisał. Pan Tadeusz przy tym to pestka. :D A wystarczą dwie linijki kodu nie licząc deklaracji. [syntax=vb]Sub OtwórzTekstowy() Dim strPlik As String strPlik = Application.GetOpenFilename Workbooks.OpenText strPlik, xlWindows, 1, xlDelimited, xlTextQualifierDoubleQuote, False, True, False, False, False, False End Sub [/syntax]
Poza tym odpowiedziałeś tylko na kilka poruszonych przeze mnie wątków. Nie odniosłeś się np. do cytatu z czysteogrzewanie.pl: "Odpowiedź wydaje się prosta: trzeci świat jest świadom, że od paliw stałych długo nie ucieknie choćby chciał.Tam widzą, że warto i trzeba poprawiać technologię ich spalania. Piece muszą być proste i tanie, bo inaczej nie będzie...
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ę...
W excelu zawsze można skorzystać z obiektu ie, czyli otworzyć daną stronę, kliknąć w daną tabele i wtedy ją pobrać. Jeśli masz na myśli Import z Sieci WEb i kliknięcie żółtych znaczków przy konkretnej tabeli to niestety nie działa w tym przypadku. Z tego co się orientuje problemem jest kod tej strony czyli JSON a nie html. I konieczne jest tu zapewne...
Wystarczy zrobić import przez kreatora tekstu - rozdzielany - przecinek - zakończ nagraj makro i po sprawie.
Z dzieciństwa pamiętam, że ta książka była jedną z najgrubszych na półce. U mnie "Janko Muzykant" :) (at)zgoratg , że tak zapytam próbowałeś sobie nagrać makro z importowania 'txt' czyli przejście, przez kreator importu?
Jest tam makro. Otwórz pusty arkusz i uruchom makro DwaDzieścia :)
Ź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.
Witam serdecznie, mam w swoim pliku makro, które importuje mi dane z serwera SQL, działa bardzo fajnie po za jednym mankamentem, do kolumny C importuje czas, który niestety zawsze importuje sie w formacie z data, DD.MM.RRRR HH:MM:SS, mój kłopot polega na tym, że muszę się pozbyć tej daty i zostawić sam czas w formacie HH:MM:SS. Próbowałem już funkcji...
Napisz makro które zrobi to co chcesz.
Witam, Na wstępie - nie jestem programistą i nie umiem programować … niestety – dlatego bardzo proszę o pomoc. Szukam rozwiązania, które pozwoli na automatyczny import danych według wybranych dat i etykiet danych, za pomocą makra w MS Excel. Załączyłem przykład „import_danych_01__18082015” - sam go zrobiłem :-) - co jak dla mnie...
Szukałem, szukałem i... jakoś nic nie znalazłem... Proszę więc o pomoc. Zarejestrowałem nowe makro, które ma importować pliki *.txt. Wszystko działa ok. pod warunkiem, że importuję pliki o tej samej nazwie i z tej samej lokalizacji. Muszę jednak codziennie zaimportować nowy plik z nową nazwą (w nazwie jest aktualna data, np. dokumenty_17.06.08.txt -...
Coś takiego. Plik txt, to 'C:\a.txt'.
Muszę powrócić do tematu. Niestety w niektórych plikach XML w linii Osoba jest więcej osób. Jak sprawić by makro czytało wszystkie osoby a nie tylko pierwszą?
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"
Plik, który zmienia nazwę to plik z którego kopiujemy dane - Zlecenie prac na formie wtryskowej. Plik z arkuszem Import nie zmienia nazwy nigdy. W tym pliku wklejamy tylko komórki od S6:V6 z każdego jednego arkusza 1,2,3... z pliku Zlecenie prac na formie wtryskowej. Mam nadzieję, że jest jaśniej.
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...
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?
Powyższe działa bez zarzutu. Makro cały czas rośnie ale zatrzymałem się nad wyciągnięciem z plików źródłowych daty ich utworzenia. Czy ktoś ma jakis pomysł? MS
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...
[syntax=vbscript] Sub Inserter() Dim connection As New ADODB.connection Dim iRowNo As Integer Dim sEntryDate As String With Sheets("Inserter") 'Open a connection to SQL Server connection.Open "Provider=SQLOLEDB;Password=xxx;User ID=xxxx;Data Source=KBNDBSQL151;Initial Catalog=yyy" iRowNo = 2 'priorytetyzacja.Show ' sDocumentNo = .Cells(iRowNo, 2) '...
Panowie Mam plik txt, w którym mam daty i inne bajery. Mam małą zagwostke Potrzebuje makro które jak znajdzie mi taki ciąg: http://jakasstronka.pl/stronkatest to wstawi mi to do nowej linii (komórki). Ten szukany ciąg znaków jest poprzedzony innymi słowami. Import pliku realizuje mi sie poprawnie
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...
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\,...
Witam piszę proste makro mające pisać słownie wartości liczbowe zawarte w komórce excela. Osoby, które będą używały tego makra mają małe doświadczenie z excelem, dlatego chcę maksymalnie uprościć interfejs. Chodzi mi o to, żeby można było wybrać komórkę z której ma być pobrana wartość liczbowa i miejsce wpisania tekstu w taki sposób jak robią to formatki...
Witam, od kilku dni szukam odpowiedzi i nie mogę znaleść. Mianowicie muszę utworzyć makro, które będzie pobierało automatem pliki codziennie rano o określonej godzinie ( w ich nazwie jest data). Nowe pliki pojawiają się np 6.55 na dysku a o 7 makro musi przekonwertować je w taki sposób, żeby sumowało wartości liczbowe z plików i w postaci sumy pod odpowiednią...
Za mało danych aby ci podpowiedzieć konkretnie. Sub import() Arkusz1.Range("A1").Qu... BackgroundQuery:=False End Sub
Witam JRV i dziękuję za zainteresowanie. Uruchomiłem makro wpisane do pliku Suma_0.xls. W tum samym folderze "Pomiary" mam plik Suma_0.xls oraz pliki pomiarów od O do 60, tak aby suma zliczonych wierszy nie przekroczyła 65000. Program wczytał pliki pomiarowe, ale nie zwrócił żadnych danych, ani żadnego komunikatu, prosił bym również o wyjaśnienie działania...
lanzul dziękuję za odpowiedź... jestem początkującym vba-excelowcem i powiem szczerze, moje pierwsze makro, polegające na zaznaczaniu fragmentu zeszytu i przenoszenia go gdzie indziej powstało jakieś 2 tygodnie temu. Także dopiero się tego uczę, więc stąd toporność i kompletny beton mojego kodu, bo nie wiem jak np. dynamicznie zmieniać punkty odniesienia...
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,...
makro import arkuszy makro import arkusz excel import arkuszy makro
wymiana grzałki silnik napędu bramy hormann regeneracja napisów
bateria macallister hilti udaru
Liczba żłobków w silniku 2800 obr./min: szczegóły i przykłady Jak uszczelnić wężownicę w bojlerze?
