Dinamik adres tanımlama

[mkaraoglu25]

Merhaba,
Aşağıdaki kodda x yazan yerde bilgisayarımın adı y yazan yerde ise dosya adı yazmaktadır. Kod çalışmayı PDF ye dönüştürüyor. Ben x yazan yeri Excel dosyasını kime gönderirsem onun bilgisayar adı yani kullanıcısı yazmasını istiyorum. Desteklerinizi beklerim.

 

[Ömer]

Merhaba,

Tüm bilgisayarlarda Masa üstüne yyy.pdf olarak kaydeder.

 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/yyy.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True

 

[mkaraoglu25]

Teşekkürler . Elinize sağlık.