xlDialogBrowse problemi?(Klasöre Gözat penceresi)

Tankut SAZLI · 7 Şubat 2007

Arkadaşlar;
Aşağıdaki kodla Dosya açma penceresini çağırıyoruz.

Kod:

Application.Dialogs(xlDialogOpen).Show

Fakat benim istediğim Klasöre Gözat penceresini çağırmak.Kodu bu şekilde düzenlediğimde hata veriyor.

Kod:

Application.Dialogs(xlDialogBrowse).Show

Amacım klasör seçip içindekilerin tümünü listboxa atmak.
xlDialogOpen ile klasör içindeki dosyayı açıyor ve ordan tek tek dosya seçiyoruz.Oysa yapmak istediğim şey klasörü seçince içindekilerin tümünü listeletmek.İşte bunu xlDialogBrowse ile yapamaya çalışıyorum olmuyor.VB6 da

Kod:

BrowseForFolder(Me.hwnd, "Klasör Seçiniz...")

kodları ile bu pencereye ulaşabiliyorum.

Excelde bunun yolu var mı,nedir?

zafer · 7 Şubat 2007

Merhaba

İnternette bulduğum kodlara uyarlama yaptım .belki işinize yarayabilir.
Daha önce Sn.Haluk'un çok daha güzel çalışmaları vardı fakat bulamadım.

inceleyiniz.

Private Sub CommandButton1_Click()
Dim yol, dizin
Set yol = CreateObject("Shell.Application")
Set dizin = yol.BrowseForFolder(&O0, "????????????", &H1 + &H10)
dosya = Dir(dizin.Items.Item.Path & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While dosya <> ""
If dosya = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
ListBox1.AddItem dosya
ResumeSub:
dosya = Dir
Loop
Set yol = Nothing
Set dizin = Nothing

End Sub

zafer · 7 Şubat 2007

Merhaba

2.seçenek

Private Sub CommandButton2_Click()
With Application.FileDialog(msoFileDialogFolderPicker)
If .Show = True Then
dizin = .SelectedItems(1)
End If
End With

dosya = Dir(dizin & Application.PathSeparator & _
"*.xls", vbDirectory)
Do While dosya <> ""
If dosya = ThisWorkbook.Name Then GoTo ResumeSub:
i = i + 1
ListBox1.AddItem dosya
ResumeSub:
dosya = Dir
Loop
End Sub

Levent Menteşoğlu · 7 Şubat 2007

Aşağıdaki kodu kullanabilirsiniz.

Kod:

Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100)
msgbox klasor.Items.Item.Path

Ayrıca alttaki linkte bulunan çalışmamı incelemenizi öneririm.

http://www.excel.web.tr/forumdisplay.php?f=134&page=2&order=desc# Alt klasör ve seçilen klasöre ait dosyaları listeleme, açma

zafer · 7 Şubat 2007

Merhaba

Leventm çok güzel bir çalışma yapmışsınız görmemişim.
özür dilerim....

Levent Menteşoğlu · 7 Şubat 2007

zafer' Alıntı:
Merhaba

Leventm çok güzel bir çalışma yapmışsınız görmemişim.
özür dilerim....

Rica ederim değerli dostum Zafer bey, Excel için Örnek uygulamalar ve linkler başlığını bu sebeple gruplara ayırmayı düşünmüştük. Böylece güzel olan bir çok çalışmayı tekrar ortaya çıkartmış olacağız.

Zeki Gürsoy · 7 Şubat 2007

Kod:

BrowseForFolder(0, "L&#252;tfen bir klas&#246;r se&#231;in !", &H100)

Merhaba,
Buradaki 0 ve &H100 parametreleri neyi ifade ediyor?
Bu değerler sabit midir? Yoksa diğer alabileceği değerler nedir?

olymposss · 7 Şubat 2007

bende bir soru sormak istiyorum.

sn arkadaşlar
bu sayfadan çok şey öğrendim. hepinizin emeğine sağlık.

klasör açmak için kullanılan kodları gördüm. peki herhangi bir dosyanın seçilmesi için hangi kodları kullanabiliriz?
Application.Dialogs(xlDialogOpen).Show bu kod excel aç komutu. ben herhangi bir dosyayı seçip çalıştırmak istiyorum.(klasöre gözat değilde dosyaya gözat nasıl olur?)

teşekkürler iyi çalışmalar
saygılar:???:

Tankut SAZLI · 7 Şubat 2007

Amanınnnn Levent Bey;
Kodlar süper hemde kısacık,elinize sağlık.Ayrıca verdiğiniz örneği çoktan arşivime eklemiştim,fakat göz atmayı unutmuşum.Daha doğrusu farklı bir şekilde klasör seçtiğini hatırladığım için bakmamıştım.Siz söyleyince hatırladım.
Teşekkür ederim.

Levent Menteşoğlu · 7 Şubat 2007

anemos' Alıntı:
Buradaki 0 ve &H100 parametreleri neyi ifade ediyor?
Bu değerler sabit midir? Yoksa diğer alabileceği değerler nedir?

Bu konuda bildiklerimi söyleyeyim, baştaki sıfır nedir bilmiyorum, sondaki &H100 decimal 256 sayısının hexadecimal karşılığıdır, bunun yerine 256 da yazabilirsiniz, browserin görüntüsü ve işlevi ile ilgili bir parametredir. Örneğin bu değer yerine 16 veya &H10 yazın, yada 1 veya &H1 yazarak görünümdeki değişiklikleri inceleyin. Hatta kodu aşağıdaki gibi düzenlerseniz klasörüde seçebilirsiniz.

