Kan man skapa ett makro som skapar en pdf fil av excel bladet samt sparar den i onedrive?

 

Hej hej

Koden nedan exporterar det aktivabladet som pdf.

sub writeToPDF()

Dim FPath as String: Fpath = "Här skriver du addressen till din onedrive"
DIm fName as string: Fname = "Härskriver du ditt filnamn"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
Fpath & Fname & ".pdf" _
, Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
:=False, OpenAfterPublish:=False

End sub

Mvh
Christian