listvievde veri almadada hata

[ASMET67]

Aşağıdaki kodlarla listview2 nesnesine veri aldırıyorum.
Ofis2000 ing sürümde kodlar hata verimiyor.
Ancak Ofis 2003 İng versiyonunda Dim Liste As ListItem değişken tanımında hata veriyor.
Bunun sebebi ne olaiblir.
Yardımcı olabilirmisiniz.

' ListeyiGuncelle()
Dim s1 As Worksheet
    Dim s2 As Worksheet, s3 As Worksheet
    Set s1 = Worksheets("Database_Detay")
    Set s2 = Worksheets("Rapor")
    Set s3 = Worksheets("rapor_data")
Dim Liste As ListItem
Dim bas, bit As Date
'bas = CDate(TextBox1.Text)
'bit = CDate(TextBox2.Text)
Dim i As Long
On Error Resume Next
For i = 5 To s2.[a65536].End(3).Row
    'If Cells(i, 3) >= bas Then
    '    If Cells(i, 3) <= bit Then
            Set Liste = ListView2.ListItems.Add(, , s2.Cells(i, 1))
            Liste.SubItems(1) = s2.Cells(i, 2)
            Liste.SubItems(2) = s2.Cells(i, 3)
            Liste.SubItems(3) = s2.Cells(i, 4)
            Liste.SubItems(4) = s2.Cells(i, 5)
            Liste.SubItems(5) = s2.Cells(i, 6)
            Liste.SubItems(6) = s2.Cells(i, 7)
            Liste.SubItems(7) = s2.Cells(i, 8)
            Liste.SubItems(8) = s2.Cells(i, 9)
            Liste.SubItems(9) = s2.Cells(i, 10)
            Liste.SubItems(10) = s2.Cells(i, 11)
            Liste.SubItems(11) = s2.Cells(i, 12)
            Liste.SubItems(12) = s2.Cells(i, 13)
            Liste.SubItems(13) = s2.Cells(i, 14)
            Liste.SubItems(14) = s2.Cells(i, 15)
            Liste.SubItems(15) = s2.Cells(i, 16)
     '   End If
    'End If
Next i

 

[Mahmut Kök]

Çalışmayan bilgisayarda listview kontrolü-referansı yüklü olmayabilir veya tanımlanmamıştır. Araçkutusu penceresine listview kontrolü eklemeyi deneyiniz.

 

[ASMET67]

İlginiz için teşekkür ederim.
Yalnız list viev nesnesini foruma ekleyebiliyorsam referansı yüklü olması gerekmezmi.
Refaransı ayrı yüklemem gerekiyorsa refaransın adi nedir yardımcı olabailirmisiniz.

 

[Mahmut Kök]

Eğer hata aldığınız bilgisayarda forma listview ekleyebiliyorsanız, ilgili referansı ayrıca yüklemenize gerek olmaz aslında haklısınız. Ben başka bilgisayarda hazırladığınız formu, başka bilgisayarda kullanmaya çalıştığınızda hata aldığınızı düşünmüştüm. Galiba başka bir sorun var.

İlgili referansı söyleyeyim yine de; Araçlar menüsüdeki Referanslar'dan gözat düğmesiyle açılan pencereden ocx dosyalarını seçin ve aşağıdaki dosya adını yüklemeyi deneyin.

MSCOMCT.OCX