Kapalı Dosyadan Veri Al

[alpay1]

Aşağıdaki örneği ben kendime uyarlamaya çalıştım olmadı.
Ben "'C:\cari-a1\[cari.xls]ANASAYFA' nın "B5:B50" aralığını almak istiyorum.Bunu ListBox ta listelemek istiyorum.Kodları nasıl düzenlemem gerekir.

Private Sub UserForm_Initialize()
Dim MyArg As String
Dim i As Integer
For i = 2 To 50
MyArg = "'C:\cari-a1\[cari.xls]ANASAYFA'!R" & i
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "C1")
Next
End Sub

ListBox1.AddItem ExecuteExcel4Macro(MyArg & "C1") kodlarını
ListBox1.AddItem ExecuteExcel4Macro(MyArg & "B5")
olarak değiştirdim olmadı.
Yardımcı olursanız sevinirim.
Teşekkürler.

 

[Levent Menteşoğlu]

Aşağıdaki linkteki Sn Raider'in çalışmasını inceleyin.

http://www.excel.web.tr/viewtopic.php?t=2314

 

[alpay1]

Sayın levetm,
Sayın Raider'in çalışmasını inceledim.Gayet düzel fakat benim yukarıdaki örneğini verdiğim çalışma çok daha basit ve kısa.Acaba bunu benim koşullarıma uyarlayabilir miyiz?

 

[Levent Menteşoğlu]

Ekte bir örnek hazırladım. Aşağıda 2 ek göreceksiniz. Bu eklerden "kitap2" isimli eki ismini değiştirmeden "belgelerimin" altına kaydedin,"kitap1" isimli dosyayıda herhangi bir klasörün altına. Sonra "kitap1" i açın (kitap2 kapalı olsun) ve sayfa1 deki butona tıklayın. Makro "kitap2" isimli kitabın "sayfa1" isimli sayfasındaki A1:A20 aralığındaki değerleri sırası ile "kitap1"in sayfa1-A1 hücresine kopyalar ve buradan userform içindeki listboxa aktarır.

 

[alpay1]

Sayın leventm,
Sanırım yanlış dosya gönderdiniz.

 

[Levent Menteşoğlu]

Haklısınız yanlış dosya eklemişim,yukarıdaki ataçları yeniledim. Þimdi inceleyebilirsiniz.

 

[alpay1]

Sayın leventm,
Ã?rneğinizi denedim.Gayet güzel çalışıyor.
Teşekkürler.

 

[ATAKIMI1]

ARKADAÞIM YAPTIÐIN PROÐRAMDAN DOLAYI TEÞEKKÜR EDİYORUM.FAKAT LİNKLERİN ÇALIÞMIYOR.TEKRAR GÃ?ZDEN GEÇİRİRSEN SEVİNİRİM.TEÞEKKÜRLER.