.pdf dosya kaydetme

[anaksimandros]

İyi günler. Aşağıdaki kod bütününde dosyamı sadece belirttiğim alana ve belirttiğim isimle kaydedebildiğim bir butonum var.

Ben bu butona bastığımda dosyayı hangi hedefe kaydedeceğini sormasını veya bu olmuyorsa belirli bir hücredeki ismi, dosya adı kullanarak kayıt yapmasını istiyorum.

Yardımlarınız için teşekkür ederim.

Private Sub CommandButton1_Click()
With ActiveSheet
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="\\si03\ORTAK\insankaynaklari\egitim_gruplari.pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With
End Sub

 

[hamitcan]

Belirli bir hücredeki isim için;

Private Sub CommandButton1_Click()
With ActiveSheet
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="\\si03\ORTAK\insankaynaklari\" & [a1] & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With
End Sub

 

[alprn19]

Çok bir bilgim yok ama filename kısmını input olarak isterseniz kaydedilecek yerin dosya yolunu komple kopyala yapıştır inputa girdirebilirsiniz. Aynı şekilde dosya isminide input olarak istersiniz tahminimce şöyle bir ara kod satırı oluşur.(Denemedim fikir verme amaçlı)
....
.....
yol=inputbox("Hedef klasör yolunu yapıştırınız")
dosyaadi=inputbox("Dosya Adi giriniz")
Filename:=yol & Dosyaadi & ".pdf" , _
.......
.....

 

[anaksimandros]

Belirli bir hücredeki isim için;

Private Sub CommandButton1_Click()
With ActiveSheet
    .ExportAsFixedFormat _
    Type:=xlTypePDF, _
    Filename:="\\si03\ORTAK\insankaynaklari\" & [a1] & ".pdf", _
    Quality:=xlQualityStandard, _
    IncludeDocProperties:=True, _
    IgnorePrintAreas:=False, _
    OpenAfterPublish:=True
End With
End Sub

Üstad teşekkür ederim. (& [a1] & ".pdf",) bu kod parçacığı istediğimi tam anlamıyla karşıladı. Kolay gelsin.