Excel Forum - Porady, Pomoc,  Excel Help, Excel FAQ Strona Główna
 FAQ  RegulaminRegulamin  Szukaj   Użytkownicy   Grupy   Rejestracja   Profil   Twoje wiadomości   Zaloguj 


Poprzedni temat «» Następny temat
ID tematu: 70171 Skopiuj do schowka Makro tworzące kopie pliku
Autor Wiadomość
Pindelek 
Exceloholic


Pomógł: 1 raz
Posty: 154
Wysłany: 17-02-2021, 21:32   Makro tworzące kopie pliku

Cześć,
Szukam makra które zrobi kopię pliku o nazwie z komórki A1 (Arkusz1).
Kopia pliku powinna być zapisana w C:\_archiwum

Po wykonaniu tych działań powinien zostać otwarty plik wzorcowy a kopia pliku powinna być zamknięta.
Z góry dziękuję za pomoc.

test.xlsm
Pobierz Plik ściągnięto 6 raz(y) 11.52 KB

ID posta: 400575 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155
Wysłany: 18-02-2021, 08:58   

Kod:
Option Explicit

Private Sub CommandButton1_Click()

ActiveWorkbook.Sheets.Copy
ActiveWorkbook.SaveAs Filename:="C:\_archiwum\" & Range("A1").Value, FileFormat:=51
ActiveWorkbook.Close

End Sub
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400593 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3091 razy
Posty: 10240
Wysłany: 18-02-2021, 23:20   

umiejead, :niee

Zaproponuj SaveCopyAs.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 400654 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
Wysłany: 19-02-2021, 12:43   

Artik napisał/a:
Zaproponuj SaveCopyAs
A to zależy jaką kopię chcemy zrobić, .xlsx bez makr, czy 1:1 czyli .xlsm.
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 400676 Skopiuj do schowka
 
 
Artik 



Wersja: Win Office 365
Pomógł: 3091 razy
Posty: 10240
Wysłany: 19-02-2021, 13:44   

1. Nazwa folderu, w którym należy zarchiwizować (słaby argument :-) )
2.
Pindelek napisał/a:
makro które zrobi kopię pliku

3.
Pindelek napisał/a:
powinien zostać otwarty plik wzorcowy a kopia pliku powinna być zamknięta.
(SaveAs zamyka oryginał, SaveCopyAs nie).

Powyższe są przesłankami do tego by uznać, że chodzi o kopię 1:1.
Ale niech się Pindelek wypowie czego oczekuje.

Artik
_________________
Persistence is a virtue in the world of programming.
ID posta: 400680 Skopiuj do schowka
 
 
umiejead 
Excel Expert


Wersja: Win Office 2013
Pomógł: 771 razy
Posty: 4155
Wysłany: 19-02-2021, 13:58   

Od początku tak miało być... - poranne zamotanie? :mrgreen: .

Kod:
Option Explicit

Private Sub CommandButton1_Click()

ActiveWorkbook.SaveCopyAs Filename:="C:\_archiwum\" & Range("A1").Value & ".xlsm"

End Sub
_________________
.
Jak poprawnie opisać problem: http://www.excelforum.pl/...ika-vt59262.htm
Chcesz precyzyjną odpowiedź - zadaj precyzyjne pytanie.
ID posta: 400683 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
Wysłany: 19-02-2021, 14:19   

A mi nie działa SaveCopyAs :-(
Załącznik.

Test.xlsm
Pobierz Plik ściągnięto 6 raz(y) 13.06 KB

_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 400688 Skopiuj do schowka
 
 
Rafał B.
Exceloholic



Wersja: Win Office 2016
Pomógł: 33 razy
Posty: 232
Wysłany: 19-02-2021, 16:40   

Ależ mnie Kolega przestraszył... niemal w każdym projekcie mam .SaveCopyAs, dobry żart z tym "zawiasem" w A1! :-D To przypomina o konieczności dobrej walidacji ścieżki i pliku. Oczywiście folder musi być wcześniej utworzony.

Ale fakt, że problem czasem może wystąpić, prawdopodobnie związany z pozwoleniami do katalogu (u mnie np. w gołym C:\ nie chce zapisać).
_________________
Jest niemal niemożliwe nauczenie dobrego programowania uczniów, którzy byli narażeni na kontakt z BASIC: jako potencjalni programiści są okaleczeni, bez nadziei na poprawę. (Edsger Dijkstra, pionier informatyki).
Po części dotyczy również VBA.
  
ID posta: 400708 Skopiuj do schowka
 
 
Marecki 
Excel Expert



Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
Wysłany: 19-02-2021, 17:07   

Chociaż jednego nastraszyłem. ;-) :mrgreen:
umiejead, ja bym zamienił ActiveWorkbook na ThisWorkbook, bo jak Pindelek, zacznie rozbudowywać makro, mieszać skoroszytami to może się okazać że ActiveWorkbook będzie się odnosił do innego skoroszytu niż byśmy chcieli.
I weź pod uwagę to, co napisał kolega Rafał B..
_________________
Hardware - ta część komputera, którą można kopnąć kiedy software przestanie funkcjonować.

Szkolenia z Excela , FB
Office 2019 Professional Plus , Windows 10 x64
Pozdrawiam, były mkkk23 teraz Marecki.
ID posta: 400709 Skopiuj do schowka
 
 
Wyświetl posty z ostatnich:   
Odpowiedz do tematu
Nie możesz pisać nowych tematów
Nie możesz odpowiadać w tematach
Nie możesz zmieniać swoich postów
Nie możesz usuwać swoich postów
Nie możesz głosować w ankietach
Nie możesz załączać plików na tym forum
Możesz ściągać załączniki na tym forum
Dodaj temat do Ulubionych
Wersja do druku

Skocz do:  

Powered by phpBB modified by Przemo © 2003 phpBB Group
Theme xandgreen created by spleen& Programosy modified v0.3 by warna
Opieka techniczna www.marketingNET.pl

Archiwum

Strona używa plików cookies.

Kliknij tutaj, żeby dowiedzieć się jaki jest cel używania cookies oraz jak zmienić ustawienia cookie w przeglądarce.
Korzystając ze strony użytkownik wyraża zgodę na używanie plików cookies, zgodnie z bieżącymi ustawieniami przeglądarki.
Sprawdź, w jaki sposób przetwarzamy dane osobowe