Dinamik adres tanımlama

Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
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.
 

Ekli dosyalar

Ömer

Moderatör
Yönetici
Katılım
18 Ağustos 2007
Mesajlar
22,184
Excel Vers. ve Dili
Microsoft 365 Tr
Ofis 2016 Tr
Merhaba,

Tüm bilgisayarlarda Masa üstüne yyy.pdf olarak kaydeder.
Kod:
 ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        CreateObject("WScript.Shell").SpecialFolders("Desktop") & "/yyy.pdf", Quality:=xlQualityStandard, _
        IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=True
 
Katılım
30 Haziran 2022
Mesajlar
48
Excel Vers. ve Dili
Excel 2016
Altın Üyelik Bitiş Tarihi
28-07-2023
Teşekkürler . Elinize sağlık.
 
Üst