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

Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
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

Destek Ekibi
Destek Ekibi
Katılım
22 Ekim 2017
Mesajlar
4,616
Excel Vers. ve Dili
Microsoft 365 Tr-64
Açılacak dosyanın adı Söke ve bulunduğu alt klasör Aydın mı?

Eğer böyleyse

C#:
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
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
yanıt için teşekkürler
acsess için sormuştum yukarıda belirtmedik ama
 

Haluk

𐱅𐰇𐰼𐰚
Katılım
7 Temmuz 2004
Mesajlar
12,271
Excel Vers. ve Dili
64 Bit 2010 - İngilizce
+
Google Sheets
+
JScript
Belki şöyle olabilir....

C++:
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
.
 
Katılım
9 Eylül 2010
Mesajlar
855
Excel Vers. ve Dili
2016&2019&2021 TR
teşekkürler hocam
 
Üst