< návrat zpět

MS Excel


Téma: Hromadné mazání souborů rss

Zaslal/a 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í

Zaslat odpověď >

Strana:  1 2   další »
#022229
Hav-Ran
Len tak narýchlo:
Sub vymaz()
If Dir("C:\cvm\*.xls") <> "" Then
Kill "C:\cvm\*.xls"
End If
End Subcitovat
#022236
€Ł мσşqμΐτσ
nebo takhle? 1 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. 10
Příloha: zip22236_mazani.zip (22kB, staženo 25x)
citovat
#022246
avatar
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
#022259
avatar
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í! 5
Příloha: zip22259_mazani_souboru.zip (35kB, staženo 23x)
citovat
#022260
€Ł мσşqμΐτσ
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. 5

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) 1

Doladil jsem ještě nějaké maličkosti v Userformu , takže snad poslouží 10
P.s. Teď to bohužel nebude fungovat ve verzi 2003 8


@ Dingo:
Tvoje makro jsem bohužel ani nespustil, jelikož běžím na 64bit OS, takže nemůžu posoudit či je lepší 9

edit: funkční příloha v #post-22271
Příloha: zip22260_mazani.zip (44kB, staženo 21x)
citovat
#022266
avatar
@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
#022270
€Ł мσşqμΐτσ
@Dingo:
Co se týče tvého makra tak hned po spuštění se mi ukaže tohle viz přílohu
Příloha: png22270_obrazek4.png (84kB, staženo 24x)
22270_obrazek4.png
citovat
#022271
€Ł мσşqμΐτσ
@Dingo:
Díky za upozornění 1 chybu jsem opravil

edit: nyní funguje i v excel 2003 10
Příloha: zip22271_mazani.zip (43kB, staženo 21x)
citovat
icon #022274
eLCHa
@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
#022275
€Ł мσşqμΐτσ
@eLCHa
a jo mám 64 bit office 5 Díky.

a kdo má lepší řešení, tak to je jedno. Já nechci s nikým soutěžit 1
Zadavatel si vybere sám co mu bude vyhovovat.citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

rozpis zápasů hráčů pro utkání dvou týmů

Anonym • 25.5. 11:54

Hromadné přepsání

elninoslov • 24.5. 10:29

Hromadné přepsání

Nomi • 24.5. 8:32

Index - každý rok začít od 1 Power Query

Alfan • 23.5. 9:17

nepřímý odkaz

elninoslov • 23.5. 0:00

nepřímý odkaz

bordov • 22.5. 18:35

vrácené hodnoty

Anonym • 22.5. 15:46