Kod yardımı

[Mehmet Sait]

Aşağıda ki kodlarda Ay adını otomatik alıyor ama, ay adına Performans Raporları diye eklemek için nereye yazmam gerek ?

Set nesne = CreateObject("Scripting.FileSystemObject")
masaustuyolu = CreateObject("Wscript.Shell").SpecialFolders("Desktop")
AyAdi = Format(Date, "mmmm")
klasoradi = Format(Date, "dd.mm.yyyy") & " " & [AR4]
dosyaadi = [AR4] 
klasorara = nesne.FolderExists(masaustuyolu & "\" & AyAdi)
If klasorara = False Then nesne.CreateFolder masaustuyolu & "\" & AyAdi

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        masaustuyolu & "\" & AyAdi & "\" & dosyaadi & ".pdf" _
        , Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas _
        :=False, OpenAfterPublish:=False

Teşekkür ederim.

 

[Necdet]

Merhaba,

AyAdi = Format(Date, "mmmm")

Satırını

AyAdi = Format(Date, "mmmm") & " Performans Raporları" olarak değiştirin.

Sanırım bunu istiyorsunuz

 

[Mehmet Sait]

Merhaba,

AyAdi = Format(Date, "mmmm")

Satırını

AyAdi = Format(Date, "mmmm") & " Performans Raporları" olarak değiştirin.

Sanırım bunu istiyorsunuz

İstediğim gibi oldu. Teşekkür ederim.