comboboxda d sürücüsünde bulunan dosyayı nasıl açarım

[clymax]

merhaba arkadaşlar benim sorunum combobox da d sürücünde bulunan bütçe klasörüne ulaşmak isityorum ulaştıktan sonrada butona tıkladığımda seçmiş oladuğum dosyanın açılmasını istiyorum formda arattım bir tane buldum fakat yeteri kadar yardımcı olmadı şimdiden teşşekürler.

 

[Orion1]

Aşağıdaki kodları Bir CommandButtona atayıp kullanabilirsiniz.

If ComboBox1.Value = "" Then Exit Sub
If Dir("C:\Bütçe\" & ComboBox1.Value) = "" Then
    MsgBox "C:\Bütçe Klasöründe [ " & ComboBox1.Value & " ] İsminde Bir dosya yok..!!"
    Else
    Workbooks.Open ("C:\Bütçe\" & ComboBox1.Value)
End If

 

[clymax]

öncelikle teşekür ederim sayın orion

verdiğiniz kodu butona atadım combobox da istediğim dosya görünüyor butonu tıkladığımda dosyanın açılması gerekirken böyle bir dosya bulunamadı diyor yazdığım kodu yolluyorum



Private Sub CommandButton1_Click()
If ComboBox1.Value = "" Then Exit Sub
If Dir("C:\Bütçe\" & ComboBox1.Value) = "" Then
MsgBox "d:\Bütçe Klasöründe [ " & ComboBox1.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\Bütçeler\" & ComboBox1.Value)
End If

End Sub

Private Sub UserForm_Initialize()
Dim ds, dc, f, s
Set ds = CreateObject("Scripting.FileSystemObject")
Set f = ds.GetFolder("d:\bütçeler")
Set dc = f.Files
For Each dosya In dc
ComboBox1.AddItem dosya.Name
Next
End Sub

 

[Orion1]

Aşağıdaki kodu kullanınız.

If ComboBox1.Value = "" Then Exit Sub
If Dir("d:\bütçeler\" & ComboBox1.Value) = "" Then
MsgBox "d:\bütçeler Klasöründe [ " & ComboBox1.Value & " ] İsminde Bir dosya yok..!!"
Else
Workbooks.Open ("d:\bütçeler\" & ComboBox1.Value)
End If

 

[clymax]

çok teşekkür ederim işime yaradı

 

[Orion1]

çok teşekkür ederim işime yaradı

Rica ederim.
İyi çalışmalar.