Kod çalıştığında Excel, bulunduğu klasöre baksın

[Tevfik_Kursun]

Merhaba Arkadaşlar,

Sub Klasora_Bak()
    ChDir (ThisWorkbook.Path)
    isim = ThisWorkbook.Path & "\*.txt"
    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")
End Sub

Kod, çalışan bir makronun parçası. Çalıştırıldığında "Belgelerime" bakarak başlıyor. Bulunduğu klasöre bakarak nasıl başlar?
Saygılarımla

 

[PLİNT]

Merhaba Tevfik hocam
"ChDrive ThisWorkbook.Path" satırını eklemek işe yarayabilir

Sub Klasora_Bak()
ChDrive ThisWorkbook.Path
'ChDir ThisWorkbook.Path
    isim = ThisWorkbook.Path & "\*.txt"
    Dosya = Application.GetOpenFilename(FileFilter:="Txt Dosyaları (*.txt), *.txt", Title:="Lütfen bir dosya seçiniz...")
End Sub

 

[Tevfik_Kursun]

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

 

[PLİNT]

Rica ederim.
Bilmukabil, kolaylıklar dilerim.

 

[Haluk]

Alternatif:

Sub Test()
    Set MyDialog = Application.FileDialog(msoFileDialogOpen)
    MyDialog.initialFilename = ThisWorkbook.Path
    MyDialog.Filters.Add "Text dosyaları", "*.txt"
    If MyDialog.Show = -1 Then MsgBox MyDialog.SelectedItems(1)
End Sub

.

 

[Tevfik_Kursun]

Sayın Haluk Hocam,
Teşekkür ederim.
Saygılarımla