• Merhaba Ziyaretçi,
    Microsoft 365 Uygulamaları ile ilgili yeni haberler, dikkat çekici konular, ilgi ile takip edeceğiniz yazılar için.

    Abone Olun
  • ESTE - Microsoft Office Eğitimleri

    Yeni yıl Microsoft Office Eğitim planlarınız için bütçenizi oluşturmadan önce ESTE eğitim kalitesi ile tanışın. 🙌
    Kullanıcıların ihtiyacı olan yazılı materyal, dosya ve video kaynağı desteğimiz ile tüm ofis çalışanlarının iş süreçlerini rahatlatacak eğitimler planlayın. 🎯
    Microsoft Office eğitimlerimiz hakkında detaylı bilgi için bize ulaşın.

    👉 Microsoft Office Eğitim Talebi

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ş
29
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

  • Depo.xlsx
    18.5 KB · Görüntüleme: 7
  • Model Kapama.xlsx
    38 KB · Görüntüleme: 7

yildizzx

Yeni Üye
Katılım
24 Ocak 2020
Mesajlar
5
En iyi yanıt
0
Puanları
1
Yaş
29
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