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.
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.
Son düzenleme: