texbox de yazan değere göre dosya yolu bulma

[tukayf]

comboboxla texboxa dosya yolu getiriyorum butona tıkladığımda texboxda yazan dosyanın otomatik açılmasını istiyorum.

örnek:C:\Users\ali\Desktop\iller\aydın\söke

texboxda aydın\söke getirebilyorum ama dosyayı açtıramıyorum.

yardımlar için teşekkürler

 

[ÖmerFaruk]

Açılacak dosyanın adı Söke ve bulunduğu alt klasör Aydın mı?

Eğer böyleyse

Sub DosyaAç()
    AltKlasor = Left(TextBox1.Value, InStr(1, TextBox1.Value, "\"))
    DosyaAdı = Replace(TextBox1.Value, AltKlasor & "\", "")
    Uzantı = ".xlsx"
    Yol = "C:\Users\ali\Desktop\iller\"
    Workbooks.Open Yol & DosyaAdı & Uzantı
End Sub

 

[tukayf]

yanıt için teşekkürler
acsess için sormuştum yukarıda belirtmedik ama

 

[Haluk]

Belki şöyle olabilir....

Sub Test()
    Dim objAccess As Object
    Set objAccess = CreateObject("Access.Application")
    
    mdbFile = "......\....\falanfilan.mdb"    '>>>> Tam dosya yolunu ComboBox/TextBox... neredeyse oradan alıp
                                              '     degiskene atayın.
    
    objAccess.OpenCurrentDatabase filePath:=mdbFile, Exclusive:=False, bstrpassword:=""
    objAccess.Visible = True
    objAccess.UserControl = True
End Sub

.

 

[tukayf]

teşekkürler hocam