Excel Forum - Porady, Pomoc, Excel Help, Excel FAQ - przenoszenie makrem plików z jednego folderu do drugiego

haller · Starszy Forumowicz **Pomógł:** 2 razy Posty: 55

Witaj Załogo ExcelForum :)

Dzisiaj nurtuje mnie takie pytanie:
Czy istnieje makro, które sprawdzi czy w folderze (np. "C\temp") są jakieś pliki i foldery i jeśli tak, to skopiuje je do (np. "C:\Documents and Settings\imię\Pulpit\")?

Za wszelkie sugestie dziękuję :)
Pozdrawiam

negatyv · Wysłany: 2012-02-07, 20:53

Call Shell("xcopy c:\test\* c:\test1 /Y /S", vbNormalNoFocus)

haller · Starszy Forumowicz **Pomógł:** 2 razy Posty: 55

A można zrobić żeby to polecenie obsługiwało także spacje w nazwach folderów?
Bo jak chce skopiować coś na pulpit (np. "C:\Documents and Settings\imię\Pulpit\" ) to już w samym "Documents and Settings" są dwie spacje i polecenie kopiowanie nie radzi sobie z tym..

negatyv · Wysłany: 2012-02-08, 08:48

Musisz zastosować podwójne cudzysłowia
Call Shell("xcopy ""c:\test test\*"" ""c:\test1 test"" /Y /S", vbNormalNoFocus)

tkuchta1 · Excel Expert **Pomógł:** 1495 razy Posty: 2270

- XCOPY.exe
- ROBOCOPY.exe
- metoda CopyFolder (Scripting.FileSystemObject)

Kopiowanie katalogu wraz z plikami i podkatalogami.
http://www.apocotenexcel.pl/copyfolder.htm

haller · Starszy Forumowicz **Pomógł:** 2 razy Posty: 55

Dzięki tkuchta1!

"Spory" ten artykuł. Jak na razie go przeczytałem, teraz postaram się zrozumieć i jeszcze się odezwę :)

...

Spory, nie spory, postanowiłem że sobie wkleję Twój kod do swojego arkusza, podam swoje ścieżki do folderów i zobaczę co się stanie.. I stało się!! :) Wyrzuciło błąd w drugiej linijce o treści (załącznik graficzny do postu).

Jakaś sugestia o co chodzi??

[ Dodano: 2012-02-10, 19:27 ]
Dzięki negatyv za trik z podwójnymi cudzysłowami :) Oczywiście wszystko śmiga :)
Przyznaję, że dopiero dziś zauważyłem Twój wpis :-/

Straszna skucha!

To byłoby na tyle. Zamykam wątek :)

blad.jpg

Plik ściągnięto 15 raz(y) 58.79 KB

Nikel · forumowicz Posty: 20

Kod:

Sub Makro1()
'

Call Shell("xcopy ""c:\Users\Robert\Desktop\probny\wyszukiwarka.xls"" ""c:\Users\Robert\Desktop\probny\test"" /Y /S", vbNormalNoFocus)

End Sub

Pomóżcie. Nie wiem czemu ale nie działa mi ten kod. Katalog docelowy to c:\Users\Robert\Desktop\probny\test i nie wiem czemu mi nie działa. Makro się nie wysypuje ale też nie kopiuje.

[ Dodano: 2012-04-05, 13:20 ]
Up.
Już wiem. Miałem wynrany znacznik /S Kopiuje katalogi i podkatalogi, z wyjątkiem pustych. Wycięcie tego znacznika spowodowało skopiowanie pliku w miejsce wskazane.