Dosya adını excelde bir hücreye yazdırmak

[dedenet]

Excelde herhangi bir hücreye; çalıştığım çalışma kitabının adresini aşağıdaki gibi yazdırmak istiyorum.
Bu konuda yardımcı olursanız sevinirim.

'G:\Belgelerim\Dosyalarım\Sınavlar\[Sınav Sonuçları.xlsx]

 

[çıtır]

Aşağıdaki kodla dosya yolunu yazdırabilirsiniz.

=HÜCRE("dosyaadı";A1)

=PARÇAAL(HÜCRE("dosyaadı";A1);1;BUL("]";HÜCRE("dosyaadı";A1)))

 

[antonio]

Aşağıda ki kodlarda örnek olarak belirtilen "E4" hücresini, dosya adını yazdırmak istediğiniz hücre olarak varsayarak:

Sub dosya_adi()
Sayfa1.Range("E4").Value = ThisWorkbook.FullName
End Sub

 

[dedenet]

Aşağıdaki kodla dosya yolunu yazdırabilirsiniz.

=HÜCRE("dosyaadı";A1)

=PARÇAAL(HÜCRE("dosyaadı";A1);1;BUL("]";HÜCRE("dosyaadı";A1)))

Teşekkür ederim.

 

[myefsane]

Aşağıdaki kodla dosya yolunu yazdırabilirsiniz.

=HÜCRE("dosyaadı";A1)

=PARÇAAL(HÜCRE("dosyaadı";A1);1;BUL("]";HÜCRE("dosyaadı";A1)))

sadece dosya adı yazan var mıdır?

 

[Orion1]

Şöyle olur.

Sayfa1.Range("E4").Value = ThisWorkbook.Name