Hallo,
Ik heb een rapport in Excel staan en wil deze via een macro als PDF opslaan.
Werkt allemaal als een zonnetje met onderstaande code:
Nu wil ik dat de PDF in dezelfde map opgeslagen wordt als waar het desbetreffende Excel bestand staat. Dat gebeurd nu dus niet.
De mapnaam en de locatie van de map is niet altijd hetzelfde.
Iemand enig idee hoe dit op te lossen?
Alvast mijn dank!
Ik heb een rapport in Excel staan en wil deze via een macro als PDF opslaan.
Werkt allemaal als een zonnetje met onderstaande code:
Code:
Sub PDFmaken()
Application.ScreenUpdating = False
For Each ws In ActiveWorkbook.Sheets
If Not ws.Name = "Voorblad" Then
ws.Unprotect
With ws.UsedRange.Interior
.Pattern = xlNone
End With
ws.Protect
End If
Next ws
ActiveWorkbook.ExportAsFixedFormat Type:=xlTypePDF, Filename:=Worksheets("Intern").Range("by289").Value, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
Application.ScreenUpdating = True
End Sub
Nu wil ik dat de PDF in dezelfde map opgeslagen wordt als waar het desbetreffende Excel bestand staat. Dat gebeurd nu dus niet.
De mapnaam en de locatie van de map is niet altijd hetzelfde.
Iemand enig idee hoe dit op te lossen?
Alvast mijn dank!