Soru PDF KAYDETME MAKROSUNDA DOSYA İSMİ VE HEDEF SORGULAMA

[uurknkc]

Merhaba,

Elimde hazırlanmış bir pdf kaydetme makrosu var ancak ben bu makroyu çalıştırdığımda kaydedilecek dosya için filedialog sayfasının açılarak dosyanın nereye kaydedileceğinin ve isminin yazılabileceği hale gelmesini istiyorum.

Hedef klasörü makro içinde kaydederek her zaman aynı hedefe kaydetmesini sadece isminin ne olacağını sorması da olabilir.

Hatta yapılabilirse belirli bir sıralamaya uygun olacak şekilde örneğin önceki dosyada kaydedilen pdf dosyasının ismi 001.pdf ise bir sonrakini 002.pdf olarak otomatik kaydetmesi mükemmel olur.
Dosyayı ekte gönderiyorum. Şimdiden yardımcı olan arkadaşlara teşekkür ederim.

 

[uurknkc]

Kitap1.xlsm - 14 KB

 

[halit3]

Bu kodu bir dene

Sub pdfaktar()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

klasor = ThisWorkbook.Path & "\pdf dosya"
If fL.FolderExists(klasor) = False Then
MkDir klasor
End If

Say = fL.getfolder(klasor).Files.Count + 1
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=klasor & "\" & Format(Say, "000") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False

MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub

 

[uurknkc]

Çok teşekkür ederim istediğim gibi oldu. Sadece Bazı değişiklikler yapmam gerek üzerinde. Emeğinize sağlık

 

[akmlyx]

Arkadaşlar, yukarıdaki makroyu ekledim çok güzel çalışıyor ama oluşturulan PDF dosyası Bilgisayarımda nereye kaydediliyor bulamıyorum acil yardımcı olabilir misiniz? Bir diğer husus da bu makroya, oluşturulan PDF dosyasının masa üstündeki "Yeni Klasör"'ün içine kaydetmesi için nasıl bir kod eklenebilir? Yardımınız için şimdiden çok teşekkür ederim.

 

[halit3]

Arkadaşlar, yukarıdaki makroyu ekledim çok güzel çalışıyor ama oluşturulan PDF dosyası Bilgisayarımda nereye kaydediliyor bulamıyorum acil yardımcı olabilir misiniz? Bir diğer husus da bu makroya, oluşturulan PDF dosyasının masa üstündeki "Yeni Klasör"'ün içine kaydetmesi için nasıl bir kod eklenebilir? Yardımınız için şimdiden çok teşekkür ederim.

Kod:

Sub pdfaktar()

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Dim fL As Object
Set fL = CreateObject("Scripting.FileSystemObject")

klasor = CreateObject("wscript.Shell").SpecialFolders.Item("Desktop") & "\Yeni klasör"

Say = fL.getfolder(klasor).Files.Count + 1
Sheets("Sayfa1").ExportAsFixedFormat Type:=xlTypePDF, Filename:=klasor & "\" & Format(Say, "000") & ".pdf", _
Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=False
MsgBox "İşlem Tamam", vbInformation, " U Y A R I "
End Sub