Excel sayfasını pdf olarak kaydedilmesi

[metinak]

Arkadaşlar,

aşağıdaki kod ile excel sayfasını pdf olarak kaydediyor. ancak, excel dosyası hangi klasörde ise oraya kayıt yapıyor. Bunun yerine kendi belirlediğim bir klasöre nasıl kayıt yaptırabilirim.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
ThisWorkbook.Path & "\" & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[Orion1]

Kırmızı ile yazdığım yer.

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[B][COLOR="Red"]"C:\Evren\"[/COLOR][/B] & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[Tevfik_Kursun]

Merhaba Arkadaş,

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
[COLOR="Red"]ThisWorkbook.Path & "\"[/COLOR] & dosya_adı, Quality:=xlQualityStandard, _
IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

Kodun içindeki kırmızı yazıyı

"C:\....\"

şeklinde yazabilirsiniz
İyi çalışmalar
Orion1 hocam yazmış, benimki alternatif olsun. Kusuruma bakma lütfen Orion1 hocam
Saygılarımla

 

[Orion1]

Merhaba Arkadaş,

Kodun içindeki kırmızı yazıyı

"C:\....\"

şeklinde yazabilirsiniz
İyi çalışmalar
Orion1 hocam yazmış, benimki alternatif olsun. Kusuruma bakma lütfen Orion1 hocam
Saygılarımla

Estafurullah.

 

[metinak]

Teşekkür ederim. Arkadaşlar.