[ lakisha @ 12.03.2013. 23:34 ] @
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
[ Jpeca @ 13.03.2013. 16:21 ] @
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
[ lakisha @ 13.03.2013. 16:25 ] @
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