Google -> "excel amount of files in directory"
[syntax=vbscript]For i = 2 To lastrowA nazwa = Cells(i, 2) Workbooks.Add ActiveWorkbook.SaveAs ("C:\Users\Uzytkownik\Desktop\FOLDER\" & "nowy" & nazwa & ".xls") ActiveWorkbook.Close Next i[/syntax]
Najprościej na przykład tak: Sub Kopiowanie() Set fs = CreateObject("Scripting.FileSystemObject... fs.CopyFile [A1], [B1] End Sub [A1] zastępuje Range("A1") Dokładny opis metody CopyFile jest w Helpie do VBA. W nazwach plików można używać symboli wieloznacznych do kopiowania wielu plików naraz.
Skopiować trzeba wszystko, a później usunąć zawartość szarych pól.
Witam [syntax=vb] Sub podzial_pliku() Dim kol As String Dim wiersz As Integer Dim nazwa As String Dim ark As Worksheet kol = InputBox("Podaj litere kolumny na podstawie ktorej nastapi podzial plikow", "Pytanie") wiersz = InputBox("Podaj numer wiersza od ktorego zacznie sie podzial plikow", "Pytanie") Range(kol & wiersz).Select Set ark = ActiveSheet...
Podbijam, Mam też podobny problem. Chciałbym by makro porównywało wartości dla danego produktu z dwóch plików, jeżeli się rożnią to by wstawił obok np. do kolumny C A to nazwa produktu B to ilość W dwóch plikach taki sam układ. W kolumnie A i B mogą być puste wiersze. Poratuje ktoś ? :) Pozdrawiam Paweł Dodano po 1 Cześć, Dziękuję, Ale mam jeszcze jeden...
Mam w tych plikach faktury w postaci tekstowej. Trochę to dziwne :D Faktury w postaci tekstowej :?: Z jakiego to programu wyeksportowane ? załącz przykładowy plik. Potrzebuję, aby makro Excela otwierało te pliki tekstowe jeden po drugim i wstawiało w określone miejsca pliku nowy tekst, by powstała korekta faktury Konieczny byłby szablon takiej faktury...
Makro tworzące pliki z typami. P.S. Miałaś zamieścić przykładowy plik...
Można użyć zewnętrznego programu działającego wsadowo, połączyć pliki poleceniem Shell i wydrukować. Nie znam na tyle VBA aby kombinować tylko "pod nim". Nie wiem tylko czy nie idziesz w złym kierunku, do obsługi pdf lepiej użyć zewnętrznych programów niż kombinować z Excelem :)
Tak napisałeś, ale napisałeś również: Chodzi o to żeby z pliku z danymi makro pobierało konkretne dane i wstawiało w bazę danych. Przerobiłem makro pod pliki z Twoimi danymi. Nie było mowy o tym, że dane mają być importowane przyrostowo. Dodano po 8 Przerobiłem makro, żeby importowało tylko 'nowe' pliki. po drugie w pliku z danymi są pewne komórki stałe...
Chciałbym, aby w osobnym pliku pojawiła się lista wszystkich wierszy w których jedna z komórek tj. "pozostało do realizacji" jest większa od zera. Jeżeli te wszystkie pliki będą w jednym folderze :!: to takie zadanie (zestawienia danych lub ich aktualizacji :D ) może wykonać makro w załączonym pliku (uruchamiane skrótem ctrl+s ) z pliku zestaw.xlsm....
Uściślij: 1. Czy pliki zostały już otwarte z danego katalogu i przebywają sobie w tle programu, co sugerowałoby to co napisałeś (" pobiera z otwartego pliku ") ? 2. Czy też pliki trzeba dopiero otworzyć z danego katalogu ? 3. Jeśli trzeba, to czy jest to katalog tylko "jednopoziomowy", czy też znajdują się w nim podkatalogi, z których też należy otwierać...
Zakłada, że z tego Mam dwa pliki filmowe o nazwach: film1_720p.mkv film2_1080p.mkv nie z "720p LEKTOR.mkv" bierzemy 8 znaków nazwy (od końca) i wycinamy 3 znaki z tych ośmiu - dobrze rozumiem? tak
Jeśli chodzi o pobieranie danych i ich sortowanie, to można by to tak zrobić jak w pliku poniżej (jeden z wielu wariantów): 964013 W kodzie praktycznie brak obsługi błędów, więc bierzesz odpowiedzialność za rzetelność swoich danych, będą chińskie albo złe formaty daty, makro się wywróci, będziesz sabotować własne działania w obróbce danych, makro się...
Cześć, może ktoś z Was kojarzy taki temat albo ma gotowe makro. Powiedzmy, że mam folder "A" w którym mam 50 plików PDF/xls/xlsm o różnych nazwach. Chciałbym wskazać jaką ilość plików z wybranego folderu ma mi otworzyć makro, a następnie ma otworzyć losowo wybraną ilość plików. Cel: makro ma byc pomocne w wybieraniu próbki plików do kontroli, w sposób...
Załącz plik w excelu, pokaż jak wyglądają listy i arkusze. Opis jest niejasny.
Jeśli będziesz miała otwarte oba pliki (tylko :!: ) to w świeżym pliku możesz wykorzystać makro typu :spoko: : [syntax=vbscript]Option Explicit Sub duplikatclear() Dim ws As Worksheet Dim ww As Worksheet Dim i, lrs, lrw As Integer Dim db As Range Set ws = ThisWorkbook.Sheets(1) Set ww = Workbooks(2).Sheets(1) lrs = ws.Cells(Rows.Count, 6).End(xlUp).Row...
Dane docelowe będą bardziej skomplikowane, ale na podstawie "szablonu" sam będę próbował dostosować do moich potrzeb. Potrzebuję wsparcia na start, bo VBA jeszcze nie wchodzi jak trzeba Jeśli dobrze odczytuję Twoje zadanie :?: - uzyskanie efektu takiego jak na zrzucie 1144985 To na początek możesz wypróbować makro z załączonego pliku Protraport.xlsm...
A jak są nazwane pliki z ankietami? Gdzie je zapisujesz, jeżeli mają taką samą (mozliwe?) nazwę? Czy jest jakaś struktura katalogów? I Ile tych ankiet będzie mniej wiecej? Może nie warto zbytnio kombinować z monitorowaniem tylko wczytać wszystko dopiero jak będzie potrzebne? Makra działają dosyc szybko. Mam gdzieś gotowca łączącego pliki Excela. Sama...
Oczywiście pozamieniałeś rozszerzenie pliku xlsm nie tam gdzie powinieneś :cunning: Umieść załączony plik w jakimś folderze testowym i wykonaj umieszczone tam makro :!: 982520
Możesz zastosować takie makro: [syntax=vbscript]Sub Kopiowanie2() ' ' Kopiowanie2 Makro ' Dim lw As Long, i As Long, j As Long Sheets("Arkusz1").Activate '1 lw = Cells(Rows.Count, "A").End(xlUp).Row '2 j = 1 '3 For i = 2 To lw '4 Range("A" & i & ",B" & i & ",D" & i & ",F" & i).Copy _ Destination:=Sheets("Arkusz2").Range("A" & j).Resize(Range("G" & i))...
makro które będzie na podstawie porównania wiersza i kolumny wstawiało znak " "X" Makro VBA można wykorzystać do automatyzacji wielokrotnie powtarzanych czynności w aplikacjach Office :idea: Nie przedstawiłeś kolego żadnych plików, ani żadnych informacji, które wskazywały by, że w Twoim przypadku istnieje jakakolwiek możliwość zastosowania kodu VBA...
Z tego co wiem preprocesor przelatuje pliki tylko i wyłącznie raz, więc to chyba nie będzie możliwe. 4\/3!!
jest tylko problem, gdyż to działa pod warunkiem, że we wskazanym katalogu jest tylko jeden plik, ale jeśli ja w katalogu mam ich ok 30 Makro działa właśnie w ten sposób, że z podanej lokalizacji pobiera wszystkie pliki *.xls*. Drugie pytanie proszę sprecyzować.
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...
Mam jeszcze coś takiego ale wskazuje mi błąd Jaki błąd? 1004 programistyczny dostęp do projektu nie jest zaufany - teraz patrze na ten kod błędu więc to będzie coś w ustawieniach ?? Dodano po 17 Mam jeszcze coś takiego ale wskazuje mi błąd Jaki błąd? 1004 programistyczny dostęp do projektu nie jest zaufany - teraz patrze na ten kod błędu więc to będzie...
Wyszło mi coś takiego[syntax=vb]Sub Pobierz() Dim nazwa As String Dim ark As Worksheet Dim wrs As Long, j As Integer, i As Long nazwa = "Arkusz2" 'nazwa arkusza docelowego 'tutaj 2 dla porównania z 1 ThisWorkbook.Activate 'gdyby nie był Sheets(nazwa).Range("A2:H65536").ClearCo... 'czyścimy wrs = 2 '1-szy wiersz docelowy j = 3 '1-sza kolumna źródłowa...
Dzień dobry, potrzebuję takiego makra, które przefiltruje wszystkie wartości po jednej kolumnie i stworzy nowe pliki tyle ile jest wariantów w filtrze. 1. na C jest katalog dostawcy (zamieszczony) w nim plik z makrem start.xlsm i plik z danymi dane.xlsx i folder podzielone 2. makro start w pliku start.xlsm otwiera plik dane.xlsx 3. sprawdza w kolumnie...
Ale mnie chodzi o Makro wstawiające do bieżącego Skoroszytu (Zeszytu) Makro we we właściwości: Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, Cancel As Boolean) No i w czym problem? Ja podobnie jak adamas_nt nie rozumiem problemu... plik1.xls ok plik2.xls ok plik3.xls ok
Tak na szybko masz tu makro, które chyba robi to co chciałeś. założenia - pliki są w katalogu C:\dane - pobierasz nazwę do szukania z komórki B3 - szukasz takiego produktu w kolumnie B - w obu plikach arkusze nazywają się Dane - zakres poszukiwania w kolumnie B jest ograniczony do 30 - wartość dotycząca szukanego produktu jest pobierana z komórki sąsiedniej...
Jeżeli wszysztkie pliki źródłowe istnieją w podanej lokalizacji, tak samo jak katalog docelowy, to faktycznie proste makro załatwia sprawę (a jeśli nie, trzeba dodać kilka linijek kodu do sprawdzenia i i ew. utworzenia katalogu przed skopiowaniem). [syntax=vb]Private Sub CommandButton1_Click() On Error GoTo myErr plik_z = "" ost_w = Cells(Rows.Count,...
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ę...
Oczywiście w main trzeba dodać sobie ustawienia timera, właczenie jego przerwania ( i tu trzeba wybrać czy od przeppełnienia czy od porównania - zależy jak wolicz czas liczyć: w taktach procesora czy jakis bardziej przyjaznych jednostkach), przerwania również należy włączyć globalnie przez sei(); czy SREG |= (1<<SREG_I); ISR - Interrupt Service...
Nie wiem od czego zacząć... http://obrazki.elektroda.pl/4911461900_1... Otwórz oba pliki i w edytorze VB przeciągnij formularz do swojego projektu. W kodzie arkusza wklej (lub skopiuj kod z przykładu) [syntax=vb]Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) uForm1.Show Cancel = True End Sub[/syntax]
wyskakuje jeszcze błąd z tą samą nazwą arkusza W Skoroszyt zawierający makra zostawić tylko jeden arkusz i dać mu jakiś unikatową nazwę(ale Excel, sam zmienia nazwę (dodaje (2)), a następnie zmiany nazwy na nazwę skoroszytu) Chcesz wybrać pliki indywidualnie? Wtedy [syntax=vb] Sub zbior() Dim wb As Workbook Do fl = Application.GetOpenFilename("ExcelFiles....
Pliki .xsl można dodawać, .xslx - niestety nie, ale wystarczy spakować np. ZIPem i już się będzie dało. Twój opis jest na tyle zawiły, że sądzę, iż lepiej nadawałby się do jego realizacji MS Access... tak czy inaczej spróbuj opisać co chcesz osiągnąć bardziej ogólnie, na wyższym poziomie abstrakcji - nie na poziomie komórek, wierszy i kolumn tylko funkcjonalności.
Chciałbym się podpiąć pod pytanie. Chciałbym jednam żeby mój plik z makrem po zakończeniu procedury zamknął się?? czy to w ogóle możliwe?? Kończę swoje makro poleceniem: ActiveWindow.Close SaveChanges:=False Zamyka mi się jednak wszystko ale sam excel (bez otwartego żadnego pliku) jest otwarty.
dane z wielu plików i wklejać je jako niesformatowane dane do jednego arkusza w oddzielnym skoroszycie... każda tabela z danymi ma inna liczbe wierszy . Zaczynają się zawsze w tym samym punkcie i liczba kolumna jest taka sama ale liczba wierszy zawsze inna. Różna jest także liczba arkuszy ale dane zawsze znajdują się w ostatnim . Wszystkie pliki z...
Jeżeli ci potrzeba jednorazowo to ponizej masz trochę kulawe makro. Jeżeli nie to nawet tego nie stosuj Przyznam że to moje pierwsze w wordzie Robiłem na analogie do tego co pokazałeś i zgadując. Błąd polega na tym ze na pewno nie zrobi ostatniej strony. (jak widać początek zaznaczania to dana strona a koniec następna strona i ponieważ ostatnia strona...
Poradnik dla początkujących, ale jedyne czego w nim brakuje to opisu jak z konfigurować środowisko do pisania na rejestrach. W sumie to masz już środowisko i tak naprawdę nic nie musisz konfigurować aby programować używając rejestrów. W CubeIDE masz przynajmniej pewność, że wszystkie pliki CMSIS są aktualne. Jak zrobić projekt bez HAL: 1. Wygenetuj...
Lista niedozwolonych znaków dla nazwy pliku w Windowsie jest krótsza, w dodatku domyślnie nie można niektórych z nich wstawić jako nazwy arkusza, więc finalnie można ją skrócić jeszcze bardziej. Możesz sobie sprawdzić listę i wstawić własne znaki. Pełen przykład poniżej: [syntax=vbscript]Private Sub CommandButton1_Click() ' sendAll Makro ' Makro zarejestrowane...
Na podstawie pliku przykładowego chcę aby mi utworzyło po uruchomieniu makra 4 oddzielnie pliki w miejscu gdzie jest położony plik bazowy (na podstawie kolumny A czyli miesiąca). Każdy plik powinien zawierać wszystkie wiersze dla danego kryterium czyli dla: Styczeń 8 wierszy Luty2 wierszy Marzec10 wierszy Kwiecień9 wierszy Ostatecznie proces ten ma...
Autorka powinna wtedy albo usunąć istniejące katalogi razem z ich zawartością - ręcznie, albo dopisać stosowne zabezpieczenie... Masz słuszność, chociaż można było zrobić goto i wyświetlić komunikat, ale chyba za dużo programuję w VB.NET i później zapominam, że w VB to było mniej przyjemne :) 1. Zamknij oczy 2. Odpal makro He he... to sobie własnie...
W pierwszej kolejności upewnij się, że radiator na CPU jest prawidłowo zamontowany i nie ma na nim kurzu. W drugiej kolejności możesz zdjąć radiator, dokładnie go wyczyścić ze starej pasty (CPU także), nałożyć kapkę nowej pasty i idealnie wyczyszczony radiator (oraz wentylator) ponownie zamontować upewniając się, że wszystkie zaczepy chłodzenia są prawidłowo...
Witam. Zrobiłem nagrałem makro które automatycznie odświeża 3 tabele (co 5 minut). Chciałem dodać możliwość włączenia i wyłączenia na podstawie wartości komórki. Wynik: Sub start() If (Range("AC11") = "TAK") Then Application.OnTime Now + TimeValue("00:05:00&quo... "button3"...
Workbooks.Open Baza & Plik, Local:=True, ale to nie działa Zgodnie z Twoimi deklaracjami: Plik = Range("DATA") Baza = "C:\Users\Desktop\DZIENNE\RAPORTY\" & Plik więc argument polecenia Workbooks.Open jest oczywiście nieprawidłowy (zdublowana wartość Plik) :-( Załącz przykładowe pliki z tą procedurą i wyjaśnij dlaczego otwierasz te pliki raportów ?...
Spróbuj tego (spakowane zipem). Makro jest w pliku 0.xls a otwierane są pliki 1.xls i 2.xls Wypakuj najpierw całą zawartość.
Witam. Prosiłbym o pomoc, mianowicie do poniższego makra potrzebuje wstawić warunek, jeżeli w pliku są puste arkusze, to ma ich nie kopiować. Z góry dzięki za pomoc.
Weź Koleżanko sprawdź makro dla załączonego pliku... Potem porównaj ze swoim plikiem.
Daj źródłowy plik tekstowy, to zobaczymy jaki to encoding. Z głowy nie pamiętam która kombinacja nieprawidłowego przypisania daje takie akurat krzaczki. Prawdziwego testu źródłowego nie mogę załączyć, ponieważ: 1. Tak naprawdę pliki otrzymuję w pdf i dopiero je konwertuję do excela. Przy czym błąd nie leży w konwertowaniu, ponieważ już w pdf jest tak...
makro dzielące pliki makro otwierające pliki makro otwiera pliki listy
toshiba satellite sterownik windows7 wymiana grzałki kenwood głośniki
Adaptacja alternatora zwrotnego w Peugeot 508 RXH Hybrid4 Resetowanie adaptacji ECU – jak przywrócić mapy pracy silnika Bosch, Siemens, VAG, EDC17
