• Úvod
• Excel návod
• Excel šablony
• Nástěnka
• Mobility
• Tipy na výlet
• Galerie
• Fórum

MS Excel

Téma: Vytvorenie suborov a pomenovanie

Zaslal/a Silvik 8.8.2013 10:46

Zdravím, mam nasledujúci problém. Mám vypracovaný excel .xls (verzia 2003), ktorý potrebujem nakopírovať (naklonovať) a dané kópie(klony) premenovat podla dodaného zoznamu a rozdriedit do rôznych zložiek. Príklad: subory by sa volali 00000-99999 a boly by v zložkách po tisícoch, čiže 00000-00999 by bolo v zložke 0, 01000-01999 by bolo v zložke 1, atď. Ďakujem za rady

Zaslat odpověď >

---

Silvik(8.8.2013 10:57)#014626

napadlo ma spraviť také makro ktoré by spravilo 'uložiť ako' a uložilo subor ale keby nazvy ktore maju zmes pismen a čisel mali postupnosť nieje problem, lenže nazvy su nahodne formát 'nejaký_string'-'nahodne_cislo' a to je pre mna problem...citovat

Palooo(8.8.2013 13:43)#014627

pridaj prilohu mozem sa nato kuknutcitovat

eLCHa(9.8.2013 7:14)#014631

100000 kopií jednoho souboru?

mno když chcete, tak by to bylo nějak takto (sorry, ale 100000 souborů vytvářet nebudu, takže to zkuste otestovat u sebe ;)))) )

Sub subCopy()
Dim sExt As String
sExt = ThisWorkbook.FullName
sExt = Mid(sExt, InStrRev(sExt, "."))
Dim sDir As String
Dim I As Long
For I = 0 To 99999
sDir = ThisWorkbook.Path & Application.PathSeparator & Format(I \ 1000, "00") & "000"
If Dir(sDir) = vbNullString Then
MkDir sDir
End If

' FileCopy ThisWorkbook.FullName, sDir & Application.PathSeparator & Format(I, "00000") & sExt
ThisWorkbook.SaveCopyAs sDir & Application.PathSeparator & Format(I, "00000") & sExt
Next I
End Sub

FileCopy by bylo lepší, ale funguje jen v případě zavřeného kopírovaného souborucitovat

Uživatelské menu

Nejste přihlášen(a)

• přihlásit
• registrace

\n

Menu

On-line nástroje

Formulář Faktura

Aktivní diskuse