• 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

Çözüldü İki Ayrı Kapalı dosyadan Veri Çekme Hatası

Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
Hayırlı Cumalar Arkadaşlar.
Klasörde iki ayrı veri çekilecek dosyam bulunmaktadır. bu iki kapalı dosyadan verileri çekmek istiyorum. Çok uğraşmama rağmen yapamadım hata veriyor. yapmak istediğim gerekli açıklamaları dosya içerisinde yaptım. Yardımlarınız için şimdiden teşekkür ederim.
 

Ekli dosyalar

  • Aynı Klasörde İki Farklı Dosyadan Veri Alma Örneği.rar
    27.3 KB · Görüntüleme: 15

Murat OSMA

Yönetici
Site Yöneticisi
Katılım
25 May 2018
Mesajlar
1,506
En iyi yanıt
13
Puanları
113
Konum
İstanbul
Web sitesi
excelarsivi.com
Ad Soyad
Murat OSMA
Office Vers.
Office 365 TR+EN
Hayırlı Cumalar Okan Bey.
Bu kodları kullanabilirsiniz. (y)
PHP:
Sub Veri_çek()
    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 & "\MaasBanka.xls" & _
    ";Extended Properties=""Excel 12.0;Hdr=yes"""
    Sorgu = "Select [PERSONEL AD-SOYAD], [PERSONEL UNVANI], [PERSONEL TC KİMLİK NO],[IBAN NUMARASI],[TUTAR] From [Sayfa1$A9:N100]"
    Rs.Open Sorgu, Con, 1, 1
    Range("A4").CopyFromRecordset Rs
    Rs.Close: Con.Close
    Con.Open "Provider=Microsoft.Ace.Oledb.12.0;Data Source=" & ThisWorkbook.Path & "\Liste.xls" & _
    ";Extended Properties=""Excel 12.0;Hdr=yes"""
    Sorgu = "Select [Ödeme Ek Göstergesi], [Özel Hizmet Tazminat Puanı] From [Sayfa1$B12:AN100]"
    Rs.Open Sorgu, Con, 1, 1
    Range("F4").CopyFromRecordset Rs
    Rs.Close: Con.Close
    Sorgu = vbNullString: Set Rs = Nothing: Set Con = Nothing
End Sub
Dosyanızı da ekliyorum..
 

Ekli dosyalar

  • Aynı Klasörde İki Farklı Dosyadan Veri Alma Örneği.rar
    27.9 KB · Görüntüleme: 49

okan32

Yeni Üye
Katılım
19 Haz 2018
Mesajlar
37
En iyi yanıt
0
Puanları
8
Yaş
42
Konum
Isparta
Ad Soyad
Ali Koç
Office Vers.
Office 365 TR
Sayın admin Kusura bakmayın işlerimin yoğulğundan bakamadım. Şimdi gördüm. İlginiz için çok teşekkür ederim.
 
Durum
Üzgünüz bu konu cevaplar için kapatılmıştır...
Üst Alt