MS Excel

Téma: vytvoreni adresare

Zaslal/a jaks.dalibor 4.11.2011 17:48

ahoj vseci, prosim o radu. Kdyz vytvorim adresar pomoci VBA a ulozim do nej sesit, vse OK. Pokud ale chci ulozit dalsi sesit, tak mi to napise error 75, pravdepodobne proto, ze ten adresar uz existuje. Je nejaka moznost toto upravit. Nechci natvrdo vytvaret adresare, protoze to delam pro jednoho zednika a nechci ho nechat vytvaret adresare. Pomuze nekdo?
Mam i cvicny sesit, ale nedari se mi vlozit, chce to opsat kontrolni kod, ale nikde zadny nevidim ....

.
Kdyz tak vzorovy sesit je na adrese http://www.pcman.cz/dokumenty/p.xls

Zaslat odpověď >

jaks.dalibor(5.11.2011 21:52)#006379

tak částečně vyřešeno. Po zadání kódu:

Private Sub CommandButton1_Click()

If Len(Dir("Faktury", vbDirectory)) = 0 Then
MkDir "Faktury"

MsgBox "právě byl vytvořen"

Else: MsgBox "existuje"

End If

End Sub

pokud není vytvořen adresář "Faktury", tak ho vytvoří, pokud již existuje, tak napíše, že "existuje". Ještě bych chtěl vytvořit vnořený adresář "2011". Problém je, že když to takhle vytvořím, tak mi to při dalším uložení vytovří nový adresář "Faktury" ve složce "2011" a v ní opět složku "2011". Zkuste ještě někdo poradit, používám jednoduché kódy MkDir a ChDir, viz. příloha na www.pcman.cz/dokumenty/p.xls . Díky za případné náměty.citovat

jaks.dalibor(5.11.2011 22:16)#006380

a nakonec si odpovím taky já

. stačí zadat jednoduchý kód

Private Sub CommandButton1_Click()

If Len(Dir("Faktury", vbDirectory)) = 0 Then
MkDir "Faktury"
ChDir "Faktury"
MkDir "2011"
ChDir ".."
ChDir ".."

MsgBox "právě byl vytvořen"

Else: MsgBox "existuje"

End If

End Sub

a bude se jakoby vytvářet pořád jeden a tentýž adresář a podadresář. Schválně nemám v kodu MKdir psanou cestu Path, protože takhle mi to v 99% vytváří adresáře v dokumentech. Čao

citovat

Téma: vytvoreni adresare

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje