Dosya yolunu hücre içine yazdırma

[necrofilus]

Merhaba arkadaşlar arama yaptım ancak konuyla ilgili işime yarayan birşey bulamadım. amacım a1 hücresinin içine dosya açıldığında o dosyanın yolunu yazdırmak
mesela excel dosyam masaüstündeyse;

C:\Users\Necrofilus\Desktop

eğer c'nin içindeyse

C:\

yaa her nerdeyse o adresi yazmasını istiyorum ama bunu beceremedim yardımcı olabilecek arkadaşlara şimdiden çok teşekkür ederim..

 

[Emir Hüseyin Çoban]

. . .

Boş modüle

Sub auto_open()
Range("a1") = ThisWorkbook.Path
End Sub

. . .

 

[necrofilus]

çok teşekkür ederim elinize sağlık