Oturum açan kullanıcının Belgelerim klasörü

[hsayar]

ThisWorkbook.Path der gibi belgelerim klasörü denileneceğini biliyorum ama nasıl?
Bilgisayarı İster ali kullıcısı açsın isterse veli
oturumu açan kullanıcıın belgelerim klasörüne dirak yaıt nasıl yaparım.
yani

strAd = ThisWorkbook.Path & "\" & ActiveSheet.Name & "-" & Format(Now, "dd-mm-yy h-mm-ss") & ".doc"

yerine

strAd = Belgelerim & "\" & ActiveSheet.Name & "-" & Format(Now, "dd-mm-yy h-mm-ss") & ".doc"

nasıl denir

 

[Haluk]

MsgBox CreateObject("WScript.Shell").SpecialFolders("MyDocuments")

 

[hsayar]

teşekkürler hocam

 

[hsayar]

peki hocam oturum açan kulanıcının addins kalsörüne direk erişim mümkünmüdür?

 

[Haluk]

MsgBox Environ("appdata") & Application.PathSeparator & "Microsoft" & Application.PathSeparator & "AddIns"

 

[hsayar]

teşekkürler hocam

 

[ASMET67]

Vermiş olduğunuz kodlar türkçe işletim sistemi içinde aynımıdır.
işletim sistemine göre değişiklik gösterirmi?

Teşekkürler.