beste helpers,
heb een probleempje als ik een werkblad wil opslaan in PDF
als ik de pdf de naam wil geven van de waarde uit cel O1 bv Jan Janssen
dan wordt dit weggeschreven als Jan%20Janssen
weet iemand hoe die spatie (wil geen koppelteken) wel netjes kan krijgen?
Don
heb een probleempje als ik een werkblad wil opslaan in PDF
als ik de pdf de naam wil geven van de waarde uit cel O1 bv Jan Janssen
dan wordt dit weggeschreven als Jan%20Janssen
weet iemand hoe die spatie (wil geen koppelteken) wel netjes kan krijgen?
Don
Code:
Private Sub CommandButton3_Click()
Application.ScreenUpdating = False
'-- Opslaan order als PDF
bestandsnaam = "Rooster" & Range("o1").Value ' In deze cel "o1" staat dus die naam met 1 of meer spaties
bestandsnaam1 = Range("s2").Value ' = een adres: d:/amsterdam/1001/
If Dir(bestandsnaam1, vbDirectory) = vbNullString Then MkDir bestandsnaam1
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
bestandsnaam1 & bestandsnaam & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=False, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "Het roosters van" & vbNewLine & Range("o1").Value & " is ook opgeslagen als PDF in de map " & vbNewLine & bestandsnaam1
Application.ScreenUpdating = True
Dim OutLookApp As Object
Dim OutLookMailItem As Object
Dim myAttachments As Object
Set OutLookApp = CreateObject("Outlook.application")
Set OutLookMailItem = OutLookApp.CreateItem(0)
Set myAttachments = OutLookMailItem.Attachments
With OutLookMailItem
.To = Range("s1")
.Subject = "Rooster 1001"
.Body = "Beste " & Range("o1") & " in de bijlage je roulering op naam." & vbNewLine & "Met vriendelijke groet," & vbNewLine & "VC"
myAttachments.Add bestandsnaam1 & bestandsnaam & ".pdf"
'.send
.Display
End With
Set OutLookMailItem = Nothing
Set OutLookApp = Nothing
End Sub
Laatst bewerkt: