belgeleri istenilen klasöre kaydetmek

[spacebar]

değerli üstadlarım, çalışma sayfaları içinde bulunan sayfaları pdf e çevirip bunları bir klasör açıp içine kaydetmek istiyorum. mevcut kodlarımla bunu yapıyorum ancak klasör içine kaydetmiyor. kodlarda nasıl bir revize yapmak gerekiyor. kodlarda bir diğer sorunum da başka bir excel belgesi açık olduğunda makro hata veriyor.yardımcı olursanız sevinirim. teşekkürler. iyi pazarlar dilerim.

Sub pdf_yap()

Call Klasor_Olustur

Dim OutApp As Object
Dim OutMail As Object

Sheets("form1").PageSetup.PrintArea = "$A$1:$G$54"
Sheets("form2").PageSetup.PrintArea = "$A$1:$B$57"
Sheets("form3").PageSetup.PrintArea = "$A$1:$C$30"

yol = "D:\": kls = Sheets("menü").[G1] & " Dosyası"

For shf = 1 To 3: Sheets(shf).ExportAsFixedFormat xlTypePDF, yol & "\" & Sheets(shf).Name & ".pdf": Next
With Application
    .EnableEvents = False: .ScreenUpdating = False
End With
End Sub

Sub Klasor_Olustur()
Dim ds
    yer = "D:\": kls = Sheets("menü").[G1] & " Dosyası"
    
    Set ds = CreateObject("Scripting.FileSystemObject")
    If ds.FolderExists(yer & kls) Then
    Else
        ds.CreateFolder yer & kls
    End If
End Sub

 

[ÖmerBey]

Merhaba,
İlgili yere kırmızı ifadeyi ilave edip deneyiniz...

yol & kls & "\" & Sheets(shf).Name & ".pdf"

 

[spacebar]

Ömer Bey üstad ilginize teşekkür ederim ama olmadı hata veriyor.

 

[spacebar]

Merhaba,
İlgili yere kırmızı ifadeyi ilave edip deneyiniz...

yol & kls & "\" & Sheets(shf).Name & ".pdf"

üstad yanlış yerde uygulamışım düzelttim mükemmel çalışıyor. ellerinize sağlık. yalnız başka bir excel belgesi açık olduğunda neden debug hatası veriyor. tekrar teşekkürler...