Telefonszámunk: 1-472-0679

Kezdőlap Fórumok Excel programozás [Resolved] Nyomógomb létrehozás Hozzászólás: [Resolved] Nyomógomb létrehozás

#6743

delila
Felhasználó

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