Dim i As Long
Dim klasor, bak1, bak2, datakontrol,datakontrol2
Dim olusturulacak_klasor As String, dataklasoru As String, dosya_adı As String
    Set klasor = CreateObject("Scripting.FileSystemObject")
        dataklasoru = ThisWorkbook.Path & "\DENEME\"
        datakontrol2 = klasor.FolderExists(dataklasoru)
       
            If datakontrol2 <> True Then
                klasor.CreateFolder dataklasoru
            End If
           
   
        olusturulacak_klasor = dataklasoru & Rapor.Cells(1, 4)
        bak1 = klasor.FolderExists(olusturulacak_klasor)
               
        dosya_adı = Rapor.Cells(1, 2)
            If bak1 <> True Then
                klasor.CreateFolder olusturulacak_klasor
                Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=olusturulacak_klasor & dosya_adı
            Else
                Worksheets("Rapor").ExportAsFixedFormat xlTypePDF, Filename:=olusturulacak_klasor & dosya_adı
            End If

Yukarıdaki kod
Önce; çalışma sayfamın bulunduğu yere DENEME adında bir klasör oluşturuyor.
Sonra; Oluşturulan bu klasörün içine "oluşturulacak_klasor" diye tanımladığım bir alt klasör daha oluşturuyor.
Buraya kadar sıkıntı yok.
Son olarak oluştruduğum alt klasörün içine pdf oluşturmak istiyorum.
Fakat omuyor . Bir Bakabilirseniz memnun olurum.