Share Pointe pdf yüklemesi

[FarukFf]

Suan yazdigim kod ile istedigim araligi Pdf sekline getirip bilgisayarda C dosyama kaydedebiliyorum ancak internet üzerinde ortak calisma alanina kaydetmek istiyorum, Bunun icin nasil bir yol incelemeliyim? Ortak calisma alani linkini ekledigimde kod calismamakta.

Sub aktiveSeiteAlsPDFSpeichern()

' Den Dateinamen und den Speicherort festlegen
Dim dateiname As String
Dim pfad As String
dateiname = "Anwesenheit"
pfad = "C:\Arsiv" ' Ändern Sie diesen Pfad nach Ihren Wünschen

' Aktuelles Datum als String formatieren
Dim datumString As String
datumString = Format(Date, "yyyyMMdd") ' Format: JJJJMMTT

' Den Dateinamen mit dem Datum erstellen
Dim dateiname2 As String
dateiname2 = dateiname & "_" & datumString & ".pdf" ' Dateiname und Erweiterung anpassen

' Bereich A1 bis M16 als PDF exportieren
ThisWorkbook.Worksheets("Anwesenheit IT").Range("A1:Q16").ExportAsFixedFormat Type:=xlTypePDF, Filename:=pfad & "\" & dateiname2

' Optional: PDF-Datei in einem neuen Fenster öffnen
' Application.FollowHyperlink pfad & "\" & dateiname2

End Sub