Beste forumleden,
Ik ben nog maar een paar dagen bezig met VBA in Excel en heb er totaal geen ervaring in.
Ook niet in forums zoals deze, dus excuses als ik een en ander niet goed doe.
Mijn vraag: ik heb een Excel sheet met een knop om deze op te slaan in PDF.
De naam van de sheet moet worden overgenomen en je moet de keuze krijgen waar je de pdf wilt opslaan.
Via diverse forums en internetsites heb ik een code gevonden, die dit uitvoert.
Alleen, als je in het scherm waar je de keuze kunt maken waar je de pdf wilt opslaan op "annuleren" klikt, dan slaat hij de sheet toch op onder de naam "onwaar" en in de directory waar het Excel bestand zich bevindt.
Kan iemand mij helpen?
Alvast bedankt,
groetjes,
Hier de gebruikte code:
Sub PDFActiveSheet()
Dim wsA As Worksheet
Dim wbA As Workbook
Dim strTime As String
Dim strName As Variant
strName = Range("L3").Value
Dim strPath As String
Dim strFile As String
Dim strPathFile As String
Dim myFile As Variant
On Error GoTo errHandler
Set wbA = ActiveWorkbook
Set wsA = ActiveSheet
strTime = Format(Now(), "dd-mm-yyyy\_hh-mm")
'get active workbook folder, if saved
strPath = wbA.Path
If strPath = "" Then
strPath = Application.DefaultFilePath
End If
strPath = strPath & "\"
'create default name for savng file
strFile = strName & "_" & strTime & ".pdf"
strPathFile = strPath & strFile
'use can enter name and
' select folder for file
myFile = Application.GetSaveAsFilename _
(InitialFileName:=strPathFile, _
FileFilter:="PDF Files (*.pdf), *.pdf", _
Title:="Kies de juiste map en pas eventueel de bestandsnaam aan!")
'export to PDF if a folder was selected
If myFile <> "False" Then
wsA.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=myFile, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
'confirmation message with file info
MsgBox "PDF file is opgeslagen!" _
& vbCrLf _
& myFile
End If
exitHandler:
Exit Sub
errHandler:
MsgBox "PDF file is niet opgeslagen"
Resume exitHandler
End Sub