Kapalı Excel Dosyasından Listboxa Veri Alma

[walabi]

Merhaba,


Aşağıdaki kod ile excel kitabı üzerindeki ilgili sayfadan listboxa veri yükleyebiliyorum. Aşağıdaki kodun yaptığı işlevin aynısını kapalı bir dosya üzerinde nasıl yapabilirim. Yani veriler farklı bir excel kitabında olacak. Ayrıca şunu da belirteyim. Veri tabanı gibi kullandığım ilgili excel kitabı ortak alanda duruyor. Ortak alandaki bir excel kitabına ulaşıp bu dosyadan veri almaya çalışmak, sorgulama yapmak kodlarda yavaşlığa sebep olur mu?

Sub Urun_Ara_2()




Set S1 = Sheets("STOK_SA")
ListBox1.ColumnCount = 10
ListBox1.ColumnWidths = "60;120;40;40;0;0;0;0;0;10"
Dim a As Long, i As Long
    ReDim dizial(1 To 50, 1 To 1)
    If TextBox1.Text = "" Then Exit Sub
    ListBox1.Clear
    For i = 2 To S1.Cells(Rows.Count, 2).End(3).Row
        If UCase(Replace(Replace(S1.Cells(i, "B"), "ı", "I"), "i", "İ")) Like _
        "*" & UCase(Replace(Replace(TextBox1.Text, "ı", "I"), "i", "İ")) & "*" Then
        
      
      
            a = a + 1
            ReDim Preserve dizial(1 To 50, 1 To a)
            dizial(1, a) = S1.Cells(i, "A")
            dizial(2, a) = S1.Cells(i, "B")
            dizial(3, a) = S1.Cells(i, "C")
            dizial(4, a) = S1.Cells(i, "D")
            dizial(5, a) = S1.Cells(i, "E")
            dizial(6, a) = S1.Cells(i, "F")
            dizial(7, a) = S1.Cells(i, "G")
            dizial(8, a) = S1.Cells(i, "H")
            dizial(9, a) = S1.Cells(i, "I")
            dizial(10, a) = S1.Cells(i, "J")
          
            
        End If
    Next i
    ListBox1.Column = dizial
    Erase dizial
    a = Empty
    i = Empty
 
End Sub