[es] - kreirati folder i sub folder pod nazivom iz odredjenih celija

lakisha
ob

Član broj: 58980
Poruke: 5
*.dynamic.isp.telekom.rs.

Profil

kreirati folder i sub folder pod nazivom iz odredjenih celija

^{12.03.2013. u 23:34 - pre 135 meseci}

Pozdrav svima
da predjem odmah na stvar: trazeći na raznim forumima uspeo sam da pronađem deo rešenja ( i to baš na ovom forumu) ali mi nedostaje kraj.
Imam radni list koji želim da sčuvam u PDF pod imenom iz nekoliko ćelija ( to sam uradio zahvaljujući JPeci i IvekC ) i sada želim da za taj fajl folder
i sub folder koji će se nazivati po vrednostima iz određenih ćelija i to pod uslovom da već ne postoje a ukoliko postoje da se u njih snimi dati fajl.
Možda nisam najbolje objasnio ali toliko se i razumem u VBA projektovanje.Hvala svakome ko odvoji vreme da se pozabavi ovim

Code:

Sub Snimi_Kao() ' macro za snimanje racuna u PDF pomocu Microsoftovog ugradjenog alata za Office 2007

Dim txtIme As String

txtIme = "D:\IZVASTAJI\" & Range("G14") & "_" & Range("L3") & "_" & Range("E18") 'ime nove datoteke i folder u koji se snima
ActiveSheet.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=txtIme, _
OpenAfterPublish:=False

End Sub

Odgovor na temu

Jpeca
Predrag Jovanović
poslovni analitičar
Gowi
Pančevo

Moderator
Član broj: 25683
Poruke: 2268
212.200.121.*

Sajt: www.gowi.rs

+109 Profil

Re: kreirati folder i sub folder pod nazivom iz odredjenih celija

^{13.03.2013. u 16:21 - pre 135 meseci}

Ne vidim ovde gde su ti folder i subfolder koje spominješ?

Inače da proveriš da li postoji koristiš funkciju Dir, a za kreiranje MkDir, npr.

Code:
If Dir("E:/IZVESTAJI/NekiFolder/", vbDirectory) = "" Then
MkDir "E:/IZVESTAJI/NekiFolder/"
End If

Ovaj kod podrazumeva da E:/IZVESTAJI postoji i proverava da li postioj lokacija NekiFolder ispod IZVESTAJI i ako nema onda je kreira

Nije to loše Rembrante, samo što ne bi dodao još malo boje?

Odgovor na temu

lakisha
ob

Član broj: 58980
Poruke: 5
*.dynamic.isp.telekom.rs.

Profil

Re: kreirati folder i sub folder pod nazivom iz odredjenih celija

^{13.03.2013. u 16:25 - pre 135 meseci}

u navedeno kodu nema ni folder ni sub foldera i to je ono sto mi je potrebno da ugradim u postojeci kod kako bih taj fajl snimio u sub folder
inace nisam naveo da sam VBA noob

Odgovor na temu