Len tak narýchlo:
Sub vymaz()
If Dir("C:\cvm\*.xls") <> "" Then
Kill "C:\cvm\*.xls"
End If
End Subcitovat
Sub vymaz()
If Dir("C:\cvm\*.xls") <> "" Then
Kill "C:\cvm\*.xls"
End If
End Subcitovat
excel, návod, tipy, funkce, makra, vba, tabulky, šablony
Váš průvodce programem Microsoft Excel a programováním maker ve VBA
< návrat zpět
Téma: Hromadné mazání souborů
MS Excel
Téma: Hromadné mazání souborů 
Zaslal/a Mira86 7.11.2014 4:27
Ahoj, měl bych prosbu, zda by šlo pomocí makra promazat složku, kterou by bylo možné nějakým způsobem vybrat, tak aby se v oné složce a podsložkách promazaly veškeré soubory podle přípony, která by se také dala vybrat. Například .res a .rtf
Děkuji za každou radu a pomoc při řešení
nebo takhle? 
viz přílohu
přes tlačítko s možností výběru.
Jelikož nevím jaké přípony máš konkrétně namysli(kromě příkladu co jsi uvedl) tak jsem hodil do sloupce "A" pár přípon.
viz přílohu přes tlačítko s možností výběru.
Jelikož nevím jaké přípony máš konkrétně namysli(kromě příkladu co jsi uvedl) tak jsem hodil do sloupce "A" pár přípon.
Příloha: 
22236_mazani.zip (22kB, staženo 25x)
citovat22236_mazani.zip (22kB, staženo 25x)Děkuji oběma, zkusil jsem tu přílohu a je to přesně to, co jsem hledal.. perfektní, jen při spuštění makra Nahlásí chybu :
Run-time error '445'
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.
Ale jak se soubor rozjede, bude to absolutně perfektní :) Díkycitovat
Run-time error '445'
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.
Ale jak se soubor rozjede, bude to absolutně perfektní :) Díkycitovat
Makro na promazání v jedné úrovni jsem měl v pátek v poledne a začal to vylepšovat na podsložky. Ale Mosqito mě předešel, dal sem soubor, tak jsem to zabalil.
Teď jsem to tedy dotáhnul, i pro sebe, abych konečně víc pochopil, jak to funguje.
Základem je totiž soubor, který jsem kdysi našel někde na netu, původně dělal seznam souborů z adresářů dle přípony. Už sem ho sem taky pro někoho dával. Snad někdo neřekne, že se chlubím cizím peřím.
Předělal jsem ho na mazání, snad to bude ono.
Proti Mosqitovu řešení je tu asi lepší výběr složky, ten jeho líp pasuje na výběr souboru. A tu chybu mi to dává taky, je to něco s hledáním.
Vyzkoušej, ale pozor! Je to přeci jen mazání!
Teď jsem to tedy dotáhnul, i pro sebe, abych konečně víc pochopil, jak to funguje.
Základem je totiž soubor, který jsem kdysi našel někde na netu, původně dělal seznam souborů z adresářů dle přípony. Už sem ho sem taky pro někoho dával. Snad někdo neřekne, že se chlubím cizím peřím.
Předělal jsem ho na mazání, snad to bude ono.
Proti Mosqitovu řešení je tu asi lepší výběr složky, ten jeho líp pasuje na výběr souboru. A tu chybu mi to dává taky, je to něco s hledáním.
Vyzkoušej, ale pozor! Je to přeci jen mazání!
Příloha: 22259_mazani_souboru.zip (35kB, staženo 23x)
citovat22259_mazani_souboru.zip (35kB, staženo 23x)Run-time error '445'
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.
Jelikož od verze 2007 již VBA nepodporuje příkaz "Application.FileSearh" proto ta chybová hláška.
Makro jsem psal v práci na 2003 kde mi to fungovalo.
Nicméně makro jsme upravil s tím, že jsem na netu hledal možnosti čím to nahradit, takže jsem přidal
"Class Moduly" (což není můj výmysl jenom jsem ho upravil dle obrazu svého)
Doladil jsem ještě nějaké maličkosti v Userformu , takže snad poslouží
P.s. Teď to bohužel nebude fungovat ve verzi 2003
@ Dingo:
Tvoje makro jsem bohužel ani nespustil, jelikož běžím na 64bit OS, takže nemůžu posoudit či je lepší
edit: funkční příloha v #post-22271
Object doesn't support this action
Čím by to mohlo být ? Používám office 2010.
Jelikož od verze 2007 již VBA nepodporuje příkaz "Application.FileSearh" proto ta chybová hláška.
Makro jsem psal v práci na 2003 kde mi to fungovalo.
Nicméně makro jsme upravil s tím, že jsem na netu hledal možnosti čím to nahradit, takže jsem přidal
"Class Moduly" (což není můj výmysl jenom jsem ho upravil dle obrazu svého)
P.s. Teď to bohužel nebude fungovat ve verzi 2003
@ Dingo:
Tvoje makro jsem bohužel ani nespustil, jelikož běžím na 64bit OS, takže nemůžu posoudit či je lepší
edit: funkční příloha v #post-22271
Příloha: 22260_mazani.zip (44kB, staženo 21x)
citovat22260_mazani.zip (44kB, staženo 21x)@Mosquito
Nespustí se? Já to dělám na Win7 64-bit, Excel 2010,2013 32-bit. Nevím. Mělo by to fungovat.
Neříkám lepší makro. Ale k určení složky je u mě vhodnější dialog, kde se ukáže přímo adresář a je to jednoznačné.
Když jsem zkoušel tvoje řešení, z UserForm "vyberte cestu",
1.pokus: vyberu C:\Temp, řádek Název složky = Temp, stisknu OK a napíše to "žádná složka"
2.pokus: to samé + ještě rozkliknu v okně Temp >> OK >> zase "žádná složka"
3.pokus: to samé + navíc ještě v Temp označím podadresář, třeba ABC, v řádku Název složky = ABC >> OK >> a v Userform je teprve cesta C:\Temp. Divné.citovat
Nespustí se? Já to dělám na Win7 64-bit, Excel 2010,2013 32-bit. Nevím. Mělo by to fungovat.
Neříkám lepší makro. Ale k určení složky je u mě vhodnější dialog, kde se ukáže přímo adresář a je to jednoznačné.
Když jsem zkoušel tvoje řešení, z UserForm "vyberte cestu",
1.pokus: vyberu C:\Temp, řádek Název složky = Temp, stisknu OK a napíše to "žádná složka"
2.pokus: to samé + ještě rozkliknu v okně Temp >> OK >> zase "žádná složka"
3.pokus: to samé + navíc ještě v Temp označím podadresář, třeba ABC, v řádku Název složky = ABC >> OK >> a v Userform je teprve cesta C:\Temp. Divné.citovat
@Dingo:
Co se týče tvého makra tak hned po spuštění se mi ukaže tohle viz přílohucitovat
Co se týče tvého makra tak hned po spuštění se mi ukaže tohle viz přílohucitovat
22270_obrazek4.png
@Dingo:
Díky za upozornění chybu jsem opravil
edit: nyní funguje i v excel 2003
Díky za upozornění
chybu jsem opraviledit: nyní funguje i v excel 2003
Příloha: 22271_mazani.zip (43kB, staženo 21x)
citovat22271_mazani.zip (43kB, staženo 21x)
@komár
mno já nezkoušel ani jeden kód, tak vás nebudu rozhodcovat ;))
ale tipl bych - nemáte náhodou Office 64 bit - dle mého to nesouvisí s verzí systému, ale office
http://www.jkp-ads.com/articles/apideclarations.aspcitovat
mno já nezkoušel ani jeden kód, tak vás nebudu rozhodcovat ;))
ale tipl bych - nemáte náhodou Office 64 bit - dle mého to nesouvisí s verzí systému, ale office
http://www.jkp-ads.com/articles/apideclarations.aspcitovat
@eLCHa
a jo mám 64 bit office Díky.
a kdo má lepší řešení, tak to je jedno. Já nechci s nikým soutěžit
Zadavatel si vybere sám co mu bude vyhovovat.citovat
a jo mám 64 bit office
Díky.a kdo má lepší řešení, tak to je jedno. Já nechci s nikým soutěžit
Zadavatel si vybere sám co mu bude vyhovovat.citovat
Uživatelské menu
Nejste přihlášen(a)
\n
\nMenu
Formulář Faktura
Formulář Faktura IV
Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.
Helios iNuvio
Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.
RSS nejnovější články