Dosya yolu gösterirken kullanıcı adını otomatik görebilir mi?

[buggsbunny]

Aşağıdaki makromda işlem yaptırırken dosyayı masaüstündeki pdf klasörüne pdf olarak çeviriyor. Bunu yaparken dosya yolundaki kullanıcı adını (aaa) manuel yazdım ama bu başka pclerde de kullanılacak bir makro. Dolayısı ile başka pc lerde kullanıcı adı (aaa) farklı olursa makrodaki dosya yolundaki kullanıcı adının her seferinde değiştirilmesi lazım. bunu pc kendisi görecek şekilde değiştiremez miyiz?

Sheets("Sayfa1").Select

ChDir "C:\Users\aaa\Desktop\PDF"

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

"C:\Users\aaa\Desktop\PDF\Toplam.pdf", Quality:=xlQualityStandard, _

IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:= _

False

 

[hamitcan]

ThisWorkBook.Path & "\PDF"

şeklinde denediniz mi ?

 

[Muzaffer Ali]

Aşağıdaki ile her bilgisayarda masaüstü klasörüne ulaşabilirsiniz.

Environ("UserProfile") & "\Desktop\PDF\Toplam.pdf"

 

[buggsbunny]

Aşağıdaki ile her bilgisayarda masaüstü klasörüne ulaşabilirsiniz.

Environ("UserProfile") & "\Desktop\PDF\Toplam.pdf"

Bu işimi gördü teşekkür ederim