Kapalı Excel Dosyasından Güncel Veri Alma

[yildizzx]

Merhaba,

Ağ üzerinde kullandığım iki farklı excel dosyam var. Kullanan kişiler farklı olduğu için veri güncellemesi için her zaman iki dosyayı açık tutma şansım yok. Yapmak istediğim şey dosya kapalıda olsa veri alabilmek veya diğer bilgisayarda açıkken kaydedildiğinde verilerim güncellensin istiyorum. Dış veri bağlantısı yapmaya çalıştım ama yine kapalıyken veri alamıyorum. Buraya dosya eklenebiliyor mu bilmiyorum açıkçası. Almak istediğim veri formülü şu şekilde; Order Kapama.xlsx dosyasının D1 sayfasındaki T2 hücresinin verisini almak istiyorum. Bunu dosya kapalıyken nasıl çekebilirim.

=DOLAYLI("'"&"Z:\[ORDER KAPAMA.xlsx]"&$D$1&"'!"&"T2")

Makro gerektirebileceğini düşünerek bu konu altına yazdım, umarım yanlış değildir. Yardım ederseniz çok sevinirim, şimdiden teşekkür ederim.

 

[hamitcan]

Kodu, kendinize göre uyarlayın.

Sub KapaliDosyadanVeriAl()
    Yol = ActiveWorkbook.Path & "\"
    KapaliDosya = "Kitap1.xlsx"
    Adres = "'" & Yol & "[" & KapaliDosya & "]" & [d1] & "'!R1C1"
    [a1] = ExecuteExcel4Macro(Adres)
End Sub

 

[yildizzx]

Üstadım makro bilgim hiç yok. Bunu sayfanın kod kısmına yapıştırıp uyarlamam yeterli mi?

 

[hamitcan]

Bir Module içine yerleştirip çalıştırın.

 

[baydeniro]

Kodu, kendinize göre uyarlayın.

Sub KapaliDosyadanVeriAl()
    Yol = ActiveWorkbook.Path & "\"
    KapaliDosya = "Kitap1.xlsx"
    Adres = "'" & Yol & "[" & KapaliDosya & "]" & [d1] & "'!R1C1"
    [a1] = ExecuteExcel4Macro(Adres)
End Sub

hamitcan üstadım teşekkürler.