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]
[syntax=vbscript] Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" _ (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long Private Const MAX_PATH As Long = 260 '~~> Change this where and how you want to save the file Const FlName = "C:\MyWorkbook.txt" Sub Sample() Dim tmpFile As String Dim MyData As String, strData()...
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
W złym miejscu miałeś to dopisane. Przecież to chodziło o metodę GetSaveAsFilename, a nie o SaveAs. [syntax=vbnet]Private Sub CommandButton1_Click() Dim plik plik = Application.GetSaveAsFilename(Sheets("il... & ".xls", "pliki excel (*.xls), *.xls") If plik <> False Then ActiveWorkbook.SaveAs plik End Sub[/syntax]
[syntax=vbscript]Workbooks.Open ("C:\Users\Fransf\Desktop\TESTY\Klienci\... & nazwaklienta & ".xlsx")[/syntax]
Zrobiłem tak, jak to zwykle robią zawodowcy ;) 1. Nagrałem sobie makro przy zapisywaniu. Wyszło takie coś: [syntax=vbscript]Sub Makro1() ' ' Makro1 Makro ' ' ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _ "C:\Users\Adam\Desktop\Zeszyt1.pdf", Quality:=xlQualityStandard, _ IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=...
arkusz i zapisał go w tym samym skoroszycie ale pod nazwa wzięta z komórki. Następnie zapisał by plik w określonym miejscu z nazwa rownież z określonej komórki. Napisz do wyjaśnienia adresów tych komórek. Ponadto sciezku dla zapisu Dodano po 1 [syntax=vb] Sub Kolejny_dzen() Sciezka = "D:\tmp\" '- to dopasuj do swoich potreb plik = Sciezka & Format(Int((Date...
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...
Dobra, więc tak. Do Excela nie zapiszesz, skoro nie wiesz jak wykonać taką operację. Potrzeba zewnętrznych płatnych bibliotek, żeby zapisać plik w formacie Excela, ewentualnie jest wymóg, żeby na komputerze z tym programem był zainstalowany Excel - to się da. Ale... Możesz zapisać po prostu plik tekstowy w formacie CSV. A w jaki sposób? var lines =...
abym mógł nazwę pliku zmodyfikować na własną? Można np. tak :idea: nazwa :D obecnie stworzyłem opcje nazwy (pozostaje niestety niezmienna) oraz aktualne daty. Do wyskakującego okienka, abym mógł wpisać własną nazwę pliku nadal nie doszedłem. Obecny zapis pliku to [syntax=vbscript] hDir "C:\Users\Paweł\Desktop" ActiveWorkbook.SaveAs Filename:="C:\Users\Paweł\Desktop\format...
Nie da rady w Excelu, ten program to nie temporalna baza danych tylko prosty program kalkulacyjny
Witam, otóż mam plik *.xlsm zawierający około 10 arkuszy w których są formuły i makra. Po zakończeniu edycji tego pliku chcę go przekazać dalej, ale taki plik otwiera się bardzo długo i zajmuje dużo miejsca, a dodatkowo każde przeliczenie zajmuje kilka minut... Czy jest jakiś sposób aby zapisać same wartości bez formuł i makr? Pozdrawiam i z góry dzięki...
Narzędzia -> Opcje -> [Zapisywanie] -|/|Zapisz informacje niezbędne do odcztania pliku co |_| min Pozdrawiam Lt.
Witam mam mały problem z makrem a mianowicie z zapisywaniem pliku pod nazwą podaną w komórce. Szukając w necie znalazłem fajny kod który ogólnie działa ale nie do końca tak jak bym tego oczekiwał a mianowicie zapisuje plik pod nazwą z komórki tylko wtedy kiedy jest ona wpisana tam ręcznie Ja natomiast chciałbym uzyskać tą nazwę poprzez odpowiednią formułę...
W Twoim kodzie było: [syntax=vbscript]ActiveWorkbook.Close[/s... tę linijkę po prostu przepisałem. Gdy zapisuje się plik pod nową nazwą przez SaveAs, otwarty skoroszyt przyjmuje nazwę zmienioną pod którą był zapis. Nie wiem, czy można zmienić nazwę otwartego skoroszytu inaczej niż przez zapisanie go. Zatem w tym przypadku proponuję ponowny zapis...
Cześć, od jakiegoś czasu szukam rozwiązania mojego problemu. I zastanawiam się czy jest możliwe przy użyciu arkusza excel, stworzenie pliku bazowego, w którym będzie możliwe wybranie innych plików excel ( kilku naraz) i otwieranie ich w osobnych arkuszach pliku bazowego. Te pliki które mają być otwierane mają zawsze tą samą strukturę w postaci raportu....
Problem dotyczy urządzenia, które skanuje dokumenty. Jeśli ponownie "przeskanujesz" (jakimś programem OCR) te pliki pdf - to uzyskasz nowy plik pdf (z nową datą :D ) i z dowolnie zapisanym nazwiskiem autora :idea: :D Zbliżony problem "archiwizacji" wyciągów bankowych z plików pdf rozwiązywałem onegdaj poprzez zapis ich jako tekst (AAReader DC), a potem...
Witam Jestem na etapie tworzenia pliku do utrzymania finansów firmy w porządku. wyglada to następójąco: -6 Arkuszy: Operacje,wydatki,Inwestycja,Sprzedaż,Wyp... na arkuszu operacje są stworzone guziki (makra) przenoszące do konkretnego arkusza który jest przypisany do danego guzika. Arkusze jak np:wydatki zawierają pola do wypełnienia takie...
Dzien Dobry Zderzylem sie z problemem dynamiczengo przekierowania na pliki wsadowe i nie mam pojecia jak przeskoczyc. Cel: Mam kilka sklepow do obslugi, ktore generuja listy obrotu i planow obrotu. Chce zrobic formatke, ktora umozliwi mi wczytywanie tylko interesujacych mnie kolumn z ich sprawozdan i dodanie do tego kolumny z planem na nastepny rok...
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ę...
Witam, probuje stworzyc makro, ktore zapisywaloby dany plik excelowy pod nazwa danego arkusza np. na pulpicie w folderze "TEST" ale w formacie tekstowym Unicode. https://obrazki.elektroda.pl/3260048400_... ponizej moje agrane makro, z niedoskonalosciami: Sub save_unicode() activeWorkbook.SaveAs _ Filename:="C\users\desktop\TEST\Report1....
Hej, szukam rozwiązania następującego problemu: - jest sobie kilka plików Excela o tej samej strukturze w jednym katalogu. Chciałbym skopiować zawartość OTWARTYCH plików do innego, nowego pliku i go zapisać. Niestety moja znajomość VBA jest bardzo słaba, czy ktoś potrafi mi pomóc?
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...
Witam, problem polega na tym, że posiadam dwa spore pliki w programie excell 64 Mb i 66 Mb. W każdym z plików, w każdym z wierszy znajdują się w osobnych komórkach NAZWA i szereg odpowiadających im wartości liczbowych. W jednym pliku mam 27 tys. wierszy na 102 kolumny, w drugim podobnie, przy czym niektóre nazwy w obrębie danego pliku się powtarzają,...
Mam parę problemów z kodem poniższy kod kopiuje wszystkie dane w wybranego pliku do pliku z makrem, problem polega na tym że po skopiowaniu danych plik źródłowy pozostaje otwarty a powinien się automatycznie zamknąć po skopiowaniu [syntax=vbscript]Sub WyborPliku() ' ' WyborPliku Makro ' ' Klawisz skrótu: Ctrl+j ' Wybor okreslonego pliku na którym ma...
Witam serdecznie. Mam kłopot z napisaniem makra VBA, które ma "zmusić" użytkownika do zapisania zmian w arkuszu tylko przez opcję "zapisz jako" (opcja "zapisz" musi być wyłączona). Chodzi o to, aby skoroszyt źródłowy nie został przypadkiem nadpisany - co mogłoby zepsuć jego funkcjonalność. Chodzi o to, żeby użytkownik otrzymał komunikat, że nie można...
Witam! Chcialbym prosic o pomoc w napisaniu makra do przykladu z załącznika. Chodzi o to aby stworzyc przycisk w zakładce "dane" ktory bedzie zapisywal plik na pulpicie w formacie xls o nazwie z komórki "nazwisko" Chcialbym aby po zapisaniu pliku informacje wpisane do arkusza "dane" zostaly wyczyszczone i przeniesione do akrusza "dane2" ulozone w kolejnosci...
50 razy otwieram ten sam plik i non stop mam komunikaty o naprawie czegoś. Boję się że za którymś razem nie otworzę i stracę pracę. Pytanie 1: jak temu zaradzić ? Pytanie 2: jak samemu naprawić ? Nie wiem w którym miejscu mam coś wyciąć lub naprawić. Być może jedna drobna rzecz mi szwankuje ktorą mogę wyciąć lub zamienić na zwykły tekst – tylko nie...
Witajcie Mam bojowe zadanie do zrealizowania dla jednego ze swoich klientów. Stworzyłem już dla niego plik excela (załącznik) i mam problem, ponieważ nie wiem jak zrobić formułę lub kod w VB, żeby numeracja protokołu szła ładnie z automatu. 1/2011, 2/2011 itd. Ogólnie jest szablon plik_szablon.xls i on ma być otwierany jako główny, następnie jest uzupełniany...
Witam szanownych kolegów. Mam pewne pytanie co do excela a mianowicie zapisu (zapisz jako) kopia do archiwum , przez polecenie drukuj. Oczywiście wyciągając pewne informacje z arkuszu np. " nr.zlec.1234 & kolor czarny & data . Z góry dziękuje za wyrozumiałość .
Potrzebuję zaimportować plik w formacie XML do programu Excell... Plik XML to raport z systemu RCP ROGER i chcę na tych danych popracować ... Z treści tego pliku wynika, że jest on utworzony przez program Master v.4. Czemu zatem importujesz ten plik do Excela ? Nie można analizować tych danych w firmowym programie Master ? Obawiam się, że zapis danych...
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ć...
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 <> ...
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...
1. Błędny zapis zakresów. Np =sredniawazona(tu_wklejaj!E2:E60... Zamiast 'HB2:GZ2gz60000' nie powinno być 'HB2:GZ60000' ? 2. W znacznikach jest OK 'k = wskazniki.Columns.Count', natomiast w pliku jest 'k = wskazniki.Columns = srednia.Count'
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...
Tak jak napisałem 2-4 minuty w zależności od komputera. Na i7-2630QM, 8GB, HDD trwa zapis dokladnie 1:50 na słabszych dłużej. Office 2013. Na słabszych 2010.
Eksperymenty związane z EKG Od dawna uważałem za interesujące rozważania o własnych systemach EKG. Szczególnie interesują mnie rozwiązania niedrogie i łatwe w konfiguracji. W tym artykule przedstawiono kilka sposobów wykorzystania tej techniki. Ale najpierw coś podstawowego: Ze względu na bezpośredni kontakt elektrod EKG z ciałem, wszystkie elementy...
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
& ".xlsm" Zapis nowego pliku w xlsx a nie xlsm.
Dziwnie to wygląda ... Zapis w jakiejkolwiek innej lokalizacji zawsze kończy się takim komunikatem ? Czy z plikami Worda jest wszystko ok ?
Cześć, Piszę z kolejnym problemem. Potrzebuje przerobić plik csv na excela (xlsm) i ten kod poniższy teoretycznie to robi, ale dla jednego pliku, lecz potrzebuje to zrobić "masowo". W folderze będzie X plików csv i chcę aby w pętli każdy plik zapisywało na xlsm, niestety nie mam pomysłu aby to zapisać, ponieważ nazwa pliku musi pozostać taka sama dla...
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]
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...
's ' nie jest specjalny symwol jako np. F1, Tab, etc. Application.OnKey "^s", "Zapis" Private Sub Workbook_BeforeClose(Cancel As Boolean) Zapis End Sub
W załączniku przesyłam przykład dwóch plików Excel. Istotna jest Tabela 1 w której występuje więcej obiektów, częściowo pokrywających się z Tabelą 2. Chcę je porównać i wychwycić różnice na podstawie "nazwy obiektów". W nowo utworzonym pliku Excel (Tabela 3) w którym pojawią się te pozycje, których nie ma w Tabeli 2, chciałabym również, aby znalazły...
Mam plik excel przygotowany przez pracowników. W pliku znajduje się kolumna w której każdy wiersz posiada dane kontrahenta (nazwa, adres, nr tel, e-mail). Chciałbym wyciągnąć z całego ciągu znaków adres e-mail. Jedyna stała to fakt, że przed nazwą maila znajduje się zapis zawsze w tej samej formie "e-mail: " po czym jest nazwa adresu mailowego do kontrahenta....
http://obrazki.elektroda.pl/4774308800_1... Jeśli korzystasz z programów z pakietu LibreOffice to z pewnością ucieszysz się, z powstania Open365. Podobnie jak LibreOffice jest to darmowy i otwarty pakiet, który ma być alternatywą dla 'następcy' Microsoft Office, działającego w chmurze Office 365. Open365 jest aktualnie w fazie beta-testów....
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.....
W formacie .csv stosowany jest separator listy zadeklarowany w ustawieniach systemu operacyjnego. Jeśli w Panelu sterowania w ustawieniach międzynarodowych (region) zmienisz separator listy ze średnika na przecinek, a separator dziesiętny z przecinka na kropkę (żeby nie było konfliktu), to wtedy zapis do formatu .csv będzie z przecinkiem, a nie ze średnikiem.
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ą...
Witam. Jak raz wykaże się postawą wybitnie roszczeniową zapewne, niemniej proszę o pomoc/przysługę :) Kombinuję sobie jak koń pod górkę z pewnym zagadnieniem- poskładałem sobie prosty dwukanałowy rejestrator temperatury z kitu AVT5230, który jest w stanie generować log w postaci pliku txt z zapisem daty, czasu próbki pomiarowej i dwoma wynikami z dwóch...
For i = 0 To UBound(PATH) Folder = Folder & PATH(i) & "\" If PATH(i) = "" Then CheckDir = Dir(FullPath & "Nowy" & Date, vbDirectory) If CheckDir <> "" Then MsgBox CheckDir & " - taki folder już istnieje" Else MkDir FullPath & "Nowy" & Date MsgBox "Utworzono nowy folder " & FullPath & "Nowy" & Date End If...
Zamień wszędzie Export\test.xlsx na np "c:\test.xlsx" (jakąś PEŁNA ścieżka) i sprawdź czy będzie to samo, jeśli błąd się powtórzy to poszukamy dalej. Co do samego zapisu to pamiętaj że to zadziała tylko jeśli jest zainstalowany excel, jeśli użytkownik na kompie nie będzie miał Excela lub będzie miał wersję 2003 to walnie błędem. Jeśli nie ma super wymogów...
Zapisywanie w jednym pliku Excel ale w osobnych "Arkuszach 1" później "Arkusz 2" można coś takiego zrobić ? np Zapis tylko styczen lub marzec jako osobny plik. lub Jeden skoroszyt z arkuszy miesięcy. chodzi mi żeby był jeden główny plik Excel z którego będzie robiona Baza archiwalna
Ten zapis sprawia, że arkusz pojawia się przed innymi arkuszami na początku.
Witam, Makro ma za zadanie otwierać kolejne pliki Excel , pobierać dane i je zamykać ( bez zmian). Jak należy napisać procedurę zamykania aby, nie było pytań : 1. o zapisanie zmiany w pliku (proces pobierania danych z różnych arkuszy pliku) 2. o rezygnacji z umieszczenia pliku w schowku - to jest trudne. cel - makro ma się nie zatrzymywać. pozdrawiam,...
Dzien dobry. Zalaczam plik Excel. Na gorze mamy automatyczny przycisk NEW LINE, i chodzi o to, ze wciskajac ten przycisk tworzyl sie nowy wiersz z zawartoscia formul. Czyli majac, np. 100 osob i klikajac kolejno na NEW LINE aby otwieral sie wiersz kolejny po juz istniejacym. Na dzien dzisiejszy mam tak ze otwiera sie zawsze wiersz "2", tak jak zreszta...
Witam Mam maszynę na sterowniku Beckhoff CX1100 pod Windowsem CE. Musze zrobić coś co da mi możliwość zapisywania parametrów ustawionych przez operatora i liczby wyprodukowanych detali od pliku. Zapis najlepiej do Exela. Jeśli ktoś wie co zrobić proszę o pomoc.
Chcę dołączyć dane z plików do arkusza. Pliki są binarne o stałej długości. W arkuszu są w kolumnie nazwy tych plików. Jest ich kilkaset. Trzeba z każdego z nich wyciągnąć dwa bajty z określonej pozycji i dołączyć do arkusza w odpowiedniej pozycji. Nie są to pliki tekstowe a zapis bezpośrednio z maszyny. Urządzenie pisze wartości szesnastkowe do pliku...
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...
Drodzy Forumowicze, pracuję nad makrem, które plik csv z danymi dotyczącymi miesiąca (np. stycznia 2006 - załączam do postu ), "przerobi" na pliki dobowe o nazwie pliku w formacie rrrr-mm-dd. W kolumnie A załączonego pliku zawiera się czas i data w formacie: rrrr-mm-dd gg:mm (dane zapisywane są co minutę, dlatego występuje również godzina). Kolumna...
Nie jest nic pobierane Bo dla pobierania zakresu zapis powinien być taki: [syntax=vbscript]b.Sheets(1).Range("A1:D... a.Range("A" & ow).PasteSpecial xlValues[/syntax] Zawieszanie się na Close może być przyczyną zapisu do pliku. Sprawdź może taki kod: [syntax=vbscript]Sub Siec() Set a = ThisWorkbook.Sheets(1) ow = a.Cells(Rows.Count, "A").End(xlUp).Row...
Witam, Akurat miałem do zrealizowania identyczne zadanie - prostą stronkę dla naszego bufetu (sam HTML, bez PHP czy bazy danych), z możliwością cotygodniowego aktualizowania menu. Stworzyłem w tym celu mini-CMSa w Excelu - użytkownik wprowadza tam poszczególne pozycje, klika przycisk, a makro tworzy z nich stronę HTML. Mogę się nim podzielić. :) U mnie...
Hej, Nie mogę sobie poradzić z aktualizacją danych w pliku xls spod skryptu VB w accessie. Zapis „UpdateLinks = xlUpdateLinksAlways” zawiera błąd Próbowałam: „UpdateLinks: = xlUpdateLinksAlways” - zupełna klapa. Chciałam pokazać wiersz, który ma być aktualizowany: „UpdateLinks = 3” Też źle Poniżej podaję część skryptu,...
makro excel zapis pliku import pliku excel pliku excel zapis excel
27c128 programowanie karta graficzna pikseli suzuki vitara bezpieczniki
tester rezonatorów kwarcowych candy alise pralko suszarka
Pomarańczowa kontrolka w kuchence elektrycznej - przyczyny i rozwiązania Błąd F16 w pralce Miele W173 - Overdosering
