Yardım Kapalı Dosyadan Güncel Veri Çekme

yildizzx

Yeni Üye
Katılım
24 Ocak 2020
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Tokat
Ad Soyad
Salih YILDIZ
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 de kapalıyken veri alamıyorum. Dosya içerisinde açıklama olarak yazdım.

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.
 

Ekli dosyalar

yildizzx

Yeni Üye
Katılım
24 Ocak 2020
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
25
Konum
Tokat
Ad Soyad
Salih YILDIZ
Bu şekilde bir bağlantı kurdum ve verileri kapalıyken alabiliyorum. Ancak "Sorgu = "Select Model_Renk_Kartelası From [Ornek$]"" parametremde [Ornek$] sayfa yolu değişken olmalı. Yani A sayfasına diğer dosyanın A sayfasından, B sayfasına ise diğer dosyanın B sayfasından veri çekmeli. Bunu nasıl yapabilirim?


Sub guncelle()
Dim Con As Object, Rs As Object, Sorgu As String
Set Con = CreateObject("AdoDB.Connection")
Set Rs = CreateObject("AdoDB.RecordSet")
Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\depo.xlsx" & _
";Extended Properties=""Excel 12.0;Hdr=yes"""
Sorgu = "Select Model_Renk_Kartelası From [Ornek$]"
Rs.Open Sorgu, Con, 1, 1
Range("t2").CopyFromRecordset Rs
Rs.Close: Con.Close
Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End Sub
 
Üst Alt