Kod:

[LEFT]Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "L&#252;tfen bir klas&#246;r se&#231;in !", &H100[B][COLOR=blue], "C:\")[/COLOR][/B]
msgbox klasor.Items.Item.Path[/LEFT]

Zeki Gürsoy · 7 Şubat 2007

Verdiğiniz bilgiler için teşekkürler Levent bey.

Levent Menteşoğlu · 7 Şubat 2007

olymposss' Alıntı:
klasör açmak için kullanılan kodları gördüm. peki herhangi bir dosyanın seçilmesi için hangi kodları kullanabiliriz?

Aşağıdaki kodu kullanabilirsiniz.

Kod:

dosya = Application.GetOpenFilename("Excel Dosyası (*.xls),*.xls", , "........ Dosyasını Seçin")
MsgBox dosya

Haluk · 7 Şubat 2007

leventm' Alıntı:
..... baştaki sıfır nedir bilmiyorum,

Sözkonusu uygulamayı çağıran pencerenin "handle" numarasıdır.

olymposss · 7 Şubat 2007

sn hocam

çok teşekkürler saygılar.
emeğinize sağlık:hey:

Levent Menteşoğlu · 7 Şubat 2007

Haluk' Alıntı:
Sözkonusu uygulamayı çağıran pencerenin "handle" numarasıdır.

Teşekkür ederim Haluk Hocam. Bununla ilgili bir kaç soru sormak istiyorum. Bildiğim kadarı ile bu handle nosu genellikle APIlerde nesneye farklı özellikler eklerken kullanılıyor, bu doğrumudur? Bunun dışında başka bir kullanım yeri mevcutmudur? Birde nesnelerin handle nosunu bulan bir kodlama (hazır bir listede olabilir) varmıdır.

Tankut SAZLI · 7 Şubat 2007

Bilgiler için teşekkürler.
Ancak İPTAL tuşuna bastığımızda "object variable or with block variable not set" hatası veriyor.
Bundan kurtulmanın tek yolu "On Error Resume Next" satırını eklemek mi başka bir çözümü varmı.

Levent Menteşoğlu · 7 Şubat 2007

Tankut SAZLI' Alıntı:
Bilgiler için teşekkürler.
Ancak İPTAL tuşuna bastığımızda "object variable or with block variable not set" hatası veriyor.
Bundan kurtulmanın tek yolu "On Error Resume Next" satırını eklemek mi başka bir çözümü varmı.

Aşağıdaki gibi deneyin.

Kod:

Set klasor = CreateObject("Shell.Application").BrowseForFolder(0, "Lütfen bir klasör seçin !", &H100, "C:\")
If Not klasor Is Nothing Then MsgBox klasor.Items.Item.Path

Tankut SAZLI · 7 Şubat 2007

Teşekkürler.

Haluk · 7 Şubat 2007

Levent dostum,

Windows işletim sistemi adından da anlaşılacağı üzere "pencereler" mantığıyla çalışan bir sistemdir.

Her program veya her programın çağırdığı bir diyalog kutusu veya form aslında bir penceredir ve her pencerenin bir "handle numarası" vardır.

VB (Visual Basic) ile VBA (Visual basic for Applications) arasındaki temel fark, her iki dilde de kullanılan ve benzer özelliklerini gözlemlediğimiz nesnelerdedir. Çünkü, VB'de nesneler de bir yerde penceredir ama VBA'de durum böyle değildir. Yani, VB'de bir ListBox'ın "handle numarası" vardır ve buna ulaşıp, kullanarak bazı işler yapabiliriz ama VBA'deki ListBox bir pencere olmadığı için herhangibir "handle numarası" yoktur.

"Handle numarası" aslında "Windows - Pencereler" işletim sisteminin, uygulama sırasında aktif pencereler arasında hangi pencere ile ilgilendiğini bulabilmesi için kullanılan bir özelliğidir. Nesnelerin standart "handle numaraları" yoktur. Uygulamanın "compile-derlenme" ve "runtime - çalıştırma" aşamalarında, Windows pencere özelliği olanlara bir numara ataması yapar.

Yani, bu "handle numarası" olmadan, Windows pencerelere hükmedemez. Bu "handle numarası" formların, uygulamaların, nesnelerin "KimlikNumarası" gibi olduğunu düşünebiliriz.

VB'de bir formun "handle numarası" formun özelliklerine gömülmüştür, benzer şekilde nesnelerin de öyle (eğer varsa), ama VBA'de durum böyle değil. Bu nedenle, VBA'de pencere özelliği olan nesnelerin bu "handle numarasını" API'ler ile bulabiliyoruz. (Neyseki MS buna izin veriyor.)

Levent Menteşoğlu · 7 Şubat 2007

Üstadım çok teşekkür ediyorum, çok yararlı bir bilgi oldu benim için.

xlDialogBrowse problemi?(Klasöre Gözat penceresi)

Tankut SAZLI

zafer

Super Moderator

zafer

Super Moderator

Levent Menteşoğlu

Administrator

zafer

Super Moderator

Levent Menteşoğlu

Administrator

Zeki Gürsoy

Uzman

olymposss

Tankut SAZLI

Levent Menteşoğlu

Administrator

Zeki Gürsoy

Uzman

Levent Menteşoğlu

Administrator

Haluk

Özel Üye

olymposss

Levent Menteşoğlu

Administrator

Tankut SAZLI

Levent Menteşoğlu

Administrator

Tankut SAZLI

Haluk

Özel Üye

Levent Menteşoğlu

Administrator