Ma ktoś jakiś pomysł? Teraz chyba będzie jasne :) https://obrazki.elektroda.pl/1782827600_...
Deklaracja zmiennej publicznej powinna być w module uniwersalnym. U Ciebie takim modułem jest M1_Zapytanie. Jeśli deklarujesz zmienną publiczną w module obiektowym, to później musisz się do niej odwoływać w innych modułach z kwalifikatorem: [syntax=vbscript]ThisWorkbook.Firsrow[/s...
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
W poście niżej masz to opisane Ale tu zrobiłbym ciut inaczej, Np [syntax=vb]Sub otworz() 'otwieranie pliku z okna dialogowego z filtrem Dim fd As FileDialog Dim wkb As Workbook Set fd = Application.FileDialog(msoFileDialogFile... With fd .InitialFileName = "H:\CCC\ccc\" .Filters.Clear .Filters.Add "Pliki Excel", "*.xl*; *.xls*" .AllowMultiSelect...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
Ktoś już walczył z tym, ale nie mogę znaleźć wątku. Za to uchował się plik. Wykroiłem z niego to, co może Cię zainteresować. W załączniku przykład wyszukiwarki plików na dwóch poziomach. Możesz wejść dowolnie głęboko w strukturę katalogów. W makro dopisałem i "zaptakowałem" wejście w 3-ci. W kolumnę A (od 3-go wiersza) wpisujesz szukane, w E1 folder...
Utworzyłem folder "Word2pdf" w głównym katalogu dysku "C" i... działa ;)
Dzięki ! udało się ominąć problem :) Ale jak to często bywa człowiek chcę więcej heh Mianowice chciałbym, że pliki które otwierają się za pomocą polecenia: GetObject ("H:\Moje Makro\Pomiary\pok.csv") były otwierane w każdej lokalizacji. Tzn. Jeżeli skopiuje mój katalog Moje makro na dysk E:/ to nie będę musiał w kodzie zmieniać mu wszystkich lokalizacji....
Może się zdarzyć, że wyjdzie "\\" Pewniej będzie uzupełnić o tę linię. Jeśli slash jest, to OK, dołoży - jeśli brakuje Katalog = Cells(2, 2) ' tu mi nie działa:( If right(Katalog, 1)<>"\" then Katalog = Katalog & "\"
Podałem makro które zapisane w pliku robi kopię zapasową w innym katalogu. Jeśli kopia pliku ma być zapisana w tym samym katalogu to do swojego makra proponuję dopisać: Dim katalogZapisu As String ' to wpisujemy na początku deklaracja zmiennej katalogZapisu = ThisWorkbook.Path ' odczytamy katalog w którym jest zapisany otwarty plik ThisWorkbook.SaveCopyAs...
Wygląda na to że wszystko robisz dobrze. Prawdopodobnie nie masz uprawnień administratora i do zapisu bezpośrednio na dysk C, ew. to kwestia ustawienia czegoś w zabezpieczeniach Worda (widzę że to ten nowy, ja się zatrzymałem na 2007). Utwórz na nim jakiś katalog, zmień ścieżką w makro i do niego próbuj zapisać. Oczywiście nazwa pliku ma tutaj znaczenie...
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ć.
Można też przy pomocy obiektu FileDialog: [syntax=vb]Sub PokazPliki() With Application.FileDialog(msoFileDialogOpen... .InitialFileName = "K:\Test" 'ścieżka do katalogu .Show End With End Sub[/syntax]
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...
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ę...
Chcesz tylko zliczyć, czy coś więcej robić z tymi plikami? Czy nadrzędnym folderem jest E:\MAPY? W sensie, czy pozostałe foldery znajdują się w E:\MAPY. Jeżeli masz Excela, to mogę napisać makro, które zliczy ze wszystkich katalogów.
Od której strony się do tego zabierasz? Przeglądasz katalog i porównujesz nazwy podkatalogów z wartościami w komórkach, czy odwrotnie? Na czym konkretnie utknąłeś?
Zbliżone działanie do pożądanego :D tj. przenoszenie danych z katalogu do oferty przy pomocy dwukliku (makro działa pojedynczymi wierszami - oczekując na wpis ilości do oferty :ok: patrz na zrzut ) 978389 Drugie makro w "ofercie" usuwa wybrane wpisy (wybrany indeks :!: ,a przy okazji ilość :D ) 978391
CMSIS a SPL 2 rożne bajki proszę nie mylić. Wystarczy dodać katalog src i inc ustawić odpowiednie ścieżki includowania i zdefiniować odpowiednie makro.
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.
Genialnie :) O to właśnie mi chodziło!!! (at)cbrman - jesteś wielki :) Zapytam z ciekawości - czy dałoby się zrobić kolejny krok i przetwarzać w ten sposób foldery? Tzn mam makro w katalogu głównym i za pomocą tegoż makra przetwarzam wszystkie podkatalogi, które z kolei zawierają po 1000 Zeszytów, każdy składający się tylko z 1 arkusza o tej samej nazwie?
Cześć Jak napisać takie makro w Excelu, tzn. chcę, by makro wykonało: - odczytało cyfrę z komórki, na której stoję kursorem (jest to np. 2500123) - zamieniło tę liczbę na hiperlink o nazwie 2500123 kierujący do pliku o nazwie 2500123.pdf w katalogu c:bla-bla i to tyle pozdro
VBA zgłasza błędy Jakie błędy, jakiego typu błędy ? Np. w pętli brak warunku definującego zachowanie kodu w przypadku natrafienia na otwarty plik, z którego uruchamiane jest to makro (w katalogu z "plikami", jeśli by tam był on umieszczony), plik próbuje otworzyć samego siebie i jest błąd. Tak więc ... jakieś szczegóły ?
Można też tak (mniej kodu): [syntax=vbscript]Sub PobierzD3() Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") x = Sheets("Arkusz1").Cells(Rows.Count, "A").End(xlUp).Row + 1 While Plik <> "" Sheets("Arkusz1").Cells(x, 1) = "='" & Katalog & "[" & Plik & "]Arkusz1'!$D$3" Plik = Dir x = x + 1 Wend End Sub [/syntax]
Czas nie gra roli ... Może się robić kilka dni nawet, jak trzeba ... Ważne, aby na końcu w Power Poincie było wszystko Gra, gra ... Wyniki: 1. Zrobione w bardzo prosty i schematyczny sposób 2. Zrobione w PPT ... ale w starym PPT 2k ... i w związku z tym mogą tu pojawić się błędy przy uruchamianiu w nowych Office'ach 3. Nie mam możliwości by sprawdzić...
Przeszukaj katalog w pętli, z wykorzystaniem wbudowanej funkcji FileDateTime(ścieżka & nazwa_pliku) Poniżej napisane "na kolanie", ale powinno być coś w tym stylu [syntax=vbscript]katalog = "C:\Pliki Excela\" plik = Dir(katalog & "*.xls*") test2=filedatetime(katalog & plik) Do While plik <> "" test=filrdatetime(katalog & plik)...
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,...
Jeśli chodzi o seryjne modyfikowanie zdjęć (przez seryjne rozumiem identyczną operację na dużej ilości plików) to można też użyć Paint Shop Pro (dawniej Jasc Software a teraz pod banderą Corel'a). Na pewno od wersji 8 jest możliwość rejestrowania makr. Włączasz opcję rejestrowania, wykonujesz modyfikacje pliku według uznania. Zapisujesz zarejestrowanie...
To jest przechowywany w katalogu i zamyka. po prostu otwórz go Dodano po 3 lub zniszczyć ciąg z makro: ActiveWorkbook.Close
W katalogu startowym Excela znajduje się prawdopodobnie jakieś makro. Usuń je lub przenieś (dla bezpieczeństwa zrób kopię) i powinno być ok. Nie wiem jaki u Ciebie jest katalog startowy Excela np. C:\Documents and Settings\UserXXX\Dane aplikacji\Microsoft\Excel\XLSTART\ Tutaj artykuł pomocy technicznej Microsoftu: http://support.microsoft.com/kb/307410/p...
Podobny problem poczytaj W podanym przykładzie makro wczytuje pliki txt z określonego katalogu
Pomysł z utworzeniem osobnego "przycisku" jest jak najbardziej godny uwagi i zastosowania. Chcąc uzyskać dostepnosć do makra przez cały czas, nalezy makro zarejestrowac w pliku personal.xls, a nie jak podaje kolega normal.dot ( tak na marginesie to taki plik tworzy Word, nie Excel ). Plik personal.xls pojawi sie , po zarejestrowaniu makra ( musi byc...
Nie o takie kopiowanie mi chodziło. Miałem na myśli jakieś makro które by pobierało z skoroszytu który załączyłem na górze dane np z kolumny opisanej podzespół 1. Kolejne numery w tej kolumnie to numery seryjne podzespołów i one są testowane, chciałbym aby makro tworzyło katalog o nazwie jak podzespół i kopiowało pliki z testów znajdujące się w innym...
Witam serdecznie. Potrzebuje przerobić pewne makro, z dużą częścią przeróbek już sobie poradziłem i wszystko działa tak jak potrzeba jednak potrzebuję zwiększyć funkcjonalność tego makra. Mianowicie makro wczytuje dane z plików tekstowych za pomocą kreatora importu tekstu ;( chciał bym zrobić tak aby makro działało w pętli i po uruchomieniu przeliczyło...
... może ktoś wie jak to zrobić? Przyjrzyj się uważnie plikowi AvrStudio_asm.ini , w katalogu \AvrTools\AvrStudio\edit , a w szczególności sekcjom i .Teraz już z górki :D Piotrek
Spróbuj [syntax=vb]Sub Scalak() Dim dWkb As Workbook, wrs As Long Dim dArk As String, katalog As String, plik As String Const haslo As String = "has?o" 'tu wpisz has?o do plików Set dWkb = ThisWorkbook dArk = ActiveSheet.Name katalog = "C:\Makro\" plik = Dir(katalog & "*.xlsx") Application.ScreenUpdating = False Do While plik <> "" With Sheets(dArk)...
problem polega na tym: makro ma podaną ścieżkę ( adres jest umieszczony w arkuszu ) do katalogu który jest umieszczony na dysku sieciowym. I definiując wyszukiwanie danych ogranicza się jedynie do tego katalogu niestety pomijając inne katalogi w tym folderze. Inaczej mówiąc: Mamy folder o nazwie AA i w niem różne pliki pdf oraz katalogi BB, CC, DD....
...mógłbym przenieść automatycznie piosenki do określonych katalogów - makro na przeniesienie plików też już posiadam. To makro, w oparciu o InStr, na kolegi miejscu bym rozbudował. W kolumnie C wpisywałbym wyniki (rozumiem, że arkusz ma być czymś w rodzaju rozpiski (filtrowanie/sortowanie). Rozważyłbym również możliwość porównywania w drugą stronę....
Proponuję rozwiązać temat inaczej... Do tego celu wykorzystuje się winAPI...wskazujemy jeden plik z dowolnego katalogu i makro samo robi listę wszsytkich plików i je kolejno otwiera...mam coś takiego napisane - jeżeli jeszcze poszukuje Pan rozwiązania
co jest powodem, jak szukam np w na dysku D:\ (na całej partycji) to wyskakuje komunikat permition denied Najprawdopodobniej makro próbuje odczytać jakiś niedozwolony katalog systemowy. Makro zostało zaprojektowane do konkretnego działania - przeszukiwania plików we wskazanym folderze źródłowym i kopiowaniu ich do docelowego. Jak widać próby jego modyfikacji...
Witam. Ma ktoś pomysł jak przerobić to makro, aby pliki były szukane we wszystkich poziomach katalogów? Np. cały dysk C: Wydzielono z [url=https://www.elektroda.pl/rtvforum/t... adamas_nt
... Nie będę się bawił w VBA (może kiedyś) to co jest absolutnie wystarczy ... Czasami trzeba ... ... jeszcze mam pytanko, czy jest możliwe przeniesienie nazw np. 200 plików bezpośrednio do komórek Excela? tzn. mam ponazywane *.jpg lub *.tif i jednym kliknięciem lądują one w osobny komórkach arkusza. To było by kolejne ułatwienie bo nie musiałbym drugi...
dokładnie rozwiazalem to w ten sposob co napisales, inny uzytkownik pomogl mi to rozwiązać ale milo ze to opisałeś bo to ten sam sposób co używam. Tylko wydaje mi sie ze cd to polecenie wejscia do katalogu a powyzsza komenda czyli lcd sluzy do okreslania docelowego katalogu pobierania
Jeżeli to są funkcje excela (nie makro) to: Skopiuj (nie przenoś) skoroszyt B do katalogu gdzie jest skoroszyt A. Otwórz tylko skoroszyt A "Wejdź" w formułę gdzie jest odwołanie do skoroszytu B (będzie się jeszcze odwoływać do starej lokalizacji skoroszytu B) Skopiuj ścieżkę (zaznacz w formule ścieżkę do pliku B i Ctrl+C ) "Wyjdź" z komórki i zaznacz...
Mam dwa pliki Wordowski i excell w katalogu test. W wordzie mam makro odwolujace się do pliku excela. Czy jest możliwość zdefiniowania sciezki dostępu bez pisania C:\Users\Andrzej\Desktop\test\test.xls tylko np \test.xls ??? - przeciez jest w tym samym katalogu - ale tego nie znajduje. Chodzi mi tez o to ze jak skopiuje na inny komputer to sciezka już...
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...
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ć...
A co jest przechowywane w a? znaczy się mychą coś zaznacza i dopiero puszczasz makro? a = Selection.Row ? Moja porada to za pomocą komendy msgbox wyświetlaj sobie na bierząco czy masz właściwą ścieżkę przechowywaną w "strName" po każdej modyfikacji rób: Msgbox strName Chyba wiem w czym tkwił błąd. Zapomniałeś jednego shesha:) strName = strPath & "\"...
Witam, potrzebuje napisać makro, które przeniesie wszystkie dane z wyjątkiem pierwszego wiersza do pliku CSV w tym samym katalogu. Kłopot w tym, że w niektórych komórkach mogą znajdować się średniki (;) co sprawia że obecne makro którego używam wydziela mi z takich komórek nową kolumnę w pliku CSV. Czy jest sposób by komórka zawierająca średnik nie...
A co z nagłówkami, powtarzanymi wielokrotnie ? Ma być tylko jeden, czy ileś tam za każdym razem nowy i w wyniku nagłówkowy przekładaniec ? Edycja: Nie przyjrzałem się ... kopiujesz bez nagłówka ... Ale może przy pierwszym kopiowaniu powinien on być przenoszony jednorazowo ? Ręczie go wklepujesz/kopiujesz ? Edycja: Sprawdź: [syntax=vba] Option Explicit...
Raczej potrzeba makra dla excela które z wskazanego katalogu przejrzy pliki word i zwróci nazwę pliku jakiej tyczy się sprawy i tp.
A czy plik, którego nazwę podałeś w InputBox znajduje się w tym samym katalogu w którym jest arkusz z którego uruchamiasz makro?
Rozpakuj plik i umieść go w katalogu Makros. Hieroglifów nie będzie :).
Witam, odpowiem od początku o co mi chodzi. Stworzyć Bazę danych, która będzie pobierała dane z plików, które będą się znajdowały w jednym konkretnym katalogu. Makro to ma po uruchomieniu się aktualizować tak jak ma to miejsce w tym przykładzie, który zamieściłem. Chodzi o to aby makro to pobierało konkretne dane. Szablon arkusza, który jest w plikach...
Dzięki za podjęcie tematu. Obawiam się że to nie pomoże ponieważ makro sprawdza czy jest tam katalog, jeżeli nie to najpierw go zakłada a następnie zapisuje do niego plik. Domyślnie chce to robić zawsze w moich dokumentach. Po zaznaczeniu w excelu nazwy dysku np. D:\ wszystko jest ok. W podanym przez Ciebie przypadku katalog jest zawsze ten sam a u...
Przekopiuj sobie załączony plik do katalogu z plikiem źródłowym i uruchom makro. Założenia: - plik do którego dane są pobierane jest w tym samym katalogu co plik źródłowy, w innym przypadku należy przypisać do zmiennej sPath ścieżkę dostępu do pliku źródłowego - plik źródłowy nazywa się "czerwony.xlsx", w innym przypadku należy przypisać nazwę pliku...
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...
Rzadko piszę makra w Wordzie, ale spróbuj [syntax=vb]Open "c:\Przykład.txt" For Input As #1 'tu podaj ścieżkę, lub tylko nazwę jeśli w tym samym katalogu Do Until EOF(1) = True For tbl = 1 To Me.Tables.Count For wrs = 1 To Tables(tbl).Rows.Count Input #1, wartosc 'tu nie umiem zapisac bezpośrednio :| Tables(tbl).Cell(wrs, 2).Range.Text = wartosc Next...
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ę...
Pozwolę sobie wtrącić swoje 3 grosze.;) [syntax=vb]Sub ImportujPliki() Application.ScreenUpdating = False Dim Plik As String, Katalog As String, SN As String Katalog = "C:\PlikiExcela\" Plik = Dir(Katalog & "*.xls*") With ThisWorkbook While Plik <> "" Set wb = Workbooks.Open(Katalog & Plik) SN = Mid(Plik, 1, InStrRev(Plik, ".") - 1) wb.Sheets(1).Copy...
Masz wprowadzony plik (PDFMaker.dot) który ma się zawsze uruchamiać przy starcie worda. Jeżeli tak ma nie być wykasuj go z katalogu c:\Program Files\Microsoft Office\Office11\startup (lub przenieś do innego) A dzieje się tak bo ten plik (szablon dokumentu) który chce się otworzyć ma w sobie makro. I zawsze będzie ci się otwierał z tym komunikatem w...
Tak dwa lub więcej plików w tym samym katalogu co pik z makrem, tylko katalog może zmieniać położenie. PRL - nie o to mi chodziło, ja nie chcę wyświetlać okna dialog w celu wybrania, który plik ma być otwarty, tylko w kodzie zawrę dokładną nazwę pliku do otwarcie, a makro automatycznie otworzy ten plik, pobierze odpowiednie dane a następnie zamknie...
Niespecjalnie mi to pomogło :( nie bardzo wiem do której formuły wkleić mój link do pliku a gdzie umieścić katalog, do którego ma ściągać plik.
To jest moje podziękowanie!!! dla adamas_nt i e-mega . Po wgraniu do katalogu nowego katalogu 20 plików makro siedzi tam gdzie powinno być. Jutro parę słów o poziomie mojej wiedzy i oczekiwań i o tym jak Wy podeszliście ale już DZIĘKUJĘ
Za to u mnie (z małymi przeróbkami) na plikach tekstowych (nie mam *.mst) działa. Sub dir_pliki() 'katalog = Application.DefaultFilePath & "\" 'podstawiam Twój path katalog = "K:\Moje Foldery\Pulpit\" plik = Dir(katalog & "*.txt") 'tu podstaw "*.mst" Do While plik <> ""...
1. "Kolejną instancję" (ą i ę) na te 5 do 10 raportów, czyli druga instancja na 5 do 10 plików "xls" ? czy też 2. "Kolejne instancje" (e i e) na te 5 do 10 raportów, czyli jedna oddzielna na każdy pojedynczy raport ? Zajrzyj do "Zarządcy zadań" i zobacz ile razy masz tam powtórzone "EXCEL.EXE" (po wygenerowaniu raportów tymczasowych, ale przed ich zamknięciem)....
Cześć, Próbuję sformułować makro, które pozwoli mi otworzyć konkretny plik dwg, np. jeden.dwg z konkretnego folderu. Poniższe makro: Sub test() Dim sciezka As String Dim plik As String Dim sWkb As Workbook Dim katalog As String katalog = "C:\Pulpit\" sciezka = InputBox("Wklej nazwę pliku dwg") & "\" plik = Dir(sciezka & ".dwg") Do While plik...
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...
[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...
A katalog jak ma być wskazywany? A skrypt jak się ma uruchamiać?
To zmień... Wydaje mi się że nie zawsze makro ma prawa dostępu żeby zapisać w tej lokalizacji Albo ma, albo nie ma. Nie ma tak, że raz ma, a raz nie ma. Jeżeli w miedzyczasie nie zmienino uprawnień do katalogu. Albo piszemy proste makro, albo bawimy się w małą saplikację, ktra poawinna to i tamto robić. Zacząłeś wątek od czegoś innego, a na czym innym...
Moim zdaniem temat nieco bardziej skomplikowany. Ale zapytam tak, w jakim stopniu chciałbyś wypełnić kadr (n.p. 50% z szerokości)? Czy zależy Ci na jakości? Robisz to dla siebie czy do katalogów? I jakim budżetem dysponujesz?
Witam Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Zgrałem dane za pomocą DMDE w wersji: Version 01.39 (2008-05-01) Ta wersja trial pozwala kopiować całą zawartość pojedynczego katalogu. (a nie pojedynczego pliku). Użyłem Easy Macro Recorder w którym zrobiłem sobie MAKRO zgrywające kolejne katalogi :-) Zgrałem prawie wszystko, przeoczyłem tylko kilka mniej ważnych katalogów. Kopii posektorowej nie robiłem...
Osobiście wolę korzystać z funkcji Dir . FileSerch potrzebuje referencji i lubi stwarzać problemy. Poniżej przykład z pętlą. Jeśli daty w nazwach są w stałym formacie można sobie ułatwić podstawiając dzisiejszą datę. Dla wczoraj będzie to Date-1, itd Oczywiście dla wielu plików przypisanie nazwy odbywać się będzie wewnątrz pętli bez wychodzenia, ale...
Proszę o pomoc!! Jak mam użyć tego makra? Próbuje na wszystkie sposoby i nie liczy. Pliki źródłowe ma m na dysku E w katalogu "j" nazwy skoroszytów to "a" i "b" nazwy arkuszy to "Arkusz1"
Witam, Udało mi się stworzyć makro kopiujące wybrany plik do nowej lokalizacji - kod który dobrze działa z jednoczesnym zapisem pliku excel w formie pdf. Wszystko jest OK ale mam jeden problem. W katalogu "Próby" mam więcej raportów z różnymi datami ale dlatego chciałbym utworzyć makro które będzie kopiować wszystkie pliki excel zaczynające się od "Raport_"...
Wielkie dzięki, o to mi chodziło. Na przyszłość najpierw nagraj makro i podejrzyj kod. Niestety, nie wiem jak nagrać makro typu: jeżeli... to... - stąd też nie mogłem nic podejrzeć. Nie jestem niestety biegły w Visual Basic i tylko eksperymentalnie mogę coś tworzyć, co mi ułatwia pracę. Stąd też ostatnie pytanie laika: Czy makro może otwierać kolejne...
Nie błąd, tylko funkcja za długa i vba się poddało, trzeba podzielić na 2-3 kawałki. Wrzuć lepiej jakiś przykładowy ciąg (od przysłowiowego "C:\" do ".xlsx") rozbierany przez tę długaśną formułę, ale nie jakiś poobcinany tylko taki jaki jest. Ewentualnie pozmieniaj ... nazwy, katalogi ..., ale żeby długościowo były zamiennikami oryginałów.
Moim zdaniem w tym przypadku się da, bo napisał, że nie umie działać na wszystkich plikach w katalogu. :) Rozwiązaniem będzie: zainteresować się funkcją Dir (prostsza wersja), albo jej odpowiednikiem w ADO (nieco trudniejsza).
Jaki numer wpisujesz? Pełny '2014NB 03501000-1-00', czy jakąś jego cześć? Makro sprawdza 15 znaków od lewej, czyli '2014NB 03501000'.
A skąd te produkty generujesz? Skoro można do tych formatów, to gdybyś miał dostęp do źródła, to i do HTMLa by się dało... A jeśli nie ma takiej opcji, to raczej nie PDF - są bardzo trudno obrabialne. Piszesz, że możesz generować do "plików pakietu office" - jeśli możesz do Excela, może znajdzie się jakaś dobra dusza która Ci proste makro do tego napisze...
Win+R: cmd cd "\Moje dokumenty" )...
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...
potrzebowałbym makro które łączy ze sobą pliki excel w jednym katalogu na pulpicie i zmienia nazwy arikuszy na arkusz 1.[nazwa 1 pliku] , arkusz 2.[nazwa 2 pliku] a jeżeli arkusz jest pusty to go nie łaczy
Już mam. Po .Show, trzeba posortować zawartość katalogu w otwartym FileDialog. Porządek sortowania decyduje o kolejności elementów w kolekcji selecteditems. W innym przypadku... bąbelkowe :)
Obawiam się, że bez VBA ani rusz... Umieściłem sobie katalog na pulpicie, w D1 wpisałem adres mojego pulpitu, napisałem makro uzupełniające kolumnę C, nacisnąłem przycisk i... u mnie zadziałało.
Witam mam taki problem z wczytywanie plików txt do Excela. Chce zrobić makro, które wczytuje wszystkie pliki txt do jednego arkusza. Mam katalog z pomiarami. Każda seria pomiarów zapisuje się w innym katalogu. Teraz chce, żeby makro tworzyło arkusz z nazwą katalogu, a potem do tego arkusza wrzucało wszystkie wyniki pomiarów jeden pod drugim. Poniżej...
Wersja mieszana, tj. i z hiperłączami "na funkcjach" i z hiperłączami "na makrach". 866050 Ścieżkę dostępu możesz określić dla każdego projektu oddzielną, to tylko niewielkie zmiany w makrze "Workbook_Open", które w ogóle możesz wyłączyć/skasować i ścieżki wpisać ręcznie - mnie się nie chciało tworzyć różnych ścieżek dla poszczególnych projektów. Ilość...
Cześć, potrzebuję makro które znajdzie się pod przyciskiem w tym kosztorysie, które skopiuje tabelę pomiędzy słowami "KOSZTORYS OFERTOWY" oraz "SUMA WSZYSTKICH PRAC" i kolumnami od A:G. Chciałbym aby makro utworzyło nowy plik który będzie zapisany w katalogu w którym znajduje się plik kosztorysu oraz aby wkleił do niego tę tabelę z zachowaniem formatowania...
Dzieki za kolejna nieoceniona pomoc! Jasne ze zadzialalo (robilem to samo tylko bez "" i to byl moj glowny Problem) Dzieki!!! A mozesz mi jeszcze powiedzec jak uruchomic plik przez Makro, np po skonczonym przerabianu (mial by uruchomic sie skrypt BAT ktory jest w tym samym katalogu) Dodano po 5 Nie uwierzycie... udalo mi sie samemu: Dim RetVal RetVal...
Nie wiem jakie makro pobrałeś (jest ich wiele i różne zasady konwersji z postaci cyfrowej na słowną). Ja umieszczam plik z makrem (np. Słownie.xls) w katalogu ...\Microsoft Office\Office\XLStart i wraz ze startem excela mam dostępną funkcję "Słownie" - jako funkcja "Użytkownika" (ostatnia na wybieranej kategorii funkcji). http://obrazki.elektroda.net/20_11552040...
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")...
Posiadam plik z tabelą , w kolumnie A mam lokalizacje z nazwą pliku, natomiast w kolumnie D mam nową nazwę pliku. Nie potrafię napisać makra VBA aby zmieniał nazwę pliku i przenosił do innego katalogu. Tym bardziej że w tabeli posiadam różne ilości wierszy, raz 100, raz 150. Bardzo proszę o pomoc bo chyba zwariuje, przeszukałem cały internet :)
Witam To makro realizuje kopiowanie wszystkich plików znajdujacych sie w katalogu do jedengo. Sub Merge() Dim bookList As Workbook Dim MergeObj As Object, dirObj As Object, filesObj As Object, everyObj As Object Application.ScreenUpdating = False Set MergeObj = CreateObject("Scripting.FileSystemObject... Set dirObj = MergeObj.Getfolder("C:\2014") Set...
aha - nie - nie trzeba żadnych prototypów bo przecież to nie są jakieś funkcje, które później mają być wywoływane z innych miejsc ;) Kompilator gdy napotyka makro ISR czy dawniej SIGNAL to od razu wie co ma "zrobić" A jeśli chodzi o zamianę to po prostu od razu wpisz wszędzie zamiast SIGNAL - nazwę ISR oraz zmień nazwę wektora na odpowiednik tego z...
wszystkie działają poprawnie ze skrótów - to jest wyjątkiem i dlatego zagadka tak bardzo mnie nurtuje Wyjątkowość ta prawdopodobnie wynika z nieprawidłowego zarejestrowania makra :D 1051419 Po normalnym zarejestrowaniu opcji skrótu (i drobnej korekcie katalogu plików, oznaczeń arkuszy oraz kodu :ok: ) makro pracuje jak widać na zrzucie całkiem prawidłowo...
Witam Mam takie makro Sub zamien_znaki_fr() ' ' zamien_znaki_fr Makro ' Zamiana krzaczkow na znaki francuskie ' ' Klawisz skrótu: Ctrl+z ' For x = 1 To 11 Selection.Replace What:=Worksheets("kody"... + 1, 1).Value, Replacement:=Worksheets("ko... + 1, 2).Value, LookAt:=xlPart,...
Mimo wszystko rozważ to o czym Ci pisałem, zrób testy i sprawdź czy Ci to pasuje. To makro nie przegląda wszystkich plików w katalogu, a jedynie otwarte przez Ciebie w Excelu. Jeżeli masz otwarty plik ala.xls to i tak nie otworzysz innego pliku o tej samej nazwie, choćby z innej ścieżki. Musisz więc: - albo otworzyć (utworzyć) plik o innej nazwie, np....
Dzień dobry, Potrzebuję pomocy z Makro, które będzie mi sprawdzało czy w jakimkolwiek pliku .xls w katalogu np. "D:\testy" znajduje się wartość taka sama jak w głównym pliku. W załączniku umieszczam przykładową strukturę plików Głównym plikiem w którym makro chciałbym aby działało jest plik "raport.xls", który powinien sprawdzić we wszystkich plikach...
makro stworzy katalog makro tworzyć katalog makro stwórz katalog
sterownik regulator temperatura żarówka omnilux przewodność mosiądzu
hamulce renaut scenic2 pomiary małych pojemności
Bicie rury pod podłogą na wolnych obrotach - przyczyny Jak skasować kod 21 w agregatach Carrier i Windows