pdf yolu gösterme

[bozacioglu]

Öncelikler iyi çalışmalar. Herkese kolay gelsin.
Aşağıdaki makro
önce Çalışma Kitabının Bulunduğu yere DENEME adında bir klasör oluşturuyor.
Sonra DENEME klasörünün içine bir alt klasör oluşturuyor.
Buraya kadar bir sıkıntı yok.
Son oluşturulan alt klasörün içine pdf dosyası oluşturmak istiyorum. fakat dosyayı alt klasörün yanına oluşturuyor.
PDF yi oluşturup; buradaki alt klasörün içine kaydedecek yolu gösteren kodu yazma konusunda yardımcı olursanız. Çok memnunun olurum

Dim i As Long
Dim klasor, bak, anaklasor_kontrol, altklasor_kontrol
Dim ana_klasor As String, pdfdosya_adı As String, dosya_yolu As String
Set klasor = CreateObject("Scripting.FileSystemObject")
ana_klasor = ThisWorkbook.Path & "\DENEME\"
anaklasor_kontrol = klasor.FolderExists(ana_klasor)

If anaklasor_kontrol <> True Then
klasor.CreateFolder ana_klasor
End If

Rapor.Cells(1, 2) = "Denemepdf"
Rapor.Cells(1, 3) = "Deneme"
Rapor.Cells(1, 4) = "ALtKlasörü"
Rapor.Cells(1, 5) = "Bir"

alt_klasor = ana_klasor & Rapor.Cells(1, 3) & "-" & Rapor.Cells(1, 4) & "-" & Rapor.Cells(1, 5)
altklasor_kontrol = klasor.FolderExists(alt_klasor)

If altklasor_kontrol <> True Then
klasor.CreateFolder alt_klasor

pdfdosya_adı = Rapor.Cells(1, 2)
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & alt_klasor & dosya_adı
Else
pdfdosya_adı = Rapor.Cells(1, 2)
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & alt_klasor & dosya_adı
End If

 

[bozacioglu]

son kısımdaki dosya_adı; pdfdosya_adı
şeklinde olacak. Yanlış yazmışım

 

[bozacioglu]

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=ThisWorkbook.Path & "\DENEME\" & pdfdosya_adı
kodu DENEME nin içinde alt_klasor ün yanına atıyor.
alt_klasor (değişkebir klasör) ü
ThisWorkbook.Path & "\DENEME\"
yoluna ekleyemiyorum.

 

[Korhan Ayhan]

Böyle deneyiniz.

Filename:= alt_klasor & "\" & pdfdosya_adı

 

[dEdE]

Kodunuzun altklasor_kontrol = klasor.FolderExists(alt_klasor) satırından sonrasını aşağıdaki ile değiştirerek dener misiniz?

If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor
pdfdosya_adı = Sheets("Rapor").Cells(1, 2)
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf"

Ben yazarken Üstat cevaplamış bile...

 

[dEdE]

İki kişi emek vermiş cevap yazmış.
Olumlu ya da olumsuz dönüş yapan yok.
Acaba yanlış bir şey mi yazdık?

 

[bozacioglu]

Cevaplarınızla sorunum çözüldü. Alakanıza çok Teşekkür Ederim.

 

[bozacioglu]

Kodunuzun altklasor_kontrol = klasor.FolderExists(alt_klasor) satırından sonrasını aşağıdaki ile değiştirerek dener misiniz?

If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor
pdfdosya_adı = Sheets("Rapor").Cells(1, 2)
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf"

Ben yazarken Üstat cevaplamış bile...

Kodunuzun altklasor_kontrol = klasor.FolderExists(alt_klasor) satırından sonrasını aşağıdaki ile değiştirerek dener misiniz?

If altklasor_kontrol <> True Then klasor.CreateFolder alt_klasor
pdfdosya_adı = Sheets("Rapor").Cells(1, 2)
Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf"

Ben yazarken Üstat cevaplamış bile...

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf"
Cevabınızın sorunumu çözdüğünü belirtmiş ve teşekkür etmiştim. Şimdi bir konuda daha yardımınızı rica ediyorum.
bu kodun devamına:
oluşturulan pdf i açması için nasıl bir kod yazmalyım.
Alakanız için şimdiden teşekkür ederim.

 

[Korhan Ayhan]

Deneyiniz.

Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=alt_klasor & "\" & pdfdosya_adı & ".pdf", OpenAfterPublish:=True

 

[bozacioglu]

Deneyiniz.

İlginiz ve Hızlı çözümünüz için çok teşekkür ederim.