ID tematu: 70171
 |
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
|
|
|
 |
|
|
|
|
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
|
|
|
|
|
|
|
Artik
Wersja: Win Office 365
Pomógł: 3091 razy
Posty: 10240
|
| Wysłany: 18-02-2021, 23:20
|
|
|
umiejead, 
Zaproponuj SaveCopyAs.
Artik |
_________________
Persistence is a virtue in the world of programming. |
|
| ID posta:
400654
|
|
|
|
|
|
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
|
|
|
|
|
|
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
|
|
|
|
|
|
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?  .
| 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
|
|
|
|
|
|
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
|
|
|
|
|
|
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!  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
|
|
|
|
|
|
Marecki
Excel Expert
Wersja: Win Office 2019
Pomógł: 2494 razy
Posty: 8280
|
| Wysłany: 19-02-2021, 17:07
|
|
|
Chociaż jednego nastraszyłem. 
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
|
|
|
|
|
|
|
|
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
|
 |
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
|
Regulamin
