içinde listview olan dosyaları açamama

[merakli_72]

Selam arkadaşlar;
içerisinde listview nesnesi kullanılmış form barındıran bir excel dosyasını açmak istediğimde

"Compile error:

Object library invalid or contains references to object definitions that could not be found"

hatası alıyorum bilgisayarımda hem 2003 hemde 2010 yüklü ikisindede durum aynı

sorun tek bir dosyaya özgü değil, listview kullanılan bütün excel kitaplarında durum aynı

 

[Murat OSMA]

ToolBox'ın üzerinde sağ tıklayıp, Microsoft ListView Control version 6,0'ı seçin ve form üzerine ekleyin...

 

[merakli_72]

Tekrar selam,
Win7 64 bit türkçe kullanıyorum
toolbox üzerindeki listview nesnesini form üzerine eklemeye çalışıncada
"ClassFactory, istenen sınıfı sağlayamıyor"
hatası alıyorum
sorun MSCOMCTL.OCX kaynaklı olabilir diye internetten win7 64 bit için dosyayı buldum indirdim regsvr32 ile register ettim ama sorun düzelmedi ilgili dosya SysWow64 klasöründe

 

[Murat OSMA]

64Bit bilgisayarım olmadığı için ilgilenmiyorum. Bilgisi olan arkadaşlar yardımcı olacaklardır...

 

[merakli_72]

win7 64 bit türkçe başka bir bilgisayardan mscomctl.ocx alıp
kendi bilgisayarımın syswow64 klasörüne kopyalayıp register edince sorun düzeldi

 

[cengizank]

aynı sorun bende oldu win 7 64 kullanıyorum
Listview olan dosyalarda çalışma hatası vermesi netten

bulduğum bir kod ile düzeltim

'-----------------------------kod--------------------------

Sub Düğme1_Tıklat()


Dim P As Variant
Dim Paths As Variant
Dim RefFile As String
Dim X As String

RefFile = "MSCOMCTL.OCX"

Paths = Split(Environ("Path"), ";")
For Each P In Paths
X = Dir(P & "\" & RefFile)
If X = RefFile Then Exit For
Next P

If X = "" Then
MsgBox "The directory for " & RefFile & " could not be found."
Exit Sub
Else
RefFile = P & "\" & RefFile
End If

On Error Resume Next
Application.VBE.ActiveVBProject.References.AddFromFile RefFile
If Err = 0 Or Err = 32813 Then Err.Clear
On Error GoTo 0


End Sub

 

[ASMET67]

merhaba.
Aynı sorun bendede var 2003 ve 2007 de çalışan tum kodlarım xp sistemine yükleenen ofis 2010 ile çbirlikte çalışmamya başladı. Sayfaya eklemiş olduğumum listview nesnesini form üzerinden excel sayfasında dolduruyorum. eskş versiyonlarda çalışan kod 2010da çalışmamaktadır. sisn vermiş olduğunuz kodu module eklediğimde Application.VBE.ActiveVBProject.References.AddFrom File RefFile satırında compile error syntax error hatası veriyor.

yardımlarınızı rica ederim.

 

[Murat OSMA]

İlgili satırı bu şekilde yazın;

Application.VBE.ActiveVBProject.References.[COLOR="Red"]AddFromFile[/COLOR] RefFile

 

[ASMET67]

tesekkurler
verdiğiniz kod çalıştı ama benim kodlar için aynı hatayı almaya devam ediyorum

 

[Murat OSMA]

Sizin kodlar :dusun:

 

[ASMET67]

benim kodlar aşağıdaki gibir. kodlar 2003 ve 2007 de çalışıyor. 2010 da çalışmıyor.

Sub Menu_Click()
 Dim liste1 As Object
 Dim s1 As Worksheet
 
  Set s1 = ThisWorkbook.Worksheets("Ana")
Yıl = s1.Cells(3, "I").Value
'On Error Resume Next
   Set adoCN = CreateObject("ADODB.Connection")
    DatabasePath = Application.ThisWorkbook.Path & "\" & Yıl & "\Rapor_Data\Menu.mdb"
    If Dir(DatabasePath) = "" Then
        MsgBox DatabasePath & " bulunamadı, programdan çıkılacak !", vbCritical, "Menu.mdb"
 
        Call Cikis
        Exit Sub
    End If
    adoCN.Provider = "Microsoft.Jet.OLEDB.4.0"
    adoCN.ConnectionString = DatabasePath
    adoCN.Open
   Seviye = s1.Cells(2, "M").Value
  strSQL = "SELECT menu FROM [Menu] Where not isnull(Id) " 'ORDER BY Menu"
  strSQL = strSQL & " And Seviye >=" & Seviye & " ORDER BY Menu"
 
Set Rs = CreateObject("ADODB.recordset")
  Rs.Open strSQL, adoCN, 1, 3
  Rs.MoveFirst
 
   ThisWorkbook.Worksheets("Ana").Activate
 
  Set liste1 = ThisWorkbook.Worksheets("Ana").ListView2
  'ListView1
  ' liste1.ListItems.Clear
   ThisWorkbook.Worksheets("Ana").ListView2.ColumnHeaders.Clear
   ThisWorkbook.Worksheets("Ana").ListView2.ColumnHeaders.Add , , "Alt Menu", 235
With ThisWorkbook.Worksheets("Ana").ListView2
     .ListItems.Clear
     .ColumnHeaders.Clear
     .ColumnHeaders.Add , , "Ana Menu", 270
     .Width = 245
    .Height = 310
    End With
      Set liste2 = ThisWorkbook.Worksheets("Ana").ListView2
With liste2
 
     .Width = 269
    .Height = 310
    End With
 
 
  Do While Not Rs.EOF
 With ThisWorkbook.Worksheets("Ana").ListView1.ListItems
 If Not IsNull(Rs!Menu) Then .Add , , Rs!Menu
 End With
 
 
    'ThisWorkbook.Worksheets("Ana").LstMenu
       ' bu araya sayfadaki listabox kodlarını yazmam lazım.
      ' ListBox1.AddItem RS!Menu
     ' ThisWorkbook.Worksheets("Ana").LstMenu.AddItem RS!Menu
       Rs.MoveNext
 
  Loop
'On Error GoTo 0
    Set adoCN = Nothing
  Set Rs = Nothing
 
 End Sub

 

[ASMET67]

referans resmi

 

[Murat OSMA]

5.0 olan referansı kaldırın.

Dosyanızın ve veritabanınızın örnek birer kopyasını ekler misiniz ?

 

[ASMET67]

dosya ekleyemiyorum.
Cevaplada dosya ekle butonu yok

 

[Murat OSMA]

Google'a dosya upload yazın ve çıkan ilk siteye girip dosyayı yükleyin, linkini de mesaj olarak yazın.

 

[yanginci34]

Sayın Murat bey formda bulduğum personel kayıt formu benim çok işime yarayacak lakin win7 64 bit pc de bunu kullanamıyorum uyarlaya bilirmisiniz acaba ? Şimdiden teşekkürler.
Ekli dosyayı görüntüle Personel Takip Sistemi.rar