| |
Pozdravljeni,
Ker nisem vešč v tem, na youtube pa tudi nisem našel primernega videa, ki bi mi pomagal, se obračam na vas 
Potreboval bi kratko kodo ki bi mi Excel preglednico shranila v PDF, za ime pa uporabila podatke iz treh celic.
Sicer sem že našel kodo, ki pobere podatke iz ene celice, da bi pa dodal še 3 zraven, mi pa ne rata
Recimo:
'
' savePDF Macro
'
'
Dim fname As String
With ActiveSheet
fname = .Range("f4").Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"C:\test\" & fname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub
Lep pozdrav
|
| |
| |
Kako pa naj se sestavi ime datoteke iz teh treh celic? Recimo, da piše v celici ena ABC, v celici 2 DEF in v celici 3 GHI, kakšno je potem končno ime datoteke?
|
| |
| |
Spodnja koda bi morala delovati tako, kot želiš. Na mestih, kjer piše F4, F5 in F6 ustrezno vstavi svoje želene celice, ki naj tvorijo ime datoteke.
Sub ShraniKotPDF()
Dim fname As String
With ActiveSheet
fname = .Range( "F4" ).Value & "-" & .Range( "F5" ).Value & "-" & .Range( "F6" ).Value
.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
"D:\" & fname, Quality:= _
xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
OpenAfterPublish:=True
End With
End Sub
spremenjeno: kljuka (13.4.2018, 22:47)
|
| |
| |
Hvala
|
| |
Prikazujem 1 od skupno 1 strani |
|
