Masaüstü kısayol yapmak

[kontto]

Arkadaşlar, bilgisayarımda D sürücüsünde bir klasör içinde 4-5 tane excel çalışma dosyam var. her seferinde bunlardan açmak istediğim dosyayı ilgili yere girerek değilde masaüstüne bir userform yapmak ve buna tıkladığım zaman açılacak pencerede D sürücüsünde bulunan klasörümün içindeki dosyaların ismi olsun ve ben masaüstüne oluşturulacak formdan istediğimi tıklayarak girebileyim. Yardımınız için şimdiden teşekkür ederim.

 

[bedersu]

sayın kontto,
Userform tek başına masaüstüne konulmaz.Ayrı bir excel kitabına userform koyarsınız.

Private Sub Workbook_Open()

kısmına userform1.show yazarak kitap açıldığında userform'u gösterirsiniz.
Userform üstünde de combobox gibi bir control'e kitap isimlerini çağırarak istediğinizi tıklamak kaydıyla çalışma kitaplarını açabilirsiniz.
Bu şekilde bir deneyin,ben de müsait olunca örnek bir kitap hazırlamaya çalışayım.Combobox kullanımı ile ilgi bir çok örnek sitede mevcut.

 

[kontto]

Umarım vaktiniz olunca örnek bir kitap hazırlayabilirsiniz. Bana bu konuda çok yardımcı olmuş olursunuz.

 

[bedersu]

Sayın kontto,
Ekteki dosyayı inceler misiniz?

 

[vardar07]

Sayın bedersu Aşağıdaki kodlarla (D:\) İçindeki dosyaları görebiliyoruz

Set f = ds.GetFolder("D:\")
Workbooks.Open Filename:="D:\" & ComboBox1.Value

Peki (D:\) İçindeki bir klasörün içini göstermek için ne gibi değişiklik yapmak lazım.

Set f = ds.GetFolder("D:\xxxxx")
Workbooks.Open Filename:="D:\xxxxx" & ComboBox1.Value

olarak değiştirince dosyaları görüyor fakat açmıyor.

 

[bedersu]

Sayın vardar07,
Sorunuzu tam olarak anlayamadım.D sürücüsündeki herhangi bir klasörün içini görmek derken,klasördeki dosya isimlerini Combobox'a atmayı kasdediyorsanız bu örnek dosyada zaten var.Sizin örneğinizde "\" eksik.Sorun ondan kaynaklanıyor olabilir.Şu şekilde düzeltin:

Workbooks.Open Filename:="D:\xxxxx\" & ComboBox1.Value

 

[halit3]

Alternatif olarak farklı bir uygulama örneği

 

[vardar07]

Sayın vardar07,
Sorunuzu tam olarak anlayamadım.D sürücüsündeki herhangi bir klasörün içini görmek derken,klasördeki dosya isimlerini Combobox'a atmayı kasdediyorsanız bu örnek dosyada zaten var.Sizin örneğinizde "\" eksik.Sorun ondan kaynaklanıyor olabilir.Şu şekilde düzeltin:

Workbooks.Open Filename:="D:\xxxxx\" & ComboBox1.Value

Çok teşekkürler sondaki (\) işareti koyunca normal çalıştı.

Alternatif olarak farklı bir uygulama örneği

Halit bey güzel bir çalışma ancak formu açmak için form aç tıklandığında Automation error Beliriltilmemiş hata diye uyarı veriyor.
Not: Mesajı yazdıktan sonra sorunun kaynağını buldum userform altındaki tarih, saati kaldırınca düzeldi.

 

[kontto]

Çok Teşekkür ederim. Emeğinize ve elinize sağlık.