Hallo,
Ik ben een groentje met macro's en VBA, maar het is me gelukt een macro te maken om van meerdere werkbladen een PDF te maken. Daar heb ik ook een knop voor in mijn werkblad toegevoegd, zodat de macro vanaf die knop start.
De enige uitbreiding die nog aan mijn macro ik wil toevoegen, is dat de PDF automatisch wordt opgeslagen. Tot op heden is mij dat niet gelukt, ook niet met de hulp van andere artikelen.
Bijzonderheden:
De PDF moet een naam krijgen die wordt samengesteld uit cel B2 en B3 van het blad waar de macro knop zit (tabblad Dataselectie)
De PDF moet worden opgeslagen op een locatie op de server: \\SERVER01\Shared Folders\Data\Gemeente Den Haag\Rapportages\Jaarrapportage 2015 - 2016
Dit is de code die er nu staat voor de huidige macro:
Private Sub PrintGraphs()
Dim sPath As String, sFilename As String
Dim fso As New FileSystemObject
sPath = Range("PDFpad").Value
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(sPath) Then
Call MsgBox("Pad bestaat niet!", vbOKOnly)
Exit Sub
End If
sFilename = sPath & Range("LedenTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
GLeden.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("StagairesTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gStagaires.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("VerhoudingTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gVerhouding.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("JTTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gJT.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("JLTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gJL.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
End Sub
Hoop dat iemand mij kan helpen.
Alvast bedankt.
Ik ben een groentje met macro's en VBA, maar het is me gelukt een macro te maken om van meerdere werkbladen een PDF te maken. Daar heb ik ook een knop voor in mijn werkblad toegevoegd, zodat de macro vanaf die knop start.
De enige uitbreiding die nog aan mijn macro ik wil toevoegen, is dat de PDF automatisch wordt opgeslagen. Tot op heden is mij dat niet gelukt, ook niet met de hulp van andere artikelen.
Bijzonderheden:
De PDF moet een naam krijgen die wordt samengesteld uit cel B2 en B3 van het blad waar de macro knop zit (tabblad Dataselectie)
De PDF moet worden opgeslagen op een locatie op de server: \\SERVER01\Shared Folders\Data\Gemeente Den Haag\Rapportages\Jaarrapportage 2015 - 2016
Dit is de code die er nu staat voor de huidige macro:
Private Sub PrintGraphs()
Dim sPath As String, sFilename As String
Dim fso As New FileSystemObject
sPath = Range("PDFpad").Value
Set fso = CreateObject("Scripting.FileSystemObject")
If Not fso.FolderExists(sPath) Then
Call MsgBox("Pad bestaat niet!", vbOKOnly)
Exit Sub
End If
sFilename = sPath & Range("LedenTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
GLeden.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("StagairesTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gStagaires.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("VerhoudingTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gVerhouding.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("JTTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gJT.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
sFilename = sPath & Range("JLTitel").Value & ".pdf"
Application.StatusBar = "Creating : " & sFilename
gJL.ExportAsFixedFormat Type:=xlTypePDF, Filename:=sFilename, OpenAfterPublish:=False
End Sub
Hoop dat iemand mij kan helpen.
Alvast bedankt.