Kapalı Dosyadan Veri Kopyalamak

[Seyit Tiken]

Arkadaşlar Herkese Selamlar,
E:\personel\htiken\DKB.xls yolu olarak kapalı dosyam var, başka açık bir Excel Çalışma Kitabından, bu kapalı dosyanın A1 hücresindeki veriyi kopyalamak(copy) istiyorum, buna nasıl bir kod yazılması gerek, yardımlarınız için şimdiden teşekkür ediyorum.

 

[levo26]

Merhaba;

Kodları çalışmanıza uyarlayınız.

Sub VeriYerlestir()
Dim MyArray()
KaynakKlasor = "C:\Belgelerim"
KaynakDosya = "giris.xls"
Sayfa = "sabitler"
Application.ScreenUpdating = False
For i = 2 To 4
Hucre = Range("C" & i).Address
ReDim Preserve MyArray(1 To i)
MyArray(i) = VeriAL(KaynakKlasor, KaynakDosya, Sayfa, Hucre)
Next
Range("A1").Resize(UBound(MyArray)) = Application.Transpose(MyArray)
Application.ScreenUpdating = True
End Sub

 

[Seyit Tiken]

Yanıtınız için teşekkür ediyorum, kod çalışmadı, ilgili Çalışma Kitabını açamadı.

 

[Hacı Bayram ÖZKAN]

Merhaba;

Kodları çalışmanıza uyarlayınız.

Sub VeriYerlestir()
Dim MyArray()
KaynakKlasor = "C:\Belgelerim"
KaynakDosya = "giris.xls"
Sayfa = "sabitler"
Application.ScreenUpdating = False
For i = 2 To 4
Hucre = Range("C" & i).Address
ReDim Preserve MyArray(1 To i)
MyArray(i) = VeriAL(KaynakKlasor, KaynakDosya, Sayfa, Hucre)
Next
Range("A1").Resize(UBound(MyArray)) = Application.Transpose(MyArray)
Application.ScreenUpdating = True
End Sub

Ekteki hatayı verdi

 

[levo26]

Çalışmadı derken. Yolun doğru olduğundan eminmisiniz.
Bu kod ile çalışma kitabını açmıyor. Açmadan kapalı dosya üzerinden veriyi alıyor. Kapalı olan dosya şifreli değilse tabii.


KaynakKlasor = "C:\Belgelerim"
KaynakDosya = "giris.xls"
Sayfa = "sabitler"

Dosya yolunu, adını ve sayfasını güncellemek gerekli.

 

[Hacı Bayram ÖZKAN]

evet üstadım denedik, onları düzelttik ekli dosyadaki hatayı verdi. Bakarmısın?

 

[Seyit Tiken]

haklısınız, kod dosyayı açmaması gerek, sadece veri alması gerek, ben yukarıda yanlış yanıt vermişim, gene deneyecem, teşekkürler.

 

[levo26]

Aşağıdaki yeni kodları denermisiniz.

Sub GetData()
Range("A1") = "='d:\Belgelerim\[giris.xls]sabitler'!a1"
Range("A1") = Range("A1")
End Sub

Dosya yolunu kendinize uyarlayınız.

 

[Seyit Tiken]

Gene olmadı, yukarıda verilen dosya yolunu kodunuza bir uyarlıverin, Kapalı Dosya, Sayfa1 üzerinde açılsın, Kapalı Dosyadaki A1 hücresindeki veriyi sadece kopyalasın, yapıştırma yapmasın, tekrar teşekkür ediyoruz.

 

[levo26]

Sub GetData()
Range("A1") = "='E:\personel\htiken\[DKB.xls]BURAYASAYFAADI'!a1"
Range("A1") = Range("A1")
End Sub

denermisiniz. E:\ CD'den alacak galiba.