ListBox da dizindeki dosyaları görüntüle, seç, aç ve kopyala sorunu

[tacettin54]

Merhabalar!

Sevgili Hocalarım sizlerden öğrendiklerim ve sayenizde forumlardan gördüklerimle bir BEYANNAME hazırlama çalışması yaptım. Bu dosya evdeki bilgisayarımda çok güzel çalışıyor. İstediğim dizindeki dosyaları Listbox2 de görüntülüyor, seçtiğim dosyanın yolunu Textbox7 de gösteriyor, sonra bu dosyadaki bilgileri istediğim sayfalara yazıyor beyannameler 10 saniyede hazır.

Ancak bu dosyayı işyerindeki bilisayarlarda kullanmak istediğimde şu hatayı alıyorum. (İşyerinde sistem : Windows NT server ve kullanıcı bilgisayarlar XP)

----------------------------
açılışta 2 defa
Could not load object because it is not available on this machine

sonra listele komutunun bulunduğu menüyü açtığımda da

Compile error :
Can't find project or library
------------------------------

Saygılar Sunarım
Tacettin ÇELİK

 

[Valuer]

İşyerinde bilgisayarında problem var.

İşyerinde başka PC de dene

Atıyorum evdeki PC de Türkçe versiyon ve güvenlik ayarları orta,

İşyerinde PC Ingilizce versiyon güvenlik ayarları yüksek ......... vs

Ofis programını tekrar yükleyin çünkü diyorki (Acaba ofis programımı çalışmıyor.);

nesneyi yükleyemedi, hatayı derleyememe:
Proje veya kütüphaneyi bulamama

Anladığım kadarı ile cevaplamaya çalıştım.

 

[Levent Menteşoğlu]

Dosyanızda kullandığınız timer nesnesi diğer pclerde yüklü olmadığından hata veriyor. Bu nesnenin .ocx veya .dll dosyasını system32 klasörüne kopyalayın.

 

[tacettin54]

Levet Hocam Timer ları sildim. Valuer kullanıcı adlı arkadaşın dediği gibi ofisi tekrar yükledim. başta verdiği 2 hatayı vermeden açıldı.
Listele işlemini daha da kısalttım şöyleki ;

Sub Listele()
yol = Range("sayfa2!f1").Value
dosya = Dir(yol & "*.xls")
menü.ListBox2.Clear
While dosya <> ""
men&#252;.ListBox2.AddItem dosya
dosya = Dir
Wend
End Sub

BU SEFERDE SADECE
Compile error :
Can't find project or library

HATASI VER&#304;YOR VE dosya=Dir sat&#305;r&#305;na geliyor.

ACABA Module1 General Declerations b&#246;l&#252;m&#252;ne yazd&#305;&#287;&#305;m

Public yol As String
Dim dosya

b&#246;l&#252;m&#252;nde bir hatam veya eksikli&#287;im olabilirmi ?

< SAYDILARIMLA ------ TACETT&#304;N &#199;EL&#304;K>

 

[tacettin54]

..........

 

[Levent Menteşoğlu]

yol değişkenine atanan bir veri örneği yazarmısınız.