MS Excel

Ahoj, měl bych na vás prosbu.

Mám sešit na mazání souborů podle typu, kde si mohu vybrat příponu, složku a sešit poté v celé složce smaže všechny soubory s touto příponou.

Vytvořil jsem sešit "Odstraň komentáře" podle toho sešitu na mazání souborů. Neumím ho však upravit tak, aby bylo možné:

1. Vybrat složku v PC (To už jsem zkopíroval)
2. Ve vybrané složce přejmenovat všechny soubory a to následujícím způsobem.

Každý soubor může (ale nemusí) obsahovat podtžítko "_"
Toto podtžítko je potřeba z názvu souboru smazat i se vším, co je za ním.

Máme-li tedy soubor "20058-01-001-003_upínka", výsledkem by mělo být "20058-01-001-003".

Předem děkuji

Zaslat odpověď >

Strana: « předchozí 1 2 3 další »

Jiří497(24.7.2020 22:55)#047459

Přidal jsem do makra dva řádky.
Do funkce GetAllFiles jsem přidal automatické smazání všeho od podtržítka do konce názvu: NoveNazvy(i) = Left(StareNazvy(i), InStr(1, StareNazvy(i), "_", vbTextCompare) - 1)

Pak jsem na konec procedury Sub Pridaj_Click() přidal volání procedury Premenuj_Click. Tato procedura se spouští po stisku tlačítka Premenuj

Takže po stisku tlačítka +Pridaj se objeví okno pro výběr adresáře. Po výběru adresáře se soubory načtou do excelu a hned přejmenují i na disku.

Příloha: rar

47459_premenovanie-suborov_uprava.rar (39kB, staženo 22x)

citovat

CMM-Team(26.7.2020 15:44)#047465

Takhle je to super, jen jeden problém... pokud složka obsahuje alespoň jeden soubor, který neobsahuje podtržítko, při načítání složky dojde k chybě.citovat

Jiří497(27.7.2020 13:03)#047470

Tak místo
NoveNazvy(i) = Left(StareNazvy(i), InStr(1, StareNazvy(i), "_", vbTextCompare) - 1)

Použijte toto:
If (InStr(1, StareNazvy(i), "_", vbTextCompare) - 1) > 0 Then
NoveNazvy(i) = Left(StareNazvy(i), InStr(1, StareNazvy(i), "_", vbTextCompare) - 1)
Else
NoveNazvy(i) = StareNazvy(i)
End If když název nebude obsahovat podtržítko, zůstane nový název stejný jako starýcitovat

CMM-Team(27.7.2020 19:21)#047474

Ahoj, teď to funguje. Jen si tedy neumím moc představit běh makra pro 200 souborů, protože pro 3 testovací soubory to trvá nějak dlouho.citovat

Jiří497(27.7.2020 19:32)#047477

A je to pomalé až po té poslední úpravě? A nebo to trvalo dlouho i předtím?
Já jsem to zkoušel asi na deseti a bylo to hned. Ale bylo to před tou poslední úpravou. Možná se pletu, ale na rychlost by to nemělo mít podstatný vliv. Teda určitě ne na pár souborech.citovat

CMM-Team(28.7.2020 9:33)#047481

Prve to šlo myslím bez problémů. Aktuálně na 3 souborech výpočet na cca 10 - 15s.citovat

Jiří497(28.7.2020 9:56)#047482

Tak to je fakt moc. Já to teď nemám jak vyzkoušet, možná večer. Jestli máte čas můžete zkusit všechny verze. První originál, druhá co neumí soubory bez podtržítka a třetí, co zvládne i soubory bez podtržítka. A porovnat čas zpracování.
A nebo přiložte váš soubor.citovat

Jiří497(28.7.2020 21:30)#047495

načteno 700 souborů za cca 5 vteřin.

Příloha: rar

47495_premenovanie-suborov_uprava-1.rar (41kB, staženo 22x)

citovat

Mati(29.7.2020 13:20)#047502

Dobrý den,
chtěl bych se zeptat je možné, aby šlo přejmenovat i jiné soubory které nemají neobsahují "_".

Aby to našetlo všechny soubory ne jen "_"

A větší počet souborů ne jen 1000.

Děkuji za Vaši odpověď popřípadě vzor.

Jiří497 napsal/a:

načteno 700 souborů za cca 5 vteřin.Příloha: 47495_premenovanie-suborov_uprava-1.rar (41kB, staženo 4x)

citovat

elninoslov(29.7.2020 13:30)#047504

To je moje staré makro. G6 je konštanta na max počet súborov. Tak si ju zmente.
Celé vlákno sa mi čítať nechce, iba ak by to Jiří nedal. Teda ak sa mu bude chcieť, lebo to vyzerá na dávkovanie požiadaviek.citovat

Strana: « předchozí 1 2 3 další »

Téma: Odstranění části názvu souboru

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje