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
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
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