Win10 Office 2016 da nasıl bir ek olmalı?

[Tevfik_Kursun]

Günaydın Arkadaşlar,
Win7 de Office 2010 Excel'de çalışırken kod içindeki makro bulunduğu klasörün içindeki txt ile biten dosyaları gösteriyor.

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

Aynı makro, Win10 da Office 2016 Excel'de Belgeler klasörünü açıyor. Nasıl bir ek gerekiyor ki bulunduğu klasörün içindeki txt ile biten dosyaları göstersin?
Saygılarımla

 

[Haluk]

Kodu yazdığınız dosyayı ilk önce bir yere kaydedin, daha sonra çalıştırın....

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

.

 

[Tevfik_Kursun]

Teşekkür ederim Haluk hocam,
İyi çalışmalar
Saygılarımla

 

[Haluk]

Tevfik Bey, kendinize göre bazı özelleştirmeler yapabileceğiniz versiyon da aşağıdadır...

Sub Test2()
    'Haluk - sa4truss@gmail.com
    '31/08/2019
    '
    Dim DosyaAcPenceresi As FileDialog, Dosya As String
    
    Set DosyaAcPenceresi = Application.FileDialog(msoFileDialogOpen)
    
    With DosyaAcPenceresi
        .ButtonName = "DOSYA AÇALIM, BAKALIM :)"
        .Title = "DOSYA AÇMA PENCERESİ....!"
        .Filters.Clear
        .Filters.Add "Bu işle ilgili Metin Dosyaları", "*.txt", 1
        .InitialFileName = ThisWorkbook.Path & Application.PathSeparator
    End With
    
    If DosyaAcPenceresi.Show = -1 Then
        Dosya = DosyaAcPenceresi.SelectedItems(1)
        MsgBox Dosya & " dosyası açılacak... !"
        DosyaAcPenceresi.Execute
    End If
End Sub

.

 

[Tevfik_Kursun]

İlginize çok teşekkür ederim Haluk hocam,
saygılarımla