< návrat zpět

MS Excel


Téma: Ověření názvu adresáře rss

Zaslal/a 7.10.2016 11:32

Ahoj všem.
Potřebuj poradit. Mám makro,kterým vytvořím adresář pomoci MkDir (název adresáře zadávám z inputboxu)a následně do takto vytvořeného adresáře pomoci stejného makra ukládám soubor. Jde mi o jedno: Jak při vytváření adresáře zkontrolovat,jestli se již adresář se stejným názvem nevyskytuje? Proč? Protože pokud zadámm název adresáře, který se tam již vyskytuje, tak se makro zastaví a to není dobré :-)
děkuji všem za návod :-)

Zaslat odpověď >

icon #033005
eLCHa
Funkce Dircitovat
#033007
avatar
Díky. A kam to vložit ? :-) Když to moje makro vypadá takto :
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a
MkDir adresar
'
End Subcitovat
#033008
avatar
Google je ošklivá věc..

Jinak FolderExistscitovat
#033009
avatar
Ja když nevím , tak alespoň nedělám chytrého, aby jsem nevypadal jako hlupák a proto se raději zeptám, že ? 1citovat
#033010
avatar
Tak jsem to vyřešil. Pro případ, že by někdo potřeboval něco podobného:
Sub Makro1()
'
' Makro1 Makro
a = InputBox("zadej název")
adresar = "C:\Pokus1000\" & a

' kontrola zda li neexistuje stejný adresář

If Dir("C:\Pokus1000\" & a) = Empty Then
MsgBox ("Adresář již EXISTUJE! ")
a = InputBox("Zadej hezčí - jiný název! ")
adresar = "C:\Pokus1000\" & a

End If
' Vytvoří adresář
MkDir adresar

End Sub

Díky za spolupráci :-)citovat

Uživatelské menu

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

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura III

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

Aktivní diskuse

Vytvoření tabulky dovolených excel 2007

MisaKl • 19.9. 11:10

Excel po otevření změní filtry

Pepe123 • 19.9. 9:44

nahodne cisla

mepexg • 18.9. 12:09

nahodne cisla

pavol14pavol • 17.9. 21:46

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:21

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:15

Nájsť správne číslo a dosadiť novú hodnotu

Alindros • 17.9. 13:13