Soru Dosya Yolu Oluşturma

[serhatyaman43]

Arkadaşlar merhaba.
Bir dosyada pdf kayıt alacağım ancak bunu dosya içerisindeki bir sayfanın bir hücresindeki değere göre klasör oluşturup dosyayı da o klasöre bir hücredeki değer ismiyle kaydetmek istiyorum. Bunu nasıl yapabilirim?
Yardımcı olabileceklere şimdiden teşekkür ediyorum.

 

[serhatyaman43]

Sorun halledilmiştir. Rahatsızlık için kusura bakmayın.

 

[TURKOLOG]

Kodu bizimle paylaşma imkanınız var mıdır

 

[serhatyaman43]

Tabi ki hocam.

pth = "D:\sınavlar\sınavlisteleri\" & Sheets("Sınıf Listeleri").Range("B5").Value
With CreateObject("Scripting.FileSystemObject")
If Not .folderexists(pth) Then .CreateFolder pth
End With
ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=pth & "\" & Cells(1, 11).Value & " İmza Listesi" & ".pdf"
Sheets("Sınav Listeleri").Select
Rows.Hidden = False

Bu şekilde çözdüm problemi.

 

[TURKOLOG]

Elinize sağlık hocam