Vba Masaüstü Yolu

[bunyaming]

Merhaba

yaptığım uygulamada isim vermeden(bir çok bilgisayarda kullanılacağı için) sabit olarak masaüstüne aşağıda ki kod ile kaydetmeye çalışıyorum fakat direkt olarak belgelerde ortaya çıkıyor masaüstüne kaydetmiyor

yol = Environ("USERPROFILE") & Application.PathSeparator & "\Desktop"

Nasıl düzeltmeliyim? Yardımcı olursanız sevinirim

teşekkürler

 

[Korhan Ayhan]

Deneyiniz.

Option Explicit

Sub Desktop_Path()
    MsgBox CreateObject("WScript.Shell").SpecialFolders(4)
End Sub

 

[bunyaming]

Deneyiniz.

Option Explicit

Sub Desktop_Path()
    MsgBox CreateObject("WScript.Shell").SpecialFolders(4)
End Sub

teşekkürler Hocam
fakat yine masaüstüne değil belgelere gitti

 

[Korhan Ayhan]

İlginç..

 

[bunyaming]

İlginç..

parantez içinde ki 4 ü "desktop" olarak değiştirdim
bu sefer hiç bir yere kaydetmedi

 

[Emir Hüseyin Çoban]

.

yol = CreateObject("WScript.Shell").specialfolders("Desktop")
msgbox yol

.