Excel Dosya Arama Yapma Makrosu
26 Aralık 2020
27 Aralık 2020
1565
Excel Dosya Arama Yapma Makrosu isimli bu kodu kullanarak, Excel'de VBA ile arama yapma yöntemini öğrenebilirsiniz.
Private Sub btnara_Click()
comsonuc.Clear
comsonuc.Refresh
Dim arama As Object
Dim aradosya As Object
Set arama = CreateObject("FileSearch.Search")
Call arama.SearchFiles("d:\", "*.mp3", True)
Call arama.SearchFiles("C:\", "*.xls", True)
DoEvents
If arama.Files.Count > 0 Then
For Each aradosya In arama.Files
comsonuc.AddItem aradosya.Filename
Set aradosya = Nothing
Next
End If
Set arama = Nothing
comsonuc.Text = "ARAMA BİTTİ"
End SubGerekli Adımlar
Kodu çalıştırmanız için aşağıdaki adımları yerine getirmeniz gerekir.
- Microsoft Visual Basic for Applications penceresini (Alt + F11) açın.
- Project - VBAProject alanının, ekranın sol tarafında görüldüğünden emin olun. Görünmüyorsa, Ctrl + R kısayolu ile hızlıca açın.
- Araç çubuklarından Insert -> Module yazısına tıklayın.
- Solunda klasör simgesi olan Modules yazısının başındaki + simgesine tıklayın.
- Alt kısma eklenecek gelecek olan Module(1) yazısına çift tıklayın.
- Üstteki kodu yapıştırın.
Kod Açıklaması
Diskteki istediğiniz dosyaları (alt klasörler dahil) nasıl bulacağınız ve bir ComboBox'ta nasıl listeleyeceğiniz yazıyor. Bir UserForm üzerine, btnara ismli bir CommandButton ve ve comsonuc isimli bir ComboBox yerleştirmeniz yeterli olacaktır.
Etiketler :
| YARARLI KISAYOLLAR | |
|---|---|
| Farklı Kaydetme | F12 |
| İşlemi Tamamlama/Onaylama | Enter |
| Bir Ekran Sağa Git | Alt PgDn |
| Bir Ekran Aşağı Git | PgDn |
| Ekranı Küçültme | Ctrl F5 |