Dosya Aç penceresinde seçilen dosya ismini değişkene aktarabilir miyiz?

[dEdE]

Merhaba,

Bir makro kodunda, Application.Dialogs(xlDialogFindFile).Show komutuyla Dosya Aç penceresini açabiliyoruz.
Sorun: Bu pencerede seçilen dosyayı açmadan, dosya yolunu ve dosya adını bir değişkene aktarabilir miyiz?

Amacım, farklı klasörlerde bulunabilecek bir .txt dosyasının içeriğini açık olan excel dosyasına alabilmek.

Teşekkürler.

 

[Zeki Gürsoy]

Merhaba,

a = Application.GetOpenFilename( _
    "Excel dosyalrı(*.xls),*.xls,word dosyası(*.doc),*.doc")

b = a

MsgBox "Seçilen dosya tam adı :'" & b & "'" & Chr(13) & _
        "Dosya adı : '" & Dir(b) & "'"

 

[dEdE]

Teşekkürler.
Application.Dialogs(xlDialogFindFile).Show ile bir hayli uğraşmıştım. Bunu bilmiyordum.
İyi akşamlar.

 

[Zeki Gürsoy]

Rica ederim, iyi akşamlar.