W załączniku.
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...
Weź Koleżanko sprawdź makro dla załączonego pliku... Potem porównaj ze swoim plikiem.
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]
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.:)
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...
Czyli nie możesz porównywać dat? A co dokładnie masz w pliku, jak są zapisane te daty? Jeżeli masz w formacie daty to do porównania też musisz mieć datę, jak string to string. Sprawa prezentacji dat w Excelu jest tu drugoplanowa. Chyba nie załączyłeś przykładowego pliku.
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...
Makro tworzące pliki z typami. P.S. Miałaś zamieścić przykładowy plik...
Makro podział pliku według danych w kolumnie
Pewnie CP-1250 otwarte jako CP-1252. Polecam zacząć od instrukcji obsługi programu, którego używasz.
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 ?...
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,...
Rozumiem, że arkusz z danymi do kopiowania jest w osobnym pliku.
Pętla po Q i R, ustawianie filtra na C i G, kopiowanie do nowego pliku. Nagraj makro i zmodyfikuj.
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?
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"
ż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
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...
pochodzą z programu "IFS" Niewiele to mówi, programów ERP jest trochę na rynku - jakie to pliki: tekstowe, xml, html, binarne ?
Załącz plik w excelu, pokaż jak wyglądają listy i arkusze. Opis jest niejasny.
[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]
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.
Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
nie mógł zamknąć pliku przed wyłączeniem wszystkich filtrów. pozwala użytkownikowi zapisać plik wywala błąd .......
W jaki sposób mógłbym ustawić żeby przy kopiowaniu pomiędzy każdą kolumną były te znaki Tego się nie da magicznie ustawić :not: Można natomiast wykorzystać do przygotowania odpowiedniej treści kopiowanych komórek albo formułę np jak na zrzucie 965333 która po wklejeniu do edytora tekstowego da pożądany efekt 965334 Albo można wykorzystać makro do preparowania...
W takim razie załącz plik bez kodu, żeby można było dodać kod. P.S. Dlaczego kolumna A jest pusta? Skoro tak ma być, to prosimy o przykładowy plik...
[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...
Pewnie ktoś z wyższą wersją się odezwie, żeby Ci pomóc.:)
Poprawiłem błąd.
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.
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...
Sprobuj tak [syntax=vb]ChDrive "C" 'tu dysk ChDir "\badbat\" ' tu sciezka do folderza x = Application.GetOpenFilename("Wszystkie pliki, *.*")[/syntax]
Podmień [syntax=vbscript]ActiveWorkbook.SaveAs Filename:="c:\karta " & Format(Date, "yyyymmdd") & ActiveWorkbook.Name, FileFormat:= _ xlOpenXMLWorkbookMacroEnabled, CreateBackup:=False[/syntax]
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.
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",...
Jeżeli dobrze zrozumiałem, to plik w załączniku działa poprawnie.
http://obrazki.elektroda.pl/4379317000_1... http://obrazki.elektroda.pl/4379317000_1...
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ć.
Oto projekt. Początkowo Pan otworzyć i odczytać z makrami.(na otwarcie i zamknięcie książki) i poprawi stałych (bo nie mogę odgadnąć nazwy plików). Następnie skopiuj makra do prawdziwych plików Interesuje mnie jak długo potrwa pracy makro, ponieważ kopiowanie w komórki z formatowaniem (kolor, czcionki) zajmuje znacznie więcej czasu niż w komórki niesformatowany....
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...
Wklejam, może się komuś przyda Po co tylko ta pętla otwierająca 5x ten sam plik - zapis - zamknięcie?
Witam Nawiązując do tematu: [url=https://www.elektroda.pl/rtvforum/t... Wpisałem makro ale tworzy mi puste pliki.
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...
Załącz może przykładowy plik.
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...
Na moje, to temat nadaje się do ponownego, od początku, rozwiązania. Ale to by wymagało od Autora trochę zaangażowania. Oczywiście i koniecznie z plikiem.
Raczej zmień kolejność ;) [syntax=vb]Sub powrot_z_zapisaniem() Workbooks.Open Filename:="C:\Program Files\tabela.xls" ThisWorkbook.Close True End Sub[/syntax]
Zbyt dużo niewiadomych. Np "żeby go tam dopisał". Jeśli nie mam Twoich danych w mojej Bazie Klientów, to skąd biedny Excel ma je wziąć? No tak to zrozumiałem :) Przydałyby się oba przykładowe pliki w załączeniu + dokładniejsze wskazówki...
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...
Jak możesz to załącz te pliki.
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
Musisz więcej szczegółów napisać. Nawet nie napisałeś czy chodzi o HTML czy coś innego. Co to są za pliki. Czego w ogóle dotyczy ta sytuacja.
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 ;)
[syntax=vbscript]If Dir(ThisWorkbook.Path & "\Stary.xlsx") = "" Then MsgBox "Plik nie istnieje."[/syntax]
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
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
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.
[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...
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
Dołącz plik tutaj
Cóż, być może w ten sposób Edit: nowy plik
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...
Zerknij do załącznika. Plik zawiera makro.
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]
a u mnie działa. może zamioast ; wstawiasz , dodaje załącznik. - przy otwieraniu pojawi się monit o tym ze plik posiada makro - jest tam tylko to makro (w module). plik i komputer czysty i sprawdzony antyvirem
[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 <>...
[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...
knc = Format(Date -1, "rrrr-mm-dd") ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\ateresko\Desktop\New folder\Green Raport" & knc & ".pdf"
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]
Spróbuj otworzyć sobie ten plik zapisany na pulpicie i w oknie Immediate wpisz polecenie: [syntax=vbscript]?ThisWorkbook.path[/syn... otrzymać ścieżkę do pliku.
na komputerze z wersją 2003 poniższe makro działa bez problemu to samo makro na komputerze z excelem 2010 Chyba jest raczej odwrotnie, to na 2003 makro z ".Sort.SortFields" nie będzie działać. Excel 2003 obsługuje co najwyżej składnię ".Sort Key1:=, Order1:=, Key2:=, Order2:=, Key3:=, Order3:=, Header:= ..." Excel 2010 obsługuje zarówno powyższe ,...
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...
Przy okazji załączania pliku (koniecznie z tym upartym makrem), napisz więcej o systemach i wersjach Excela zainstalowanych na obu komputerach (ilu bitowe).
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...
Możesz sobie dostosować makro z załącznika.
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...
Może warto jeszcze zacząć od powstania samego pliku excela? Podrzuć kolego ten oryginalny plik PDF.
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 :)
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ę...
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...
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
[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...
To Powershell + Inspekcja na folderze gdzie będą wrzucane. W momencie, kiedy coś się pojawi, to Powershellem dostawać się do pliku i sprawdzać co zostało uzupełnione i aktualizować główny plik z wynikami.
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]
Nie testowaliście tow... znaczy kolego PRL Nie.:) Powyższa funkcja nie jest moja. A to moja: [syntax=vbscript]Function PlikIstnieje(Sciezka As String, NazwaPliku As String) As Boolean If Dir(Sciezka & NazwaPliku) <> "" Then PlikIstnieje = True Exit Function End If Dim FS As Object, Katalog As Object, PodKatalog As Object Set FS = CreateObject("Scripting.FileSystemObject...
Witam ponownie., Jest tak jak mowisz. Z pliku raport chcialbym skopiowac dane do pliku makro (z pliku makro uruchamiam makro) tak aby w komorce "dostawca" znajdowały sie numery 85... a w komorce faktura - numery 4...... Nie chciałbym otwierac pliku z ktorego beda pobierane dane ( praca w tle) JEszcze raz dziekuje za pomoc
Byłbyś w stanie załączyć pliki?
Dodaj Swoja sciezka w Dir, jak w post #1 Dodano po 4 lub przed wlanczeniem makra zrob "Plik - Otworz" wejdz w folder z plikami - "Esc"(Odmiana)
W pliku "Spis" jest 6 komórek do których mają być zaciągnięte dane z pliku"Dane". W makro widzę, że dane są pobierane z pliku arkusz1.xls w folderze C:\Dane_\ Utworzony plik z danymi na dysku C i nie trzeba nic kliknąć. Wystarczy otworzyć plik Spis_xxxx. Testowano to. Jaka jest rzeczywista ścieżka do plików danych?
Coś takiego. Plik txt, to 'C:\a.txt'.
[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]
Niestety nie mogę zobaczyć pliku, nie mogę go nawet pobrać z internetu - admin zablokował. No to teoretycznie: Tak sobie myślę skąd makro ma wiedzieć z którego pliku pobrać dane? Sprawdź czy jest to jawnie określone w RowSource. Nazwany Range też może nie mieć właściwego (pełnego) adresu i próbuje brać z ThisWorkbook. Wyświetl sobie co tam dokładnie...
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 [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...
Coś niewłaściwie skopiowany ten kod. Mają podwójne "With", a raz "End With" Dodano po 7 [syntax=vb]Sub Kr() Dim bs As Range, r&, i&, j& Dim ik As Boolean, wb As Workbook, br As Range Dim b Set bs = ThisWorkbook.Sheets(1).Columns(4).Cells Set br = ThisWorkbook.Sheets(1).Rows Set a = New Collection r = 1 While bs(r + 1) <> Empty r =...
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...
makro dzielące pliki makro otwierające pliki makro otwiera pliki listy
elektryczna tylna klapa tda2030a zasilanie astra czyszczenie przepustnicy
proste konstrukcje lampowe audio
Drukarka Samsung SCX-4500 nie pobiera papieru - przyczyny i rozwiązania Telewizor Sharp nie włącza się pilotem, ale reaguje na inne polecenia