Kezdőlap › Fórumok › Excel programozás › [Resolved] Nyomógomb létrehozás › Hozzászólás: [Resolved] Nyomógomb létrehozás
2020-02-04-07:35
#6743
Szia!
Mivel egy cellából kell kiolvasni a dátumot, a cella címét kell megadnod forrásként.
A dátumokat az Excel egész számokként értelmezi. A mai dátumot – 2020.02.04-et – 43865-ként tárolja. Ahhoz, hogy a fájlnévben dátum formában jelenjen meg, meg kell adnod a megjelenítendő formátumot.
Sub Mentes_pdf()
Dim Ajanlat As String
With ActiveSheet
Ajanlat = ActiveWorkbook.Path & "\" & .Name & "_" & Format(Range("A2"), "yyyy-mm-dd") & ".pdf"
.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Ajanlat, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=False
End With
End Sub
Kati