Moi Moi ihr lieben -
ich hob folgendes anliegen:
Ich versuche einen Range.Bereich als pdf abzusichern und möchte nun keinen pfad angeben sondern die file automatisch mit datum & uhrzeit
im überordner absichern - egal an welchem rechner und wo der ordner liegt
Kann das überhaupt funktionieren?
Sub SaveActiveSheetsAsPDF()
'Create and assign variables
Dim saveLocation As String
saveLocation = "C:\Users\marks\OneDrive\Documents\myPDFFile.pdf"
'Save Active Sheet(s) as PDF
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, _
Filename:=saveLocation
End Sub
|