< návrat zpět

MS Excel


Téma: mazani souboru rss

Zaslal/a 17.12.2012 16:28

dobrý den, potřeboval bych poradit s nasledujicim problemem vzhledem k tomu ze mi bylo ukradeno několik prográmků psaných v autoit potřeboval bych jestli by šlo při otevření excelu aby mi na místních discích vyhledal a smazal soubory *.au3 našel jsem pouze mazaní pomocí kill ale vždy to potřebovalo cestu děkuji za rady

Zaslat odpověď >

icon #010684
avatar
Tuná nájdeš script na vypísanie súborov z adresára/podadresárov.

http://excelexperts.com/vba-tips-list-files-in-a-folder

Stačí doplniť podmienky na vypísanie súborov s príponou *.au3, resp. na ich mazanie, na nájdenie cesty k danému súboru stačí, keď si upravíš hore uvedené.

Inak, stačilo do vyhľadávača zadať list of files vba a uvedené sa zobrazilo hneď ako prvý odkaz.

V prípade, že potrebuješ odmazať súbory s nejakou príponou, nestačilo by priamo v prieskumníkovi, wincommanderi apod. súbory s danou príponou nájsť a odmazať ich priamo tam? Možno som blbý, ale nie na všetko je podľa môjho názoru potrebné trápiť sa s nejakým kódom...

Pokiaľ budeš trvať na tom, aby sa to mazalo v exceli pri otvorení súboru, tak budeš kód písať do kódového okna ThisWorkbook do udalostnej procedúry Workbook_Open.
Keby si si naozaj nevedel rady, tak pomôžem, neboj, ale myslím, že i pre Tvoj prípadný ďalší rozvoj bude dobré, keď sa najprv pokúsiš sám 2

Pokiaľ potrebuješ, aby k mazaniu dochádzalo pri štarte excelu ako takého, tak buď vytvoriť doplnok, alebo kód fláknuť do osobného zošitu makier, prípadne do nejakého ďalšieho súboru, ktorý umiestniš do adresára XLSTART.citovat
#010685
avatar
Děkuji za inspiraci ale myslel jsem spíš na to aby to pracovalo na pozadí bez toho aniž by se zobrazilo že se něco děje. Samozřejmě většinou napřed hledám a zkouším si pomoci sám ale jsou věci které nezvládám. Jak jsem psal mazání soubrorů v konkrétní složce by nebyl problem to bych použil toto. přesně tak jsem to myslel při otevření ale to už vím když dělal spuštění makra v daný čas.
Sub Delete()

On Error Resume Next
Kill "P:\SC*.*"
On Error GoTo 0
End Sub
citovat
#010686
avatar
A čo ak niekto chytrý nespustí excel, ale najprv si tie súbory skopíruje na USB. Načo ti bude také makro? 7citovat
icon #010689
eLCHa
Proč v excelu. řešte to dávkou.citovat
#010708
avatar
taky bych to řešil dávkou v silent modu 9citovat
#010763
avatar
Dobrý den děkuji všem za rady omlouvám se že reaguji až ted nebyljsem u internetu delší dobu. Bohužel dávkou netuším vůbec jak.citovat

Uživatelské menu

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

Menu

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.

On-line nástroje