< návrat zpět

MS Excel


Téma: Otevření adresáře rss

Zaslal/a 16.3.2021 11:31

Ahoj,
mám adresář např. "C:\leden\23.leden, 13hod", potřebuji z toho názvu odstranit (nahradit) "." a ",". Poradíte mi prosím jak nejlépe to udělat ve VBA? Ručně to dělat nemohu, je jich denně mnoho.
Děkuji

Zaslat odpověď >

#050117
elninoslov
Nemáte Total Commander? Tam označíte, Ctrl+M, dáte nahradiť "." a potom "," za "nič".
Dá sa samozrejme aj makrom. Keď píšete hromadne, tak myslíte tak, že si chcete určiť hlavný adresár napr. "C:\leden\" a premenuje všetky podadresáre?

EDIT:
Sub Premenuj(Cesta As String)
Dim objFLD As Object, Chyb As Long
On Error Resume Next
For Each objFLD In CreateObject("Scripting.FileSystemObject").GetFolder(Cesta).SubFolders
objFLD.Name = Replace(Replace(objFLD.Name, ",", ""), ".", "")
If Err.Number <> 0 Then Chyb = Chyb + 1: Err.Clear
Next objFLD
On Error GoTo 0
MsgBox IIf(Chyb = 0, "Všetky adresáre premenované.", "Niektoré adresáre neboli premenované (" & Chyb & ")."), IIf(Chyb = 0, vbInformation, vbCritical)
Set objFLD = Nothing
End Sub


Sub pokus()
Premenuj "e:\Download\1\"
End Sub
citovat

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

Vytváření složek dle označených buněk

elninoslov • 26.2. 14:03

Vytváření složek dle označených buněk

Pixie-Pin • 26.2. 13:46

Současné rozplánování více projektů v Excelu -3

exceleda • 26.2. 12:50

Současné rozplánování více projektů v Excelu.

exceleda • 26.2. 12:27

Současné rozplánování více projektů v Excelu.

exceleda • 26.2. 12:25

konsolidace II.

elninoslov • 26.2. 0:36

konsolidace II.

pmiki • 24.2. 21:07