Pdf i webbrowsera kaydetme

[addigital]

herkese selamlar

bir konuda yardima ihtiyacim var. aslinda sorum su. olusturdugum PDF dosyasini c klasörüne degilde webbrowerse icindeki bir clouda kaydetmesini istiyorum


Private Sub DispensePDF_Click()

On Error Resume Next

Sheets(Array("Dispense_unit")).Select
Sheets("Dispense_unit").Activate
isim = Sheets("Dispense_unit").Range("F8").Value & ".PDF"
yol = "C:\Users\oezcan\document\Dispense_Unit"

With Sheets("Dispense_unit")
.ExportAsFixedFormat _
Type:=xlTypePDF, _
Filename:=yol & isim, _
Quality:=xlQualityStandard, _
IncludeDocProperties:=True, _
IgnorePrintAreas:=False, _
OpenAfterPublish:=False
Sheets("Dispense_unit").Select
MsgBox "hat schon erledigt", vbInformation


End With

End Sub



bu sekilde bir kodum var. pdf acabiliyorum. dosyaya kaydedebiliyorum.

ancak bu yol kismini webbrowser adresiyle degistirdigimde hata aliyorum. yardimlariniz icin simdiden tesekkür ederim.

 

[addigital]

bu arada cloud yanlis oldu. Yani verdigim URL icine kaydetsin istiyorum.