Soru Farklı klasördeki kapalı kitaptan veri almak

[Believing]

Sayın Uzman arkadaşlar,

Eskiden aşağıdaki alıntı kod yardımı ile aynı klasördeki kapalı çalışma kitabından veri alıyordum.
Maalesef çalışma kitaplarını farklı klasörlere almak zorunda kalındı.
Kapalı kitabın yolu "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx" şeklindedir.
Yeni oluşan duruma göre kapalı kitaptan verileri alabilmek için aşağıdaki kodu nasıl revize etmeliyim?

Saygılarımla,

Sub Database_Personel_Verilerini_Al()
Application.DisplayAlerts = False
Application.Calculation = xlCalculationManual

On Error Resume Next
    Dim Con As Object, rs As Object
    Dim Dosya As String
    Dosya = ThisWorkbook.Path & "\Database_PERSONEL_LİSTESİ.xlsx"
    Set Con = CreateObject("adodb.connection")
    Set rs = CreateObject("adodb.recordset")
    With Sayfa1
        .Range("A3:CH2999").ClearContents
        Con.Open "provider=microsoft.ACE.oledb.12.0;data source=" & Dosya & _
        ";extended properties=""Excel 12.0;hdr=no"""
        Sorgu = "Select [F1],[F2] & "" "" & [F3],[F9],[F13],[F16],[F20] FROM [Sheet$A3:CH2999]"
        rs.Open Sorgu, Con, 1, 1
        .Range("A3").CopyFromRecordset rs
        rs.Close: Con.Close
        '.Columns("A:G").EntireColumn.AutoFit
    End With
    Set Sorgu = Empty
    Sayfa1.Select
    Set rs = Nothing: Set Con = Nothing
    Dosya = vbNullString
    Sheets("CONTROL_PANEL").Select
    Range("B1").Select
Application.Calculation = xlCalculationAutomatic
Application.ScreenUpdating = True
End Sub

 

[Orion1]

Kapalı dosya ile dosyanızı ayni klasör içine koyarsanız sorun çözülür.
Dosyanazı kısayol olarak istediğiniz yere alarak oradan çalıştırabilirsiniz.

 

[Korhan Ayhan]

Şu bölümü revize etmelisiniz.

Dosya = ThisWorkbook.Path & "\Database_PERSONEL_LİSTESİ.xlsx"

Olması gereken,

Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx"

 

[Believing]

Merhaba Korhan bey,

Maaşallah hızır a.v. gibisiniz, ne zaman sıkıntıya düşmüşsem hemen yetişiyorsunuz. ALLAH size sıkıntı yüzü göstermesin, işlerinizi rastgetirsin.
Dosya = "C:\Users\Believing\Desktop\YENI PROGRAM\MAIN_CONTROL\Database_PERSONEL_LİSTESİ.xlsx"
Şekliyle veri almayı sağladım.
Listenin tamamının KVKK sebebiyle görünmemesi gereklidir. Bu sebeple ekteki çalışmanın ANA_SAYFA'nın "H2" hücresine veri doğrulama ekledim.
"H2" den seçim yapılınca "I3:I" aralığındaki verileri ait bilgileri filtre ederek almasını nasıl sağlayabilirim?

Saygılarımla,