Ale, ale. U mnie zmienna 'test' "pokazuje" posortowane, bez względu na kolejność zaznaczania.[syntax=vbscript]With fd .InitialFileName = Environ("HOMEPATH") & "\Desktop\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect = True .Show For i = 1 To .SelectedItems.Count test = .SelectedItems(i) Next End With[/syntax]Może toto...
Weź Koleżanko sprawdź makro dla załączonego pliku... Potem porównaj ze swoim plikiem.
Pewnie ktoś z wyższą wersją się odezwie, żeby Ci pomóc.:)
W załączniku.
Jesteś pewien, że masz pełen dostęp do C podmień i zobacz utworzy plik tam gdzie masz .xlsm [syntax=vbscript]Open ActiveWorkbook.Path & "\" & Range("B3") & ".dxf" For Output As #1[/syntax]
Google -> "excel amount of files in directory"
Makro podział pliku według danych w kolumnie
nie mógł zamknąć pliku przed wyłączeniem wszystkich filtrów. pozwala użytkownikowi zapisać plik wywala błąd .......
Będę bardzo wdzięczna za pomoc Na forum jest wiele podobnych przypadków. Proponuję nagrać makro, a następnie użyć metod (pętli) ze wspomnianych przykładów.
Polecenie Name powinno działać poprawnie. Nie wiem jaką ma Pan strukturę plików. Możliwe przyczyny błędu: 1. Plik docelowy już istnieje 2. Folder docelowy nie istnieje 3. Plik źródłowy jest otwarty 4. Nazwa pliku zawiera znaki wieloznaczne "*" lub "?"
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
Makro tworzące pliki z typami. P.S. Miałaś zamieścić przykładowy plik...
http://obrazki.elektroda.pl/4379317000_1... http://obrazki.elektroda.pl/4379317000_1...
Zamiast msgbox użyj to jak ścieżki do pliku.
Przykro mi, ale nawet nie sprawdzałeś, jak działa makro... W komórkę C1 wpisujesz ścieżkę do tysiąca plików, na przykład: C:\Users\TwojaNazwaUzytkownika\Pictures\... i naciskasz przycisk 'Zmień nazwę tysiącowi plików'. Makro zamieni nazwę tysiącom plików.:)
Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]
Podstaw nazwę użytkownika pod zmienną, następnie sprawdzaj w dodatkowej instrukcji. [syntax=vb]With ark Do While .Cells(wrs, 2) <> "" haslo = .Cells(wrs, 6) 'tutaj podstaw usrName = .Cells(wrs,8) If .Cells(wrs, 2) = login Then test = True Exit Do End If wrs = wrs + 1 Loop 'jeśli hasło znalezione If test = True Then If haslo = InputBox("Podaj hasło...
[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]
StarQuery.RunTable ActiveWorkbook.Path & "\Addone-parametres.sqx" spróbuj zmienić na StarQuery.RunTable "z:\moje\Addone-parametres.sqx" Albo na jakąkolwiek inną ścieżkę, którą powinieneś wpisać.
Poprawiony Twój kod (używając jednej zmiennej 'ow');): [syntax=vbscript]Columns("H:H").Select Selection.Copy Workbooks.Add Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _ :=False, Transpose:=False Application.CutCopyMode = False ActiveWorkbook.SaveAs Filename:= _ "C:\Users\imie.nazwisko\Desktop\WYSYŁKA MASOWA\Lista.csv",...
Poprawiłem błąd.
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! Możesz wykorzystać kod: :spoko: [syntax=vbscript]Public Sub zapisz() Dim Wb_Name As Variant Wb_Name = Application.GetSaveAsFilename If Wb_Name <> False Then ActiveWorkbook.SaveAs Filename:=Wb_Name End If End Sub [/syntax]
Rozumiem że w jednym pliku excela jest zapisane makro i otwierasz w excelu następny plik wykonujesz makro i chcesz zapisać zmiany w drugim pliku, otworzyć następny, wykonać makro i zapisać zmiany. Jeśli tak to ostatnia linijka powinna mieć postać ActiveWorkbook.SaveCopyAs Filename:=katalogZapisu & "\" & Format(Date, "DD-MM-YYYY") & "_" & ActiveWorkbook.Name...
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
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...
[syntax=vbscript]Sub Makro() p = [A1] 'Nazwa pliku jest w komórce A1 Cells.Copy Workbooks.Add ActiveSheet.Paste Application.CutCopyMode = False Range("B21:E21,G21:V21,AB17:AB18,B17:V20... With Selection.Validation .Delete .Add Type:=xlValidateInputOnly, AlertStyle:=xlValidAlertStop, Operator _ :=xlBetween .IgnoreBlank = True .InCellDropdown...
Gdybyś spojrzał do pomocy VBA, to znalazłbyś takie zdanie: This property applies only to worksheet pages. :( Znalazłem na szybko taki [url=http://www.vb-helper.com/howto_prin... Po modyfikacji do VBA i Twoich założeń powinien wykonywać to czego oczekujesz. Pozdrawiam
pochodzą z programu "IFS" Niewiele to mówi, programów ERP jest trochę na rynku - jakie to pliki: tekstowe, xml, html, binarne ?
1. Wyrzuć "górne" r=r+1, ustaw (u góry) r=2 jeśli... sam już nie wiem. Wypróbuj. 2. Nie ta metoda. Musiałbyś copy-paste i wybierając (select) wiersz (zakres) docelowy. P.S. Zmykam. Dobranoc ;)
Myślę, że prościej będzie, jak załączysz przykładowy plik z opcją wywołującą błąd. Nie będzie trzeba się domyślać. :)
[syntax=vbscript]Sub Pobierz() Set w = ActiveWorkbook p = Application.GetOpenFilename("Pliki Excela,*.xls*", MultiSelect:=True) If UBound(p) = 2 Then Set a = Workbooks.Open(p(1)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("C10") a.Close False Set a = Workbooks.Open(p(2)) a.Sheets(1).Range("B10:C23").Copy w.Sheets(1).Range("E10") a.Close False...
Raczej zmień kolejność ;) [syntax=vb]Sub powrot_z_zapisaniem() Workbooks.Open Filename:="C:\Program Files\tabela.xls" ThisWorkbook.Close True End Sub[/syntax]
Musisz wpisać coś takiego: ActiveWorkbook.XmlImport URL:="C:\Users\Humano\Downloads\" + Worksheets("Obliczenia").Range("D1").Val... _
Nie. W makrze w pliku b dodajesz parametr który przyjmuje procedura makra. gdy makro wywołujesz z pliku A to ustawiasz ją na True a gdy z B na False. Można też ustawić parametr jako optional i wartość domyślną na false, wtedy bez jego podania będzie miał false...
Spróbuj tak: [code][syntax=vbscript] Sub ZapiszIUsuń() Dim Plik As String Plik = ThisWorkbook.FullName ThisWorkbook.SaveAs Filename:="C:\NowaŚcieżkaDoPliku\" & ThisWorkbook.Name Kill Plik End Sub [/syntax] W cudzysłowie trzeba podać ścieżkę docelową andie
To sprawdź sobie takie rozwiązanie.
[syntax=vb]Private Sub CommandButton1_Click() Zeszyt = ActiveWorkbook.Name Workbooks.Open Filename:="C:\Users\mm\Desktop\Nowy_fold... Range("A:A").Copy ThisWorkbook.Activate Sheets("Arkusz2").Activate Range("B1").Select ActiveSheet.Paste Workbooks("wsad.xlsx").Close Windows(Zeszyt).Activate End Sub[/syntax]
[syntax=vb] Dim otwarty As Boolean For Each b In Workbooks If b.Name = "zrodlo.xlsx" Then otwarty = True: Exit For Next If Not otwarty Then Workbooks.Open ThisWorkbook.Path & "\zrodlo.xlsx" [/syntax]
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...
Po mojemu nie zadziała, bo vb "zajęte" jest wykonywaniem pętli. Spróbuj z wywołaniem co sekundę makra "kontrolnego" i zmienną "decyzyjną". Makro 'kasowanie', to w tym przypadku po prostu skok na skróty . [syntax=vbscript]Private o As Integer Sub czekaj() o = 0 UpdateClock End Sub Sub kasowanie() o = 30 End Sub Private Sub UpdateClock() If o = 30 Then...
[syntax=vbscript]Sub Szukanie() NazwaPliku = UCase("SzukanyPlik.XLSX") Set Liczydlo = Sheets("SzukanyPlik") Application.ScreenUpdating = False Do While SzukanyPlik <> NazwaPliku p = Application.GetOpenFilename(FileFilter:=... files, *.xlsx", Title:="Find SzukanyPlik", MultiSelect:=False) SzukanyPlik = UCase(Mid(p, InStrRev(p, "\") + 1)) If...
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]
Witam, potrzebuję utworzyć makro w Excelu tworzące pliki na podstawie listy znajdującej się w innym pliku Excel, Skoroszyt docelowy zawiera kilka arkuszy o różnej budowie i określonych nazwach, chciałbym te nazwy również importować z pliku zawierającego listę. Dodatkowo chciałbym aby była możliwość wstawienia z listy określonych wartości w konkretnej...
Tak samo jak Adamas nie piszę w Wordzie, ale to działa: [syntax=vb]Sub dokument() Dim wartosc As String, wrs As Integer, x As Integer x = 1 Open "C:\Przyklad.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) For Each tbl In ActiveDocument.Tables For wrs = 1 To ActiveDocument.Tables(x).Rows.Count Input...
że makro łączy się z plikiem, który załączyłem i wyrzuca okno z zapytaniem o ręczne wpisanie daty Być może bo w pliku format włoski
Sub ZapiszPlik() Dim Skor As Workbook Const FOLDER As String = "D:\moje dokumenty\" -tu wpisujesz lokalizację pliku, gdzie docelowo ma się zapisać plik Set Skor = ThisWorkbook Skor.SaveAs FOLDER & "pliczek" & Format(Now(), "_yyyymmdd") - "pliczek" to nazwa jaką będzie posiadał plik ThisWorkbook.Close False End Sub To makro wstawiasz w pliku, który ma...
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
[syntax=vbscript]Sub Sumujezeli() Application.ScreenUpdating = False Dim Sc As String, Plik As String, Co As String, KG As String, KW As String, x As Double Co = Sheets("Parametry").Cells(2, 1) KG = Sheets("Parametry").Cells(2, 2) KW = Sheets("Parametry").Cells(2, 3) Sc = Sheets("Parametry").Cells(2, 4) Plik = Dir(Sc & "*.xls*") While Plik <>...
Ad 1) Czy plik, który nazywasz "plik 1" jest tym, z którego uruchamiasz makro? Jeśli tak, to dopisz Aldrin . Makro powinno znajdować się (moim zdaniem) przy zdarzeniach: Thisworkbook_Open (aby sprawdzić przy starcie) oraz Worksheet_Change, gdzie Target.Address=B3). W tym przypadku ustawiasz właściwość Enabled przycisku (wartość True lub False). Przykład...
Brakuje jakby tego ostatniego elementu. Nie wiem czy tu nie brakuje czegoś żeby zapisywało nowo utworzony plik, a nie ten z makrem, ale nie wiem jak to zmienić. Pomijam "budowę" tego kodu, jak już to tak. [syntax=vbscript] ActiveWorkbook.SaveAs Filename:="H:\" & Format(Date, "yyyy.mm.dd") & "_Zestawienie Zgromadzeń Inwestorów" & ".xlsx", _ FileFormat:=xlOpenXMLWorkbook,...
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
A no tak, sorka. Chodzi mi o makro w exelu. Nie mogę skopiować makr w arkuszu które pobierają dane bo te są chronione hasłem. Makro jest jednak przypisane do przycisku. Mam roboczy raport do którego ręcznie przeklejam dane. Istnieje sposób aby napisać takie makro Excel aby w tym moim pliku roboczym otwierało plik który pobiera dane i aby to makro aktywowało...
Moje pytania: 1. W jaki sposób opisać warunek w którym pętla będzie działać aż do znalezienia pustej komórki w kolumnie B? 2. W jaki sposób stworzyć zapis w którym komórka B1 i C1 z Arkusza1 będzie zastępowana kolejnymi komórkami z kolumny B i C z Arkusza2 i zapisywana? 3. W jaki sposób opisać kolejne komórki (A1+i)? Nie mogę znaleźć odpowiedniego...
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...
Mało szczegółów, to i kod taki sobie. ;) [syntax=vbscript]Sub Drukuj() Workbooks.Open (Range("B1")) Sheets("ArkuszDoWydrukowania").PrintOut ActiveWorkbook.Close End Sub [/syntax]
... Filename:= "C:\Documents and Settings\Marek\Pulpit\FORMULARZE.xls&quo... i drugi (można od razu wpisać bez zmiennej Newfilename) ... Filename:= "C:\Documents and Settings\Marek\Pulpit\" & numer & "-2015.xls"
Załączam przykładowe makro: - zapisu do pdf bieżącego arkusza Excela - wydruk pliku arkusza za pomocą komendy Shell i Acrobat DC - wydruk zewnętrznego pliku *.pdf za pomocą komendy Shell i Acrobat DC. Nie ma żadnych zabezpieczeń (błędne ścieżki, brak plików itp.) Trzeba uzupełnić własną ścieżkę do Acrobat.exe. Oczywiście to tylko prosty przykład, możliwości...
[syntax=vbscript]Private Sub CommandButton2_Click() Dim Path As String Dim filename As String Path = "C:\Users\Krzysztof\Desktop\" filename = Format(Now(), "ddmmyyyy") & Arkusz2.Range("Q2") ActiveWorkbook.SaveAs Path & filename Application.DisplayAlerts = False Application.Quit End Sub[/syntax]
Przy okazji załączania pliku (koniecznie z tym upartym makrem), napisz więcej o systemach i wersjach Excela zainstalowanych na obu komputerach (ilu bitowe).
[syntax=vbscript]Sub usun() For Each c In ActiveWorkbook.Names c.Delete Next End Sub[/syntax]
Możesz sobie dostosować makro z załącznika.
Tak, oczywiście jest możliwe. Najprościej używając funkcji Dir w pętli Do Until , jednocześnie zmieniając nazwy kopiowanym arkuszom wg. aktualnie otwartego, pliku źródłowego.
[syntax=vbscript]Sub Dzialaj() Application.ScreenUpdating = False Dim Tekst As String Sciezka = "C:\PlikiExcela\" Tekst = "mój tekst" Plik = Dir(Sciezka & "\*.xls*") While Plik <> "" Call Wyszukaj(Sciezka & Plik, Tekst) Plik = Dir() Wend Set fso = CreateObject("Scripting.FileSystemObject... Set s = fso.GetFolder(Sciezka) For Each p In s.SubFolders...
Tak w wielkim skrócie, widziałbym to mniej więcej tak (załącznik). Czy arkusz "Baza" jest w tym, czy innym pliku - nie ma w tej chwili znaczenia.
FileDialog ma wiele właściwości. Np: . InitialFileName = Environ("HOMEPATH") & "\Desktop\"
Jeżeli pola są oddzielone spację, wystarczy taka modyfikacja pętli: [syntax=vb]Do While Not EOF(1) Line Input #1, TextLine If Left(TextLine, 13) = "121401_2.0011" Then arr = Split(TextLine, " ") wsdane.Cells(i, 1).Value = arr(0) wsdane.Cells(i, 2).Value = arr(1) wsdane.Cells(i, 3).Value = arr(2) wsdane.Cells(i, 4).Value = arr(3) wsdane.Cells(i, 5).Value...
zy jest możliwość aby makro zmieniło nazwę w wszystkich wierszach, a nie tylko w jednym. Tak czułem że na tym się nie skończy. :) [syntax=vbscript]Sub elka() i = 1 Do While Cells(i, 1) <> "" Name Cells(i, 1) As Cells(i, 4) i = i + 1 Loop End Sub[/syntax]
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Po co kompilator? Mała podpowiedź - klawisz F8 w kodzie VBA. To co chcesz uzyskać zrobisz takim prostym kodem: [syntax=vbscript]Sub DzialajNaPlikach() Application.ScreenUpdating = False Dim Sciezka As String, Plik As String, PlikZrodlowy As Workbook, ArkuszDocelowy As Worksheet Sciezka = "c:\sas\" Plik = Dir(Sciezka & "*.xls*") Set ArkuszDocelowy...
I cisza się zrobiła... No dobra, wypiłem kawę i wyszło mi coś takiego: Edit: A makro w innym pliku. Jednak późno już... Załącznik podmieniłem
Przerobiłem makro z innego wątku PRL - sprawdź czy działa Umieść makro w plik B"plik B.xlsx" PRL po dodaniu elementów z Twojego nagrywania.
Przetestuj makro z załączonego pliku. Arkusze 1 - 4 to arkusze z danymi źródłowymi Arkusz5 - arkusz na wiersze wytłuszczone
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
przy każdym zamknięciu w kodzie skoroszytu(zeszytu)[syntax=vb] Private Sub Workbook_BeforeClose(Cancel As Boolean) ThisWorkbook.SaveCopyAs "Z:\kopia " & Date & " " & Time 'tu lokalizacja, nazwa End Sub[/syntax]
Jeśli plik jest otwarty to makro pomija wykonanie otwarcia arkusza "baza". a jak jest otwarty to wykonuje dalsze instrukcje: kopiowanie potrzebnych wierszy. Pomija cała instrukcje czyli nic nie robi. czemu przed for each muszę dać otwarty=false a potem odnosić się do otwarty jako true Generalnie nie musisz dać na początku 'otwarty=false' bo zmienna...
[syntax=vbscript]If Dir(ThisWorkbook.Path & "\Stary.xlsx") = "" Then MsgBox "Plik nie istnieje."[/syntax]
Dla podsumowania A formuła będzie wyglądać tak: =ADR.POŚR("'"&TEKST($A... & "!B13") (wstaw do komórki B2 arkusza podsumowanie roku) Z B i C, analogicznie - chyba sobie poradzisz?
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
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]
czy ktos moze pomoc rozwiazac problem? Najlepiej pomóż sobie sam :D Otwórz edytor VBA (najlepiej przy otwartej "matce" i kopii) i porównaj sobie kody modułów jednego i drugiego pliku, oraz kody UserForm-ów. Uzupełnić to możesz lekturą np https://www.cognity.pl/kurs-vba-procedur...
Coś takiego powinno zadziałać :-) [syntax=vbscript] Sub raport_pobrań () Dim fileName As Workbook Dim path As String Dim sheetName As String Worksheets("POBRANIA").Select path = "D:\rary\Raport POBR.xlsm" Set fileName = Workbooks.Open(path) ThisWorkbook.Activate For wiersz = 6 To 36 sheetName = Range("N" & wiersz) If sheetName <> "" Then With...
Jeżeli na komputerze docelowym masz zainstalowanego winrara w znanej lokalizacji, to możesz użyć coś takiego: Call Shell("C:\Program Files\WinRAR\winrar.exe x -o+ ""C:\Documents and Settings\uzytkownik\Desktop\test.rar&quo... *.* ""c:\wypakowane pliki\""", vbHide) Po szczegóły odsyłam...
Tu jest szukanie ostatniego, niepustego ActiveSheet.Paste , to wcześniej powinieneś wybrać (Select) lewą, górną komórkę obszaru, lub cały, o tym samym rozmiarze zakres. Nie mam Twojego pliku docelowego, więc pisze wszystko "na czuja". Musisz analizować otrzymany "materiał do przemyślenia" i sygnalizować co, w której linijce nie działa prawidłowo.
A czy jest możliwość stworzenia makra, które po kliknięciu przycisku stworzy automatycznie arkusze dla wszystkich osób (i nada nazwy takie jak w pierwszej kolumnie tabeli tj. nazwisko i imię), a jeśli arkusz dla danych osób już istnieje, to je pominie. Można np tak: 968207
Hmm... U mnie (Office 2010), nie wiedzieć czemu, zwraca błąd niezdefiniowanego typu. Czyżby należało włączyć jakieś referencje? Po drugie: czy takie nazwy pliku sa w folderze i jego podfolderach A powyższa funkcja przeszukuje tylko podfoldery. Nie testowaliście tow... znaczy kolego PRL Byłoby również wskazane wyłączyć rozróżnianie wielkości liter (compare...
Coś takiego. Plik txt, to 'C:\a.txt'.
Makro w oddzielnom skoroszycie [syntax=vb]Sub wypelnienie() Dim rd&, rs&, bd As Worksheet, bsh As Worksheet rs = InputBox("Wprowadz numer wiersza danych", "Wiersz #?", 1) path_A = "d:\AAA\" path_B = "d:\AAB\" Set bsh = Workbooks.Open(path_B & "BAZA").Sheets(1) Set bs = Range(Cells(rs, 1), Cells(rs, 7)) plik = Dir(path_A & "*.xlsx") While...
W przyszłości nie trzeba pisać skoroszyt zamiast arkusz(z określonymi numerami) Skoroszyt to jest plik(w każdym razie tak to było do tej pory). Ponieważ nie wiadomo, czy te same struktury arkuszy, liczbę wierszy i kolumn, kopiowanie, możesz zrobić tak: [syntax=vb] Sub kopie() 'makro w pliku(skoroszycie) A, plik B jest otwarty 'kolejne 3 linie dopasuj...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
:arrow: Do autora: Dobrze podstawiłeś to makro? W załączeniu przykład z działającym makrem kolegi adamas_nt Poprawiłem tylko to, że nie liczy dla 100 wierszy tylko dla wszystkich wierszy w kolumnie A zeszytu1. Dodane po czasie ----------------------------- Zmieniłeś treść wiadomości więc moja uwaga nie ma już uzasadnienia, niemniej pozostawiam przykład...
Harmonogram zadań.
Spróbuj tak: 1. Wejdź w Narzędzia -> Makro -> Zarejestruj nowe makro 2. Nazwij makro, opcjonalnie wybierz klawisz skrótu, a z listy Przechowuj makro w: wybierz Skoroszyt makr osobistych 3. Nagraj makro lub po prostu zakończ rejestrację. 4. Zamknij plik. Kiedy zapyta o zapis zmian w arkuszu makr osobistych, zatwierdź zmiany. 5. Otwórz dowolny plik, wejdź...
Fajnie jakby to wyszukiwanie nie wymagało otwierania pliku. Hmm. Przy tylu danych makro działałoby od poniedziałku do środy :) W załączonym pliku dodałem przycisk oraz (na życzenie) pętlę Do-Loop.
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...
Wklej kod w zdarzenie arkusza. Stringi masz podstawione pod zmienne, więc ActiveWorkbook.SaveAs FileName:=Path & "\" & Name Nie wiem, czy Excel nie zjeży się na te nazwy. Zmień na polskie: Sciezka, Nazwa . Usuń te dwie linie rozpoczynające się od "Set", są zbędne. Jeśli to ma być kopia oryginału (obie zapisane), to pierwsza linia Thisworkbook.Save...
W związku z pytaniem na pw. Utworzyłem sobie plik w c:\ o nazwie plik1.xlsx, w którym wpisałem tekst w komórki Od B34 w prawo. Następnie uruchomiłem makro (c:\ w InputBox'ie). Dane pięknie skopiowały się do "Arkusz2", komunikat: "skopiowano z 1 pliku". Możliwe przyczyny błędu: -podajesz złą lokalizację -lokalizacja jest dobra ale nie ma tam plików -nazwy...
ark = ActiveWorkbook.Sheets(1).Name trzeba bylo po Nazwapliku = ActiveWorkbook.Name Dodano po 1 myslalem ze to logicznie dojdziesz Dodano po 2 bo po ThisWorkbook.Worksheets(1).Activate bedzie nazwa pierwszej wkladki w pliku, w ktorzem makro
Utwórz nowe makro i szukaj plików z filtrem daty modyfikacji. W moim przypadku lokalizacja w LibreOffice 4.1: C:\Users\nazwa_uzytkownika\AppData\Roami...
To 2020 ACTUAL jest w kolumnie B, nie H - może stąd problem? [syntax=vbscript]w = Application.Match("2020 ACTUAL", Range("H1:H" & ow), 0) - 1[/syntax] Zmień H na B.
makro odświeżanie pliku makro zapisywanie pliku makro odczyt pliku
wykorzystać wyświetlacz radia rozbiegnięcie silnika nadawać 433mhz
junkers celsius autobus bezpiecznik
Vaillant dwufunkcyjny grzeje mimo osiągnięcia temperatury Jak zresetować piec gazowy dwufunkcyjny Vaillant?