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]
Replace, psze Pani, Replace...
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...
Set Wb=Open(Fn) ==> Set Wb = Workbooks.Open("D:\abc\" & Fn) Zbyt dosłownie potraktowałeś ogólny zapis o otwarciu pliku.
co zrobić, żeby do nazwy pliku dodać datę? Zmień Rozumiem, ze za tym fragmentem kodu "Next ws" muszę powtórzyć zapis dla kolejnych arkuszy (ze zmianą nazwy oczywiście;) Nie. Makro działa tak, jak chciałeś w pierwszym poście - zapisuje do PDFa wszystkie arkusze oprócz jednego, który wykluczasz w porównaniu ws.Name <> ...
Zablokowany plik do edycji , to może inny użytkownik ma otwarty i Twoje zamiany skasuje przy zapisie.
Witam Poszukuję pomocy ze stworzeniem makra dla zapisu plików w excelu. Mianowicie chodzi mi o to żeby plik excela który otwieram z pulpitu po jego wypełnieniu i kliknięciu w dyskietkę (zapisz), zapisywał się automatycznie z datą w docelowym folderze. Może ma ktoś już podobne makro które mógłbym wykorzystać ?
To całe makro?? Ten fragment służy jedynie do wybrania nazwy pliku. Zapis nastąpi w momencie wywołania: [syntax=vb]ThisWorkbook.SaveAs (ZapiszJako)[/syntax]
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.
Może tak? Private Sub CommandButton14_Click() Dim newFile As String, fname As String fname = "nowy plik" newFile = fname sFName = Application.GetSaveAsFilename If sFName <> False Then ActiveWorkbook.SaveAs Filename:=fname End If End Sub
[syntax=vbscript]Sub PDFy() s = "C:\PlikiPDF\" ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=s & "Excel.pdf" Set Wrd = CreateObject("Word.Application") a = s & "Excel.pdf " For x = 1 To 2 Set Doc = Wrd.Documents.Open(s & x & ".docx") p = s & "Doc" & x & ".pdf" Doc.SaveAs p, 17 a = a & " " & p Doc.Close Next Wrd.Quit q = Shell(s & "pdftk.exe...
Rozumiem, że makro ma być w pliku PRE-ALERT? Jeśli tak, to przetestuj poniższy kod: [syntax=vb]Sub NowyArkusz() Dim wbkPrealert As Excel.Workbook Dim oWSShell As Object Dim strPath$ Workbooks.Add a = Now() b = Year(a) c = Month(a) D = Day(a) Set wbkPrealert = ThisWorkbook Set oWSShell = CreateObject("Wscript.Shell") strPath = oWSShell.SpecialFolders("Desktop")...
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
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ź...
Przede wszystkim dziękuję za pochylenie się nad moim problemem :) Co do zapisywania pliku z samą godziną, bez minut i sekund (czyli samo hh w formacie) - zrobiłam to celowo. Plik użytkuje wiele osób, jest wielokrotnie otwierany w ciągu dnia. Taka nazwa nie generuje błędu przy kolejnym zapisie w tej samej godzinie, jak pisałeś, natomiast powoduje nadpisanie...
Przetestuj załączone rozwiązanie. Przed uruchomieniem należy: - Plik csv nazwać: "dane.csv" - Załączony skoroszyt zapisać w folderze, w którym znajduje się plik "dane.csv" U mnie cała procedura wykonuje się ok. 1 min. pozdrawiam andie
Dlaczego usunąłeś Environ? Tak jest uniwersalnie. [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...
No właśnie. To może być to. U mnie (po zmianie na październik) działa. Ale, uwaga, format daty systemowej mam zgodny z tym w CSV (Vista 32bit, Office 2007). Bo przy konwersji daty w "odwrotnym" formacie, Np z listopada może zrobić się marzec: https://obrazki.elektroda.pl/1929850600_... Tak się jeszcze zastanawiam. Zamiast porównywać...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
ma byc xlTextPrinter(=36) lub xlPrinter(=2, jak w makro)? Dodano po 4 With ActiveWorkbook .Unprotect Workbook to nie jest arkusz, tylko skoroszyt Dodano po 5 P.S. xlPrinter zapisze plik .SLK, nie .PRN
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...
Cześć, dzięki za podesłane rozwiązanie niestety dla mnie nie jest do końca przydatne ze względu na to że, chodziło mi o "ZAPIS NOWEGO PLIKU POD NAZWĄ Z ARKUSZA" jak zostało to opisane poniżej. Potrzebuję dla generatora pytań napisać makro które pozwoli mi na zapisanie nowego Zeszytu(pliku) pod nazwą z Arkusza(Dane). Tak abym mógł wprowadzić kilkadziesiąt...
Przy porannej kawie wyszło coś takiego (załącznik). Zapisz plik w folderze, tym samym gdzie "Pula.xlsx" i uruchom makro. dodano po chwili: sorry, zapomniałem załączyć plik :)
Nie precyzujesz co ma być zapisane w nowym pliku. Zakładam, że arkusz "dane". Wklej kod do modułu standardowego, zdefiniuj ścieżkę zapisu i podepnij pod przycisk [syntax=vb]Sub Zapis() sc = "C:\" 'wpisz path jako string, koniecznie z ukośnikiem na końcu nazwa = Range("B1") If Cells(1, 2) & Cells(2, 2) <> Empty Then With Sheets("dane2") ostWrs...
Oczywiście makra mogą (prawie) wszystko. :) Ja czegoś takiego raczej bym wolał nie robić. Przemyśl jeszcze raz czego naprawdę potrzebujesz. Może pomogą Ci w tym poniższe uwagi. Nie lubię niczego uruchamiać "wejściem" w komórkę, działa "topornie". Robię to tylko jeżeli nie ma innego (prostszego) wyjścia. Zwykle lepiej działa normalny przycisk uruchamiający...
przekopiowałem kod do vba w moim pliku przestało to wszystko działać Zaproponowałem kod prywatny do obsługi skoroszytu - zatem musisz go wkleić dla obiektu ThisWorkbook :!: Po skopiowaniu kodu i dostosowaniu nazwy roboczego arkusza - plik musi być zapisany jako xlsm :!: Ze względu na zastosowane uproszczenia zapisu kodu - każdorazowo trzeba "wychodzić"...
Potrzebuję napisać makro w Excelu, które: przy wyłączaniu Excela zapisze wszystkie otwarte dokumenty w jakichś plikach po włączaniu otworzy je.... Pomocy, potrzebuje to na wczoraj :)
Na początku pętli [syntax=vbscript]Do While Len(ws_src.Range("E" & i)) > 0[/syntax]jest sprawdzany warunek czy długość zapisu w kolumnie E jest > 0. Eliminuje to przypadki pustych komórek i pustych tekstów. Gdybyś jeszcze chciał sprawdzać wartości zerowe to trzeba dodać nowy warunek pod spodem: [syntax=vbscript]If ws_src.Range("E" & i) = 0 Then Exit...
Taki problem, który pewnie jest dla wielu banalny. Zapisując plik za pośrednictwem zwykłej funkcji: Zapisz jako i wybierając .CSV rozdzielany przecinkami uzyskuję plik, który przy ponownym otwarciu jest podzielony na kolumny (patrz załącznik: 1058226 ZDEM_via_Excel.csv) tymczasem gdy stosuję taki kod do zapisania pliku. ActiveWorkbook.SaveAs Filename:="C:\ZDEM.csv"...
Witam, Proszę o pomoc w napisaniu makra które po otwarciu pliku "arkusz ocen" będzie prosiło użytkownika o wskazanie lokalizacji pliku "baza". Po wskazaniu pliku excel otworzy plik "baza" skopiuję arkusz 1 (w tym pliku jest tylko jeden arkusz) i wstawi go do pliku "arkusz ocen" jak pierwszy arkusz. I teraz jeżeli w pliku "arkusz ocen" jest już skopiowany...
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_"...
automatyczne nadawanie nazw plikom tak aby po zapisaniu bazowego pliku generował się jego kolejny numer (x+1)+nazwa z komórki a1
Cześć, Proszę o pomoc ponieważ nie potrafię sobie z tym poradzić, a nie jestem biegły w temacie makr. Otóż pilnie potrzebuję skonstruować plik, który pełniłby rolę programu do generowania prostych faktur. Plik zrobiony według rzeczywistych potrzeb, miał zostać jedynie zautomatyzowany tak, by po kliknięciu w przycisk "Generuj wydruki" odbywał się zapis...
Skoro sam trochę zrobiłeś, to pomoc Ci się należy.;) [syntax=vbscript]Sub Sumuj() Dim x As Long, a As Double x = 1 Do While Cells(x, "A") <> "" a = a + Cells(x, "A") x = x + 1 Loop [D2] = a Open ThisWorkbook.Path & "\wynik.txt" For Output As #1 Write #1, a Close #1 End Sub [/syntax]
Teraz jest ok jeżeli chodzi o tworzenie pliku DXF. :-) Jest jeszcze jednak mały problem techniczny zapisu rekordów w samym pliku, a mianowicie przed każdą liczbą i po każdej liczbie w danym rekordzie makro wstawia spację np. "30" natomiast powinno być tak "30" (sama liczba tak jak jest wpisane w komórce). Przy ciągach literowych ten problem nie występuje.
Witajcie, mam taki problem. Stworzyłem sobie makro tworzące plik csv (z konkretnego zakresu danych) w określonej lokalizacji, w moim przypadku chodzi o Pulpit. O ile makro działa u mnie na kompie, będzie problem jeżeli z pliku i makra będzie chciał skorzystać ktoś na innym kompie (inna ścieżka zapisu). Czy może mi ktoś podpowiedzieć jak sobie z tym...
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_"...
gdyż mam makro które tworzy mi CSV Napisałem na szybko takie coś: [syntax=vb] ''' <summary> ''' Zapisuje bierzący arkusz do pliku CSV ''' </summary> Sub SaveCSV() Dim R As Range Dim cmax As Integer Dim rmax As Integer Dim srow As String Dim fname As String cmax = Excel.ActiveSheet.UsedRange.Columns.Coun... rmax = Excel.ActiveSheet.UsedRange.Rows.Count.....
Spróbuj takie makro: [syntax=vbscript]Public Sub TworzFoldery() Dim Sciezka As String Dim i As Long Dim k As Integer Dim OstW As Long Dim NFolder As String Dim NPodFolder As String Dim JPlik As String Dim NPlik As String 'Sciezka = ThisWorkbook.Path & "\" OstW = Range("A" & Rows.Count).End(xlUp).Row For i = 1 To OstW NFolder = Range("A" & i) NPodFolder...
To nie jest proste zadanie. Ustawienie filtra nie generuje żadnego zdarzenia, które można byłoby przechwycić, żeby zapamiętać jego ustawienie. Szczęśliwie masz w arkuszu formuły z funkcją SUMY.CZĘŚCIOWE, które przeliczają się po zmianie ustawień filtra, a przeliczanie generuje zdarzenie Calculate, które można tu wykorzystać. Makro, które proponuję zapamiętuje...
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 & "\"...
Jeżeli chodzi o dynamiczną zmianę samego arkusza nie było by problemu ale tobie chodzi o zmianie ścieżki a właściwie nazwy pliku. Właściwie nie ma formuły excelowskiej by to uzyskać. ADR.POŚR() sobie z tym nie poradzi. A właściwie innej wbudowanej funkcji nie ma. Pozostaje tylko makro lub .... inne "pobranie" danych Jeżeli zdecydujesz się na makro to...
Witam Serdecznie, Na bazie waszych informacji stworzyłem proste makro bynajmniej w przypadku rezygnacji z zapisywania pokazuje mi błąd, jak można go ominąć? Sub Zapis() Dim adres1 As String Dim adres2 As String adres1 = Range("B3") adres2 = Range("B2") ActiveWorkbook.SaveAs Filename:=adres1 & adres2 & "\" & Range("B1").Text & ".xls" End Sub http://obrazki.elektroda.net/56_12783202...
Chciałbym napisać makro No właśnie. Jeśli wiesz jak zajmie Ci to 5 minut. Chcesz się dowiedzieć, czy dostać gotowca (w takim przypadku wrzuć plik z przykładem)? Po mojemu trzeba zadziałać przy pomocy dwóch, zagnieżdżonych pętli, znając ilość kolumn (End(xltoright).column), Nr pierwszego wiersza z nazwiskiem i Nr pierwszego wiersza w arkuszu docelowym....
mając wtyczke do zapisywania tabeli excela w formacie .pdf jak zrobyc makro by po kliknięciu w przycisk kombi pojawiało mi się okno tylko z wyborem w jakim folderze ma zapisać plik. Ewentualnie jeszcze z wyborem nazwy. Wiem, to tylko kilka mniej kliknięc niz w start i zapisz jako , ale jednak potrzebuje to jako makro by przypisać pod przycisk.
Mam pytanie. Jak zmodyfikowac ten kod aby nowy folder byl tworzony pierwszego dnia nowego miesiaca i pliki zapisywane byly do niego przez caly miesiac no i oczywiscie nowy folder przy nastepnym miesiacu itd ?
Witam Mam dość dziwny problem z moim makrem w Excelu 2007 / 2010. Makro ma za zadanie odczytać po kolei wszystkie pliki z rozszerzeniem .csv w folderze gdzie znajduje się arkusz kalkulacyjny, plików .csv jest 6 i z kazdego odczytywana jest dana interesująca mnie kolumna. Problem polega na tym, że excel nie odnajduje plkików .csv we wskazanym folderze...
ActiveDocument.Tables(1) '1' to indeks tabeli w dokumencie. Dodano po 5 P.S. Markoz, to nie VBA Excel, a VBA Word... Cells(NumerWiersza, NumerKolumny).Value = Zapis 'Cells', to obiekt z Excela. W Word jest obiekt 'Cell'.
Tak, jest możliwe z wykorzystaniem VBA. Zarejestruj sobie makro zapisywania pliku i przypisz je do wstawionego obrazka lub procedury zdarzeniowej (w przypadku wykorzystania komórki) 'SelectionChange', gdzie warunkiem instrukcji warunkowej będzie Np Target.Address(0,0)= "A1"
Po skopiowaniu zakresu gdy następowało zamknięcie skoroszytu kk_user.xls wyskakiwało pytanie czy dane skopiowane do schowka mają być dostępne dla innych programów. Znalazłem w sieci, że jak wrzucę właśnie ten zapis to pytania nie będzie... Ale mimo wszystko, jak już makro zadziała, to dane się kopiują... (więc nie rozumiem tej uwagi...)
Witam! Nakazano mi zrobić arkusz zamówienia. Mam już praktycznie gotowy. Niestety jestem zielony z Excela, całkiem, jeśli chodzi o jego zaawansowane funkcje. Czytałem trochę po forach, na tym również, jednak tam już ludziska mają pojęcie o tworzeniu makr, ja niestety nie wiem jak się do tego zabrać. Mam w formularzu zamówienia komórkę "Zamawiający",...
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...
Przejrzyj dobrze kod. Ostatnią funkcję masz "zaremowaną". [syntax=vb]'Call GetOnlyGoodValues(x1, x2, x3, x4, x5, x6, x7, x8, x9)[/syntax] Wewnątrz GetOnlyGoodValues wykonywane jest przeszukiwanie. Działa to dobrze bo sprawdzałem, ale generowanie czegokolwiek trwa baaaardzo długo. Zapis do komórek Excela mija się z celem o czym już pisałem. Właśnie dodałem...
NIe do konca rozumiem, co to zmieni w kwesti makra ktore ma pobrac z dysku lokalnego uzytkownika odpalajacego makro, wlasnie do tego udostepnionego folderu ? Mam problem z uzyciem metody FileCopy i sciezka zeby filecopy dzialalo
Zarejestrowałem poniższe makro, które miało za zadanie tworzyć kopię arkusza "CZAS PRACY" i zapisanie go na "pulpicie", z tym że nazwa pliku pobierana jest z komórki (w tym wypadku AQ3). Makro działa dobrze z tym wyjątkiem że nazwa pliku jest przypisana na stałe. Jak należny zmodyfikować kod, aby nazwa pliku była aktualizowana zgodnie z zawartością...
Cześć. Chciałbym żeby w makro Zapisz excel pobierał ścieżkę z komórki H1. Obecnie w makro mam ustawioną wartośc stałą jako Pulpit ("C:\Users\Pawel\Desktop\") i wygląda to w ten sposób: Sub zapisz() ' ' zapisz Makro Range("H3").Select ActiveWorkbook.SaveAs Filename:= _ "C:\Users\Pawel\Desktop\" + ActiveCell.Text,...
Pomieszanie z poplątaniem.;) Autorze, co chcesz osiągnąć w Akcesie ze wspomnianym plikiem csv, napisz proszę. I co ma wspólnego plik.csv z tematem? Już tłumaczę, sam się w tym zaplątałem dostajemy z urządzenia plik csv który ma dziwnie poukładane dane mój szef zauważył że jeśli otworzy taki plik w excelu i ponownie go zapiszemy jako csv to wszystko...
Cześć, Może ktoś podpowiedzieć jak działa to makro ? Tj gdzie tu jest wklej zawartość do pliku .. albo co zmienić aby to działało. https://www.extendoffice.com/documents/e... Generalnie mam arkusz z dużą ilością obliczeń i chcę część z nich zapisać do pliku CSV - to makro robi teoretycznie to co chcę tj zaznacza...
Witam Mam wielki problem. Mam plik Excela w nim jest makro. Problem jest taki że jak otworze plik z danymi i nie zapisze danych lub zapisze to plik znika z folderu. Nie można odnaleźć gdzie on podzial. Gdzie jest problem? Excel wersja2007.
Witam, Mam bazę danych w excelu, w jednym pliku mam dane z których kożysta makro w innym pliku. Chciałem zabezpieczyć plik z danymi przed wprowadzeniem zmian bezpośrednio przez użytkownika (nie uprawnionego). Jednocześnie makro w drugim pliku powinno mieć możliwość zapisywania zmian w pliku bazy. Z bazy może kożystać kilka osób, każda ma u siebie osobny...
Witam. Nie znam się na makrach a bardzo potrzebuję dokładnie dwóch makr. W załączniku jest plik Excela o nazwie "DANE ETYKIET", w którym znajdują się dane do dwóch plików exela o nazwach: "ETYKIETY_GŁOWNA" i "ETYKIETA_PŁYTY" Pozostałe pozostałe plik to sposób zapisywania etykiet w folderze jak makro je utworzy.(przykłady dla etykiety głównej i dla etykiety...
Witam, prośba o pomoc uruchamiam makro z poziomu sap które wyowłuje odpowiednią transakcje z danymi np mb52 niestety nie wiem za pomocą jakiego kodu uzyskane dane można zapisać do postaci pliku excel chodzi mi o kod VBA który zachowywałby sie analogicznie jak wywołanie manualne z poziomu sapa:List-> export->spreadsheet->format pliku + nazwa ścieżki...
Dzień wczorajszy - dla dnia jutrzejszego wstawiasz oczywiście " + " =DATA(ROK(DZIŚ());MIESIĄC(DZIŚ());DZIEŃ(... Czemu chcesz skomplikować tak prostą formułę? Przecież wystarczy: =DZIŚ()-1 Działanie to samo. Dodane: A co do zapisu pliku to chyba możesz skorzystać z: ActiveWorkbook.SaveAs FileName:="ścieżka + nazwa pliku"...
W zasadzie 2 problemy rozwiązał clubs. 1 - otworzenie pliku excela i wymuszenie jego odświeżenia i pobranie danych z zewnętrznych źródeł przed uruchomieniem Makra, dzięki temu kodowi: Dodano po 4 J.w
Chciałem utworzyć makro, które będzie: 1 Filtrowało po "Wiązka" (kolumna B) - wiązki mają różne nazwy, dlatego też pytanie - jak zrobić aby filtrowało od pierwszej wiązki do ostatniej (żeby nie było trzeba wpisywać za każdym razem H_M+ROMcA_001_001_A, ponieważ w tym miejscu może być inna nazwa np. H_M+ROMcC_001_001_A) 2. Tworzenie nowego arkusza i nazwanie...
Dzień dobry, To makro tylko odczytuje plik csv, więc jeśli są w nim jakieś przekłamania, to zapewne powstały w momencie zapisu tego pliku i tam trzeba szukać przyczyny. Proszę otworzyć sobie ten plik csv w Notatniku i zobaczyć co w nim jest zapisane. Pozdrowienia.
Witam. Mam wielką prośbę. Dostałem w pracy zadanie utworzenia wizualizacji do procesu walcowania taśmy wraz z raportowaniem przebiegu.. Wizualizację (napisaną w In-Touch z wykorzystaniem SPC) połączyłem za pomocą DDE z arkuszem excel'a w którym ma być tworzony raport z walcowania taśmy. I tu zaczyna się mój problem. Samą wizualizację napisałem bez problemu...
Witam Próbuję dane z excel - z różnych arkuszy przenieść do WORD. Znalazłam wątek "Makro zapis danych z EXcel do Word" (Niestety wątek jest zamknięty więc zakładam nowy. ) W wspomnianym wątku zamieszczono bardzo przydatny wzór - w załączniku. Jeśli uruchamiam makro z oryginalnego pliku działa bez zarzutu. Jednak przeniesienie fragmentu kodu nie skutkuje...
Witam serdecznie! Chciałbym stworzyć makro, które będzie generowało nowy plik z wybranymi danymi. Tak jak w załączonym pliku powiedzmy że 2 tabele to dwa różne raporty. Chciałbym żeby za jednym kliknięciem dane się zapisały jako plik raport 1 i raport 2. powiedzmy na pulpicie. Fundament jakoś udało mi się stworzyć ale stanąłem w miejscu i bardzo proszę...
Nagrałem makro i niby jest ok lecz teraz pojawił mi się kolejny problem. Jak zrobić coś takiego żeby po naciśnięciu tego przycisku zapisz wyskoczyło okno zapisz jako lecz nazwę tego pliku żeby pobrało np. z komórki A1. Oczywiście zapis ma być przypisany do danego katalogu np. moje dokumenty
Można umieścić kod w ThisWorkbook przy zdarzeniu Open. Żeby zabezpieczyć plik przed otwarciem bez makr można ustawić na kluczowe arkusze atrybut VeryHidden (z poziomu edytora VB) a widoczny zostawić dodatkowy pusty arkusz. Przy starcie jeśli warunki są spełnione wystarczy zamienić atrybuty. Tu konieczne hasło ochrony VBA. Przy zamknięciu ustawić na...
Dziękuję. Wszystko działa. Zamykam Dodano po 8 Pojawił się jeszcze jeden problem. Makro nie chce zapisać do pliku xlsm Jest na to jakiś sposób? Dodano po 13 Przebrnąłem przez problem z zapisem do xlsm dodając: FileFormat:=xlOpenXMLWorkbookMacroEnable... Jednak napotkałem na kolejny problem, makro kopiuje arkusz ze wzoru z obsługą makr jednak nie kopiuje...
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...
przeinstalowanie Office`a względnie samego Excel`a. ????? a cóż to za porada ??? Jeżeli nie wiesz co napisać to nie pisz nic. U mnie działa ThisWorkbook.Worksheets("xxx&qu... Destination:=Workbooks("ww....
PRL - jeżeli to o zakładaniu nowego konta było do mnie, to nietrafione. To jest pierwsze. Nie jestem znawcą VBA - makro stworzyłem poprzez nagrywanie. Okienka o których mowa wyskakują z automatu - moje makro otwiera cztery pliki, każdy obrabia, wyniki wrzuca do piątego, cztery zbędne potem zamyka - bez zapisywania, bo potem miałbym błędy przy kolejnym...
Cześć Potrzebuje waszej pomocy. Obecne proste makro które mam: [syntax=vb] Sub Info() Sciezka = "Y:\BAZA INFO" Nazwa = Format(Now(), "yy.mm.dd.hh.mm") & ".xls" ActiveWorkbook.SaveAs Filename:=Sciezka & "\" & Nazwa ActiveWindow.Close End Sub [/syntax] zapisuje wypełniony plik w folderze BAZA INFO a dalej już musze sam przerzucać pliki do podfolderów...
Możesz napisać makro ale według mnie lepiej jest ręcznie używać opcji zapisz jako - i dodać do nazwy pliku np:001, 002 itd. dodaję link może się przyda http://www.swiatexcela.pl/2011/10/17/aut...
Witam. Mam problem z makrem, które w Excelu ma za zadanie przenosić arkusze do nowego skoroszytu (każdy arkusz do odrębnego) i zapisać plik w podanej lokalizacji z nazwą tego przeniesionego arkusza. Na potrzeby tego zadania zarejestrowałem, a następnie zmodyfikowałem makro, które wygląda następująco: Sub Rozdziel() ' Rozdziel Makro Dim arkusz As Worksheet...
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...
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.
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...
W załączniku jest procedura "sub elka", która jeszcze wczoraj wysypywała się na 10 indeksie. Przed momentem dorobiłem "resetowanie" ustawień i miałem zamiar zademonstrować przypisanie tablicy do listy (TblToList)... Coś mnie tknęło, spróbowałem wpisać bezpośrednio do listy i... zaczęło działać. Wczorajsze "złe" makro również. Wygląda na to, że ustawienia...
Zgadzam się ze zdaniem kolegi Prot . Po jakimś czasie uzbiera się tych kopii tyle, że zrobi się bałagan. Wg mnie, kopię takiego zestawienia można zmieścić w jednym wierszu arkusza (jednej linijce pliku tekstowego). Do podglądu/wydruku archiwów wystarczy odwrócić makro zapisu + jakaś zgrabna wyszukiwarka/filter. Jeśli z jakiegoś powodu będzie potrzebny...
No OK, ale jeśli nacisnę 'zapisz' i nie zamknę pliku? Po mojemu zapisywanie w logu powinno być przy BeforeClose
Witam, pracuję nad makrem które sukcesywnie będzie zczytywać odpowiednie dane z sieci WEB i wszystkie je zapisywać. Udało mi się już zmusić excel do automatycznego zczytywania danych co minutę. Problem polega na tym, iż taki plik coraz bardziej zużywa RAM. W związku z czym mam pytanie jak poradzić sobie z tym problemem? 1)Czy można włączyć excel który...
Ważne plik z Makrem trzeba zmienic format na xlsm. bo tutaj jest jakas blokada i nie pozwala dodac takiego pliku jako załącznik:( W makrze zagniezdzonym w pliku powinny kopowiac sie dane do arkusza o nazwie CSV, wedlug poniżych założeń, nie wiem czemu nie przekleja mi tych danych [syntax=vbscript]Sheets("Arkusz1").Selec... Columns("BV:CZ").Select Selection.Copy...
Ano się używa. Spróbuj na początek z taką procedurką: [syntax=vbscript] Private Sub RunSELECT(S As String, R As Range, Optional Fn As String = "") Dim Rs As Object If Fn = "" Then Fn = ThisWorkbook.FullName With CreateObject("ADODB.Connection") .Provider = "Microsoft.ACE.OLEDB.12.0" .ConnectionString = "Data Source=" & Fn & ";" & "Extended Properties=""Excel...
Prawie działa, tylko potrzebuję by było wklej specjalnie - wartości . Przy takim zapisie jak poniżej nie wiem gdzie to wpisać
zwróci datę jeżeli suma w kolumnie D przekroczy zadaną wartość. Jest niemozliwe wpisac date przy pomocy funlcji np.Dzis(), poniewaz jutro formula zwraca juz inna date. Dodano po 2 Nie może być użyte VB ani macro Już może ? Nie mogę mieć pliku z makrem. (Zabezpieczenia serwera pocztowego :) ). Makro które przesłałem służy do zobrazowania jaki cel chciał...
Spróbuj[syntax=vbscript]Sub ADODB_method() 'Apr 15, 2014 ' 1 kolumna slowo, 2 kolumna definicja badz tlumaczenie - pisac bezposrednio slowo w a1, i definicje badz tlumaczenie w b1 , makro eksportuje plik wsadowy do anki do tego samego folderu w ktorym jest arkusz excela Dim fd As Object Const myDelim As String = "," '<<< select comma or semicolon...
Gdzieś chyba jest błąd w kodzie bo zamiast liczyć to wstawia tekst formuły brakuje na początku formuły znaku "=". Natomiast gdy ręcznie wstawię to zlicza natomiast i tak wyskakuje komunikat "Łącza do pliku*xls' nie zostały uaktualnione, ponieważ plik xls*' nie został ponownie obliczony przed ostatnim zapisem". Imuszę ręcznie wciskać OK aby wartości...
Efekt "uporządkowania" - jak na zrzucie 951257 danych zapisanych w arkuszu 1 (u Ciebie "przed") można uzyskać poprzez przekształcenie tabeli do arkusza 2 (u Ciebie "po") przy pomocy makra (uruchamianego skrótem ctrl+b) - jak w załączonym pliku. 951258
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...
Witam serdecznie! Mam problem z makrem. Chcę w makrze wskazać plik xls* i zamienić go na txt, w którym zamiast Tab jako separator byłby ";". Napisałem na razie takie makro, ale niestety nie jest to pełne. Przepraszam ale jest to moje pierwsze podejście do VBA, dlatego może być to bardzo złej jakości i jest na 100% niekompletne. [syntax=vbscript]Option...
Hemikalny , totalnie skopałeś przykład, wszystko nazywa się Nazwa_przycisku, jako efekt - nie będzie to działać. Więc następny potrzebujący może znaleźć to co podałeś i zawieść się na google. To teraz potrzebuję metodę zapisywania wybranego pliku w odpowiednią komórkę w arkuszu. Przecież już dostałeś odpowiedź, nagraj makro, obejrzyj kod .
Bardzo dziękuję za pomoc. Mam tylko jeszcze jedno pytanie. Co zrobić żeby w przypadku gdy plik o danej nazwie już istnieje i chcę zrezygnować z zapisu pliku nie wyskakiwał mi błąd: Run-time error '1004' Method 'SaveAs' of object'_Workbook' failed I jeszcze jedna sprawa: Załóżmy, że w kopiowanym arkuszu "xyz" są puste komórki np:A2, C3, D5. Jak zrobić...
Wypadało by jednak założyć nowy temat, wtedy (w uzasadnionych przypadkach) zawsze możesz kliknąć [pomógł]. 1) Końcowy znak. Sprawdź jeszcze raz ustawienia czytnika. 2) Makro. Zależy czy komórka po wpisaniu kodu jest w trybie edycji, czy nie (prawdopodobnie opcja w czytniku). Czy następny kod jest nadpisywany, czy dopisywany w komórce? 3) Inaczej. Jeśli...
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...
Mam następujący kod, który działał na wersji Excela 2007 a wersji 2013 działa, ale wyskakuje następujący błąd(patrz załącznik), nie wiem jak mogę zmodyfikować poniższy kod. Jak mogę zmienić zapis utworzonego pliku na "xxx" (wzór zapisu pliku: "xxx_imie_nazwisko") . Dane znajdują się w komórce C6 do zapisu imienia i nazwiska. KOD VBA: [syntax=vbscript]Sub...
Sposób1. Przed zapisaniem usunąć procedurę dodawania i zapisywania licznika. Sposób2. w procedurze ustawić warunek np: If ActiveWorkbook.Name = "BOOK1.xls" Then (...) End If Przy sposobie 2 makro zawsze będzie kopiowane i przy uruchamianiu pojawiać się będzie monit o makrach. Chociaż nie będzie działać z nieodpowiednią nazwą pliku. Ale jeżeli to nie...
makro zapis pliku zapis pliku excel excel makro zapis
astra błąd poduszki zasilacz domofonu elfon lm350 ograniczenie prądowe
zderzak naprawa zderzak naprawa
Kody do pilota uniwersalnego dla Manta 3902 LED Jak zdjąć key lock w telewizorze Manta bez pilota?