Excelde bulunduğu klasördeki text dosyalarına bakıp seçme

[Tevfik_Kursun]

Merhaba,

Sub TxtAl()
Dim sat As Long, a As String
Dim Dosya, Dosya_Sistemi

    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")
    If Dosya = False Then
        MsgBox "Dosya seçimi yapmadığınız için işleminiz iptal edilmiştir.", vbExclamation
        Exit Sub
      Else
        Set Dosya_Sistemi = CreateObject("Scripting.FileSystemObject")
        ComboBox1 = Replace(Dosya_Sistemi.GetFileName(Dosya), "." & Dosya_Sistemi.GetExtensionName(Dosya), "")
    End If

       Open Dosya For Input As #1
            Application.ScreenUpdating = False
                
        Sheets("TxtAl").Range("B6:B1500").Select
        sat = 6
                Do While Not EOF(1)
                    Line Input #1, a
                    Cells(sat, 2).Value = a
                    sat = sat + 1
                Loop
        Close #1
End Sub

Bu makro belgeler kitaplığını açarak txt dosyası seçmenizi sağlıyor. Seçtiğiniz dosyadaki dataları B sütununa 6. hücreden itibaren yerleştiriyor.
Çok temiz çalışıyor.
Neresini değiştirirsem excel dosyanın bulunduğu kalsörü açıp dosya seçimi yaptırır, acaba?
Saygılarımla

 

[Orion1]

Kırmızı satırı ilave etttim.

Dim Dosya, Dosya_Sistemi
[B][COLOR="Red"]ChDir (ThisWorkbook.Path)[/COLOR][/B]
    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")

 

[Tevfik_Kursun]

Sayın Orion1 Hocam,
Çok teşekkür ederim.
Saygılarımla

 

[Orion1]

Sayın Orion1 Hocam,
Çok teşekkür ederim.
Saygılarımla

Rica ederim.
İyi çalışmalar.