Forum - VBA ΕΞΑΓΩΓΗ ΣΕ PDF VBA

Forum (https://www.ms-office.gr/forum/)

- Excel - Ερωτήσεις / Απαντήσεις (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/)

- - [VBA] ΕΞΑΓΩΓΗ ΣΕ PDF VBA (https://www.ms-office.gr/forum/excel-erotiseis-apantiseis/5969-eksagogh-se-pdf-visual-basic-applications.html)

ΕΞΑΓΩΓΗ ΣΕ PDF VBA

Καλημέρα, χρησιμοποιώ αυτό τον κώδικα(του Γιώργου) για να εξάγω το φύλλο excel σε PDF.

Private Sub CommandButton1_Click()

Dim rng As Range, sPath As String
On Error GoTo errHandler
Set rng = Range("A1:G52")

sPath = ThisWorkbook.Path & "\Sheet_" & Format(Now(), "ddmmyyyy\_hhmmss")

rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="" & sPath, _
Quality:=xlQualityStandard, IncludeDocProperties:=True, _
IgnorePrintAreas:=False, OpenAfterPublish:=True
Exit Sub
errHandler:
MsgBox Err.Description, vbCritical, "Error #" & Err.Number
End Sub

Πως θα μπορούσα να εξάγω το αρχείο με όνομα που θα παίρνει από κάποιο κελί αντι το "sheet";

Καλημέρα

Σάκη, δοκίμασε τον κώδικα:

Κώδικας:

Private Sub CommandButton1_Click()

    Dim rng As Range, sPath As String, sName As String

    On Error GoTo errHandler

    Set rng = Range("A1:G52")

    sName = Range("k1") '<- Το κελί k1 περιέχει το όνομα (Προσαρμογή)

    
 

    sPath = ThisWorkbook.Path & "\" & sName & "_" & Format(Now(), "ddmmyyyy\_hhmmss")
 

    rng.ExportAsFixedFormat Type:=xlTypePDF, Filename:="" & sPath, _

                            Quality:=xlQualityStandard, IncludeDocProperties:=True, _

                            IgnorePrintAreas:=False, OpenAfterPublish:=True

    Exit Sub

errHandler:

    MsgBox Err.Description, vbCritical, "Error #" & Err.Number

End Sub

Άψογα, ευχαριστώ Γιώργο.